Anfängerfrage zu ADO + Access (auslesen)

[th3lol]

Hallo!

Bitte das angehängte Bild beachten!

Bis jetzt kann ich auslesen, wie die Tabellen heißen via

Delphi-Quellcode:

  ADOConnection1.GetTableNames(ListBox1.Items);

Und kann davon dann auch die FieldNames auslesen via

Delphi-Quellcode:

  ADOConnection1.GetFieldNames('Test1',ListBox1.Items);

(in diesem Falle heißt meine Tabelle Test1)

Wie kann ich jetzt aus dieser Access-DB den Datensatz (oder wie auch immer das heißt) auslesen?
Ich brauche z.b. von "Vorname" die 3. Zelle und will z.b. wissen, was in der gleichen Zeile für Name steht.

Wie geht das?

Hab gehört ich soll BetterADODataSet verwenden - das hab ich auch schon drin, aber kann damit nix weiter anfangen. Und die Delphibeispiele sind mir im Moment noch zu komplex um da überhaupt was richtig rauslesen zu können.

[Ferber]

Ich denke mal, du brauchst zu der ADOConnection ein ADOTable oder ADOQuery, die du mit der ADOConnection verbindest.
Dann kannst du zB. mit ADOTable.FieldByName.As... auf die Felder zugreifen.

[th3lol]

danke!

Nach einigem Hin und Her hab ich es mit

Delphi-Quellcode:

var s: String;
begin
  ADOTable1.TableName:='Test1';
  ADOTable1.Open;
  s:=ADOTable1.FieldByName('Name').AsVariant;

geschafft.

Jetzt steh ich aber schon vor dem nächsten problem. Wie im Bild zu sehen ist der 1. Wert für das Feld "Name" der String "K".
Wie kann ich jetzt die anderen Werte die dadrunter sind auch noch auslesen?

Und wie die in einer anderen Spalte stehenden, die mit diesem in einer Zeile stehen?

[Ferber]

Zitat:

Zitat von th3lol

Nach einigem Hin und Her hab ich es mit

Delphi-Quellcode:

var s: String;
begin
  ADOTable1.TableName:='Test1';
  ADOTable1.Open;
  s:=ADOTable1.FieldByName('Name').AsVariant;

geschafft.

Jetzt steh ich aber schon vor dem nächsten problem. Wie im Bild zu sehen ist der 1. Wert für das Feld "Name" der String "K".
Wie kann ich jetzt die anderen Werte die dadrunter sind auch noch auslesen?

Und wie die in einer anderen Spalte stehenden, die mit diesem in einer Zeile stehen?

Ich denke das hilft:

Delphi-Quellcode:

Table1.First;
while not Table1.eof do
begin
  aName:=ADOTable1.FieldByName('Name').AsString;
  ...
  table1.next;
end;