Jeg bruger et clientdataset og vil gerne fange fejl som "violation key" eller "field must have a value" og vise mine egen danske fejlbeskeder i stedet for Delphis indbyggede.
Dertil har jeg udset clientdataset'ets OnPostError event som det oplagte valg. (ret mig gerne hvis jeg tager fejl).
Jeg har dog ikke fundet ud af, hvordan den bruges. Min hjælp i Delphi virker ikke, skal reinstalleres, og online har jeg intet fundet.
procedure TVinForm.Table1BeforePost(DataSet: TDataSet); begin if Antal.Field.Value = 0 then showmessagepos('Værdien i antal skal være større end 0',500,500); if Antal.Field.Value = 0 then Datasetcancel1.Execute; end;
Du kan i eventen prøve flg. to kodestykker som inspiration. Måske kan de laves i en variant, der kan bruges hos dig.
if E.Message = 'Key violation.' then begin Showmessage('Fejl: '+ e.Message); abort; end;
If E.Classname = 'EDatabaseError' then begin ShowMessage('Fejl: '+e.classname); abort end;
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.