Datenbanken und Statusmeldungen

[frankg]

Zitat von Garby:

Wie George schon schrieb, werden diese Meldungen meist vom Verwendeten Programm generiert.
Werden Datensätze mittels DELETE gelöscht wird manchmal die Anzahl der betroffenen Zeilen zurückgegeben.

...

Wie du siehst muss man sich i.d.r. um diese Statusmeldungen selber kümmern.
Von einer Automatisierung, wie z.B. ADOConnection1.GetLastMessage ist mir nichts bekannt.

Hallo Garby!

Vielen Dank für Dein Posting. Das mit der Anzahl der Datensätze ist aber recht kompliziert. Das kann man auch anders machen:

<Klugscheiss=ON >

Delphi-Quellcode:

uses
  AdoInt;

....

// Ich verwende hier eine TADOConnection, weil die einfacher in Delphi
// (besonders in der IDE) zu handhaben ist als ein _Connection-Objekt
procedure DoSomething (myConnection : TADOConnection);
var
  RowsAff : OleVariant;
  myADOCmd : ADOInt.Command;
begin
  if myConnection = nil then exit;
  try
    myADOCmd := CoCommand.Create;
    try
      if myConnection.Connected = FALSE then myConnection.Open;
      with myADOCmd do
        begin
          CommandType := adCmdStoredProc;
          CommandText := 'DELETE FROM BeispielTab WHERE Feld = 12';
          // Ich greife hier auf das unterliegende ADO-Objekt _Connection über
          // das TADOConnection Objekt zu.
          Set_ActiveConnection(myConnection.ConnectionObject);
          Execute (RowsAff, EmptyParam, adExecuteNoRecords);
          // In RowsAff steht ab hier dann die Anzahl der Zeilen, auf die sich der Befehl
          // ausgewirkt hat.
        end;
    except
      // Irgendwas hat da nicht geklappt!
    end;
  finally
     // Aufräumen
     myADOCmd := nil;
  end;
end;

<Klugscheiss=OFF >

Diese Weg hat mehrere Vorteile (siehe auch "ADO und Delphi" von Andreas Kosch). Da die dbGO-Implementation von Borland wohl nicht so doll ist, sind die wichtigsten Vorteile, dass diese Methode weniger Fehler verursacht und (wichtiger) das hier läuft viel schneller als über die dbGO-Komponenten. Da lohnt sich der zusätzliche Schreibaufwand dann wieder. Ausserdem muss man hier (im Gegensatz zu Deiner Lösung) nichts in der Datenbank selbst implementieren.

Aber nun zurück zur Ausgangsfrage:

Wenn ich also einen beliebigen SQL-String an eine Datenbank senden möchte und eine Ausgabe wie folgt erzielen möchte:

SQL-Code:

SQL> DELETE FROM Tabelle Where Feld = 1;

12 Datensätze gelöscht

SQL> ALTER TABLE Tabelle add NeuesFeld numeric;

Tabelle geändert

Muss ich also im Prinzip den SQL-Befehl vor-parsen (damit ich weiss, was gemacht werden soll) um dann die richtige Meldung ausgeben zu können? Sollte ein Fehler auftreten, ist es wieder einfacher, weil ich dann einfach das Errors-Objekt loopen kann und alles was da drin steht ausgeben kann. Ausserdem muss ich ja auch gucken, ob es sich um einen SELECT Befehl handelt, weil dieser dann ja eine Ergebnisdatenmenge zurückliefern kann.

Vielen Dank und viele Grüsse

Frank