Mega Code Archive
Adodataset,adotable ve adoqueryde keyviolation hatasini yakalamak
<![CDATA[
//Midac'in türkce veya ingilizce versiyonunda ise yarar.
//Adodataset,ADoquery,Adotable'nin OnpostError olayina
//asagidaki kodu yazin. Bu adoquery icindir
procedure TForm15.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
var
gestr:string;
begin
gestr:=E.message;
//showmessage(E.Message);
if (pos('duplicate',gestr)<>0) or (pos('yinelenen',gestr)<>0) then begin
messagedlg('Girdiginiz tarih zaten veritabaninda Var.Lütfen farkli bir tarih giriniz veya Iptal tusuna basiniz.',mtwarning,[mbok],0);
dbdateedit1.SetFocus;
abort;
end;
end;
]]>