[Lazarus] TSQLQuery

[Corpsman]

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 at 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