ODBC-Setup

[prelude247]

Hi!

Ich habe ein Programm geschrieben das auf mehreren Datenbanken laufen soll.(nicht gleichzeitig)
Die ODBC-Datenquellen sind schon vorhanden.

Damit ich nicht jedesmal, wenn das Programm mit einer anderen DB arbeiten soll, den Connectionstring ändern muß, wollte ich eine Art Setup einbauen.

Wie kann man den Connectionstring zur Laufzeit aufbauen und wo bekomme ich die Infos dazu her?

MfG
Prelude247

[SKolberg]

Hi,

mit ODBC selbst habe ich noch nicht gearbeitet, allerdings müsste es funktionieren in dem du die Option bei deiner "Connection" vor dem Connecten angibst:

Delphi-Quellcode:

procedure OnConnectClick (Sender:TObject);
begin
ODBCConnection.Database:= 'DB-Name';
ODBCConnection.User:= 'Username';
ODBCConnection.Password:= 'Passwort';
ODBCConnection.Active:= True;
end;

usw..

Wobei du das .Database, .User in den einstellungen nachgucken kannst. Die Optionen würde ich in ein Form einbauen und in der Registry oder einer .Ini speichern.


Mfg, Steve

[prelude247]

Danke Steve.

Werde mich gleich morgen früh mal damit befassen.

MfG
Prelude247

[SKolberg]

Hier habe ich nochmal ein Bsp. wie ich es bei mir (SQL über ZConnection) gemacht habe...

Delphi-Quellcode:

//Konstanten die aus einer INI eingelesen werden---------------------------------

const
   INICONNECTIONDATA = 'RemoteConnection';
   INI_VAL_HOSTNAME = 'Hostname';
   INI_VAL_PORT = 'Port';
   INI_VAL_USER = 'User';
   INI_VAL_PASSWORD = 'Password';
   INI_VAL_DATABASE = 'Database';
   INI_VAL_TABLENAME = 'Tablename';
   INI_VAL_PROTOCOL = 'Protocol';

//Einlesen aus der INI-----------------------------------------------------------

with IniFile do
  begin
    HostRem.Text := ReadString(INICONNECTIONDATA, INI_VAL_HOSTNAME, '');
    PortRem.Text := ReadString(INICONNECTIONDATA, INI_VAL_PORT, '');
    UserRem.Text := ReadString(INICONNECTIONDATA, INI_VAL_USER, '');
    PassRem.Text := ReadString(INICONNECTIONDATA, INI_VAL_PASSWORD, '');
    DBRem.Text := ReadString(INICONNECTIONDATA, INI_VAL_DATABASE, '');
    DBDRRem.Text := ReadString(INICONNECTIONDATA, INI_VAL_PROTOCOL, '');
  end;
     IniFile.Free;

//Beim Click auf den Connect-Button----------------------------------------------
  
  begin
    with ZConnection1 do
  begin
    DisConnect;
  end;
  begin
    HostName := Trim(HostRem.Text);
    Port := StrToInt(Trim(PortRem.Text));
    User := Trim(UserRem.Text);
    Password := Trim(PassRem.Text);
    Database := Trim(DBRem.Text);
    Protocol := Trim(DBDRRem.Text);
    Connect;
  end;
  end;

Im Anhang siehst du woher ich den HostName, Port, Password etc habe...

Mfg, Steve

[prelude247]

Danke für deine Hilfe, konnte einiges davon gebrauchen.

MfG
Prelude247