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:
Delphi-Quellcode:
System.Xml,
System.Data,
System.Data.Odbc;
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