Beispiel - ADO Verwendung

Owned by Former user (Deleted)
Feb. 06, 2017
1 min read

Erläuterung

In diesem Beispiel wird die grundlegende Verwendung von ADO erläutert. Es wird ein Verbingsungsobjekt und ein Queryobjekt erzeugt. Über eine entsprechende SQL-Query wird dann eine Suche über das Queryobjekt und dem verbundenen Verbindungsobjekt durchgeführt. Im Anschluss wird durch alle Datensätze iteriert und diese im Logfile ausgegeben. Abschließend werden die Verbindungen geschlossen und die Objekte freigegeben.

Skript

// ----------------------------------------------------------
// ADO Verbingsungsobjekt erstellen 
// und Verbindung herstellen
// ----------------------------------------------------------
ObjConnC := CreateOleObject('ADODB.Connection');
ObjConnC.Open('Provider=...');

// ----------------------------------------------------------
// ADO Queryobjekt erstellen
// und Verbindung zuweisen
// ----------------------------------------------------------
ObjRSC   := CreateOleObject('ADODB.RecordSet');
ObjRSC.ActiveConnection := ObjConnC;

// ----------------------------------------------------------
// Query definieren und Abfrage öffnen
// ----------------------------------------------------------
Query := 'SELECT * FROM [myTable] WHERE CUSTNR = "4711"';
ObjRSC.Open(Replace(Query, '"',chr(39)));

// ----------------------------------------------------------
// Treffer vorhanden?
// ----------------------------------------------------------
if ObjRSC.EOF = false then
begin
  // ----------------------------------------------------------
  // Alle Records durchlaufen
  // ----------------------------------------------------------
  while ObjRSC.EOF = false do
  begin
    WriteLog(VarToStr(ObjRSC.Fields('CUSTNAME').Value)));

    ObjRSC.MoveNext;
  end;
  
  // ----------------------------------------------------------
  // Query schliessen - nur bei mehr als 0 Treffern
  // ----------------------------------------------------------
  ObjRSC.Close;
End;

// ----------------------------------------------------------
// Verbindung schliessen
// ----------------------------------------------------------
ObjConnC.Close;
 
// ----------------------------------------------------------
// Freigeben
// ----------------------------------------------------------
ObjRSC   := UnAssigned;
ObjConnC := UnAssigned;