Datenbankverbindung mittels ODBC (System.Data.Odbc)

**MrZweig**

Hallo zusammen,

da ich heute nachmittag selbst recht lang an einer moeglichen
Loesung probiert habe, hier mein Code um eine externe oder
lokale MySQL Datenbank zu verbinden, und die enthaltenen
Daten der Tabelle in eine XML-Struktur zu laden.

Dabei muessen zusaetzlich die folgenden Namespaces in die
Uses-Anweisung eingebunden werden:

markieren

Delphi-Quellcode:

			  System.Xml,

  System.Data,

  System.Data.Odbc;

zusammenfalten · markieren

Delphi-Quellcode:

			procedure frmMain.DBConnect_cb;

var

  //connString: String;

  connector: OdbcConnection;

  cmd: OdbcCommand;

  adapter: OdbcDataAdapter;

  data: DataSet;

  xmlparser: XmlDataDocument;

  xmlnode: XmlNodeList;

  i: Integer;

begin

  //connString := 'DRIVER={MySQL ODBC 3.51 Driver};' +

  //                       'SERVER=localhost;' +

  //                       'DATABASE=myDB;' +

  //                       'UID=Benutzername;' +

  //                       'PASSWORD=Passwort;' +

  //                       'OPTION=3';

  connector := OdbcConnection.Create();

  connector.ConnectionString := 'DSN=myDSN';

  connector.Open;

  adapter := OdbcDataAdapter.Create();

  adapter.SelectCommand := OdbcCommand.Create('SELECT * FROM table1',connector);

  data := DataSet.Create;

  adapter.Fill(data);

  xmlparser := XmlDataDocument.Create(data);

  xmlnode := xmlparser.GetElementsByTagName('spalte1'); 

  MessageBox.Show(IntToStr(xmlnode.Count)); // Anzahl der Datensaetze

  data.Free;

  adapter.Free;

  connector.Close;

end;

Wer jetzt einen guten Tip hat um die XML-Nodes in ein Array zu bekommen,
sodass man die Daten bearbeiten kann, waere eine sample Application
bereits komplett

Gruss,
MrZweig

Datenbankverbindung mittels ODBC (System.Data.Odbc)

Datenbankverbindung mittels ODBC (System.Data.Odbc)

Forumregeln