Ein freundliches Hallo an alle,
ich habe nun mit Delphi 4 zwei Datenbankschnitstellen programmiert und sehe die Daten über DAO und ADO. Bei DAO habe ich testweise versucht die Verbindung ohne Alias herzustellen. Ich meine über Objektinspector funktioniert es ohne Alias-Eintrag. Mein Programm jammert aber nach einem Alianten. Hat jemand einen Tipp ob es geht und wenn ja, was falsch ist.
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: 31: 32: 33: 34: 35: 36: 37:
| Procedure GetDAO_DB( var Dsd : T_DatSrc ); var Ds : TDataSource; Db : TDatabase; Dt : TTable; Sl : Tstrings; R, C : Integer;
begin Sl := TStringlist.Create; Ds := TDataSource.Create( nil ); Db := TDatabase.Create ( nil ); Dt := TTable.Create ( nil );
Ds.Name := 'DataSource'; Ds.DataSet := Dt;
Db.Name := 'Database'; Db.DriverName := '';
if Dsd.Provider <> '' then Db.Params.Add( Dsd.Provider ); if Dsd.Mode <> '' then Db.Params.Add( Dsd.Mode ); if Dsd.SrcPath <> '' then Db.Params.Add( Dsd.SrcPath );
Db.LoginPrompt := false; Db.SessionName := 'Default'; Db.DatabaseName := Dsd.ExtProp;
Dt.DatabaseName := Dsd.ExtProp; Dt.TableName := Dsd.SrcFile;
Ds.Enabled := true; Db.Open; Db.Connected := true; Ds.DataSet.Active := true;
Dt.GetFieldNames( Sl ); |
Grüße von der Nordsee
Peter