Entwickler-Ecke

Datenbanken - Access-zugriff über Delphi 7?


FiFo - Sa 18.01.03 10:24
Titel: Access-zugriff über Delphi 7?
Kann mir jemand sagen wie ich Querys an Access-Datebanken schicken kann und wie ich diese Verarbeite?

Wir zum Bsp. kriege ich aus einer Tabelle mit den Spalten:

Vorname - Nachname - Alter

Alle Personen die 25 Jahre alt sind?

Wie kann ich das mit Delphi möglichs performat lösen? Über SQL? Wie?

MfG FiFo


lkz633 - Sa 18.01.03 11:06

Ich denke mit einem tadoquery geht das am einfachsten:

Erstmal clickst du dir den connectionstring zusammen, du brauchst dazu den Microsoft.Jet.Provider.

Danach:

Quelltext
1:
2:
3:
4:
adoquery.close;
adoquery.sql.clear;
adoquery.sql.add('select * from Tabelle where Alter=25'); //* bedeutet alle Spalten
adoquery.open;

Das wars schon
Gruss lkz633


FiFo - Sa 18.01.03 13:27

Aha, danke...

und wie kann ich mir jetzt die einzelnen Zeilen herausfiltern?
Also wie kriege ich zB. den Vornamen in einen String?

Danke schon im Voraus... :)

MfG FiFo


bis11 - Sa 18.01.03 22:12

Hi,

ich verstehe das nicht ganz, wie bekommst Du den Vornamen in einen String. Du benutzt die Abfrage von lkz633 und läßt Dir das in einem DBGrid anzeigen. Oder möchtest Du die Vornamen in ein Memo oder Stringlist schreiben ?


FiFo - So 19.01.03 11:14

Ja, ich brauche die daten die ich kriege als strings/integers/...

Muss ich dann ein DB grid erstellen und das da rauslesen?
Oder gehts einfacher auch? :?:


bis11 - So 19.01.03 11:23

So habe ich es mit einer StringList gemacht :

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
Query1.SQL.Clear;
Query1.Add('SELECT Name From Tabelle');
Query1.OPEN;
Active:=True;
while not EOF do begin
  Stringlist.Items.Add(Field[0].AsString);
  next;
end;
Active:=False;


Du kannst natürlich auch mehrere Felder benutzen, mußt dann halt nur bei Fields die Zahl ändern. Feld1 = 0, Feld2 = 1 u.s.w.


lkz633 - So 19.01.03 14:05

Hi,

schau doch mal in der hilfe nach fieldbyname

Gruss lkz633


FiFo - So 19.01.03 21:18

Ok, danke, is schon alles klar! :D

Muchas Grazias Amigos! :beer:

thx

MfG FiFo