RecordCount ile databasedeki kayıt sayısını 1000 ve üstü olunca kullanıcıya uyarı vermek istiyorum, databasede 110000 kayıt olmasına rağmen message devreye girmiyor... if RecordCount > 10 then diyince message devreye giriyor...
begin
try
with Urun do
begin
Close;
SQL.Clear;
SQL.Add('Select * From URUNLER');
Open;
if Not IsEmpty then
begin
if RecordCount > 1000 then
begin
Showmessage(çok fazla'');
end;
end;
end;
except
end;
end;
begin
Qr_soz_mail.Close;
Qr_soz_mail.Parameters.ParamByName('BAS').Value:=DateTimePicker1.Date - 30;
Qr_soz_mail.Parameters.ParamByName('BITIS').Value:=DateTimePicker1.Date + 45;
Qr_soz_mail.Parameters.ParamByName('MAILID').Value:=Qr_mail.FieldByName('ID').AsString;
Qr_soz_mail.Open;
if Qr_soz_mail.RecordCount > 0
then begin
Qr_update.Close;
Qr_update.SQL.text:='UPDATE MUDUR ';
Qr_update.SQL.Add('SET MAILD= ''E''');
Qr_update.SQL.Add('WHERE ID= '''+Qr_mail.FieldByName('ID').AsString+''' and MAILD=''H''');
Qr_update.ExecSQL;
end