you mean something like this : If Length(st) <> 0 Then Begin SQLQuery1.SQL.Text := st; End Else Begin exit; End; Try SQLQuery1.Open; Except On e: Exception Do Begin ShowMessage('Fehler ungültige Eingabe.'#13'Fehlermeldung:'#13 + e.Message); exit; End; End;
On 07/30/2015 04:45 PM, Terry A. Haimann wrote: > After executing a query, is there a way to test if there were any > errors? > > > > -- > _______________________________________________ > Lazarus mailing list > Lazarus@lists.lazarus.freepascal.org > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus > -- Auf meiner Homepage www.Corpsman.de ist immer was los, ständig wird sie aktualisiert und erweitert. Da ist für jeden was dabei. -- Schütze deine Privatsphäre, nutze E-mail Verschlüsselung. Wie das geht steht z.B. hier : https://support.mozilla.org/en-US/kb/digitally-signing-and-encrypting-messages#w_installing-gpg-and-enigmail -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus