Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2015-07

TSQLQuery

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Corpsman
to Terry A. Haimann

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;
Terry A. Haimann wrote 11 lines
After executing a query, is there a way to test if there were any errors? -- _______________________________________________ Lazarus mailing list 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

Reply by email