Ein freundliches Hallo an alle,
bin heute etwas vernagelt. Da sind sooo viele Bäume, dass ich den Wald nicht sehe.
Ich möchte per DAO Daten von einer Datenbank holen. Leider klappt die Verbindung nicht. Irgend eine Kleinigkeit fehlt noch, aber welche? Ich suche in den Objekten herum und finde immer weniger. So hatte ich mal die Auflistung der Tabellen gefunden, doch ich finde sie nicht wieder. Mit grafischen Objekten habe ich die Datenbank schon geöffnet, doch jetzt wollte ich das in ein Programm gießen ... Banane. Hoffe jemand hat 'nen Tipp, damit ich die Sache am laufenden Objekt studieren kann.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| Procedure GetDAO_DB( var Dsd : T_DatSrc );
var
Ds : TDataSource;
Db : TDatabase;
Sd : TDataSet;
Dt : TTable;
Sl : TStrings;
R, C : Integer;
begin
Sl := TStringlist.Create;
Ds := TDataSource.Create( nil );
Db := TDatabase.Create ( nil );
Dt := TTable.Create ( nil );
Sd := TDataSet.Create ( nil );
Ds.Name := 'DataSource';
Db.Name := 'Database';
Ds.DataSet := Dt;
Dt.DatabaseName := 'Database';
Db.DriverName := '';
Db.Params.CommaText := 'TYPE=STANDARD,ENABLED BCD=FALSE,' + 'PATH=C:\Programme\Gemeinsame Dateien\Borland Shared\Data';
Db.LoginPrompt := false;
Db.SessionName := 'Default';
Db.DatabaseName := 'Biolife';
Dt.TableName := 'Biolife.db'; Ds.Enabled := true;
Db.Connected := true;
Db.Open;
Ds.DataSet.Active; |
Das ist der erste Versuch. "Ds.DataSet.Active;" bleibt "false". Warscheinlich brauche ich einige Objekte nicht. Das wollte ich dann probieren. Im nächsten Schritt sollen die Feldnamen geholt werden. Ich möchte nach Möglichkeit ohne Alias auskommen.
Grüße von der bisher sonnigen Nordsee
Peter
