Fehlermeldungen von der Datenbank

[emsländer]

Moin,

wie kann ich die SQL-Fehlermeldungen auslesen, wenn ich per ADO-Query darauf zugreife:

Beispiel:

Delphi-Quellcode:

uses main,ADODB,sysutils;
function insert_in_mssql(inhalt : string) : integer;
  var stmp : string;
   _query : TAdoquery;
begin
  result := 0;
  _query := TADOquery.Create(nil);
  with _query do begin
    try
      connection := FDDService.ADOConnFDD;
      sql.Add(inhalt);
      result := ExecSQL;
    except
      //Fehler abfangen -----
    end;
  end;
  freeandnil(_query);
end;

Wenn ein Fehler in der Query vorliegt, rennt der automatisch ins except. Wie kann ich nun die Fehlermeldung, welche mir (nur) in der BDE angezeigt wird, zum auswerten in eine Variable packen=

Danke und Gruß

EL

[Bernhard Geyer]

Delphi-Quellcode:

on e: Exception do
  MyVar := e.Message;

Und was hat der ADO-Zugriff mit der BDE zu tun? :gruebel:

[DeddyH]

Delphi-Quellcode:

on E: Exception do
  MessageBox(Handle,PChar(E.Message),nil,MB_OK or MB_ICONERROR);

[NormanNG]

Hi,

die Fehler vom SQL-Server stehen über

Delphi-Quellcode:

  AdoConnection.Errors

zur Verfügung.

[emsländer]

Zitat:

Zitat von Bernhard Geyer

Delphi-Quellcode:

on e: Exception do
  MyVar := e.Message;

Und was hat der ADO-Zugriff mit der BDE zu tun? :gruebel:

Habe ich vielleicht falsch formuliert.
Wenn ich das Programm via BDE starte und ein SQL-Fehler auftritt, dann bekomme ich den wunderbar angezeigt.
Wenn ich das Programm (ist obenauf ein Dienst) stand alone laufen lasse, bekomme ich nur als result von execsql eine Zahl.
Ich brauche aber auch den Fehlertext, damit ich den in eine Protokolldatei packen und auswerten kann.

daher die Frage: Wie kann ich einen Fehlertext bei Execsql abfragen?

Gruss

EL

[NormanNG]

Hi,

hast du es einmal mit AdoConnection.Errors versucht?

[shmia]

http://www.delphipraxis.net/internal...ct.php?t=28395

[emsländer]

Zitat:

Zitat von shmia

http://www.delphipraxis.net/internal_redirect.php?t=28395

Genau das wars

Vielen Dank

Gruss

EL