Dialog für Aufbau des Connection String in eigenem Programm

[Gambit]

Hallo,

ich möchte mit ADO auf verschiedene Datenbanken zugreifen. Den Typ kann ich aber zur Entwurfszeit noch nicht festlegen.
Ist es wohl möglich, den Dialog zum Aufbau eines Connection Strings, den Delphi verwendet(Datenverknüpfungseigenschaften oder Microsoft Data Link, was wohl vom BS kommt) auch irgendwie in eigenen Programmen zu verwenden? Wenn ja, wie geht das?

Gruß

Gambit

[BluesKid]

Moin moin

Connection String zur Laufzeit


schönen Gruß

Sam

[Akut-Programming]

Hi!

Ich habs vor kurzem in ner Anwendung auch gebraucht, das man den ConnectionString zur Laufzeit setzen kann. Hier ist mal die Prozedur:

Delphi-Quellcode:

procedure TfrmLogin.FormCreate(Sender: TObject);
var
   ini: TIniFile;
begin
     OwnFilesPath:=GetSpecialFolder(Handle, CSIDL_PERSONAL);
     if FileExists(OwnFilesPath+'\AMS\database.ini')
     then begin
          ini:=TIniFile.Create(OwnFilesPath+'\AMS\database.ini');
          try
             with frmMain do begin
                  varUserID:=ini.ReadString('DBSettings', 'UserID', '');
                  varDSN:=ini.ReadString('DBSettings', 'DSN', '');
                  varDB:=ini.ReadString('DBSettings', 'DB', '');
                  varServer:=ini.ReadString('DBSettings', 'Server', '');
                  varPassword:=ini.ReadString('DBSettings', 'Password', '');
                  varPort:=ini.ReadString('DBSettings', 'Port', '');
                  MySQLCS:='Provider=MSDASQL.1;Persist Security Info=False;User ID='+varUserID+';Data Source='+varDSN+';Extended Properties="DSN='+varDSN+';DESC=MySQL ODBC 3.51 Driver DSN;DATABASE='+varDB+';SERVER='+varServer+';UID='+varUserID+';PASSWORD='+varPassword+';PORT='+varPort+';SOCKET=;OPTION=3;STMT=;"';
                  ADOConnection1.ConnectionString:=MySQLCS;
                  ADOConnection1.Connected:=true;
             end;
          finally
                 ini.Free;
          end;
     end;
     frmLogin.ShowModal;
     CloseAction:=caNone;
end;

[Gambit]

Allerbesten Dank!!

Gambit