Peter18 - Mi 26.03.14 13:26
Titel: Dao - Verbindung ohne Alias
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.
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:
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