TSQLConnection zur Laufzeit erzeugen

[Barthiboy]

Hallo zusammen,

ich habe ein Problem mit der TSQLConnection.
Ich verwende den Microsoft SQL Server 2012.
Wenn ich die Datenbankkomponenten nach diesem Tutorial auf dem Form plaziere funktioniert alles wunderbar. http://docwiki.embarcadero.com/RADSt...an_Application

Allerdings möchte ich die Datenbank in einem Thread verwalten.
Dazu habe ich die Komponenten zur Laufzeit erstellt.
Bei dem Verbindungsaufbau bekomme ich immer folgen Fehler:
'DBX-Fehler: Der Treiber konnte nicht korrekt initialisiert werden. Die Client-Bibliothek könnte fehlen, nicht ordnungsgemäß installiert sein, eine falsche Version haben, oder der Treiber fehlt möglicherweise im Systempfad.'

Allerdings sind die Treiber ja alle installiert, da ich mit den zur Entwurfszeit angelegten Komponenten darauf zugreifen kann.

Ich habe jetzt schon einiges mit den Parameter rumprobiert.
Allerdings alles ohne erfolg.
Ich habe auch die Params von den funktionierenden Verbindungen in ein Inifile gespeichert und
dann bei der anderen Verbindung geladen. Leider ohne Erfolg.
Hier mal mein Code:

Delphi-Quellcode:

  // Datenbankkomponenten erzeugen
  SQLC_Komm                 := TSQLConnection.Create(nil);
  SQLDS_Komm                := TSQLDataSet.Create(nil);
  DSP_Komm                  := TDataSetProvider.Create(nil);
  CDS_Komm                  := TClientDataSet.Create(nil);

  SQLDS_Teil_387918         := TSQLDataSet.Create(nil);

  // Datenbankkomponenten verknüpfen
  SQLDS_Komm.SQLConnection  := SQLC_Komm;
  DSP_Komm.DataSet          := SQLDS_Komm;
  CDS_Komm.ProviderName     := DSP_Komm.Name;

  // Datenbankverbindung zu lokaler SQL Datenbank aufbauen
  if SQLC_Komm.Connected then begin
    SQLC_Komm.Close;
  end;

  // Die ausgewählte Datenbankverbindung öffnen.
  // Daten werden dynamisch gesetzt, da jeder PC eine andere PC-Nummer hat
  SQLC_Komm.Params.SaveToFile('C:\DelphiXE5\Projekte\WEP02\Müll\Vorher.txt');

  SQLC_Komm.ConnectionName                          := 'WEP02Connection';
  SQLC_Komm.DriverName                              := 'MSSQL';
  SQLC_Komm.LibraryName                             := 'dbxmss.dll';
  SQLC_Komm.VendorLib                               := 'sqlncli10.dll';
  SQLC_Komm.GetDriverFunc                           := 'getSQLDriverMSSQL';
  SQLC_Komm.LoadParamsOnConnect                     := true;


  SQLC_Komm.Params.Values['SchemaOverride']         := '%.dbo';
  SQLC_Komm.Params.Values['DriverUnit']             := 'Data.DBXMSSQL';
  SQLC_Komm.Params.Values['DriverPackageLoader']    := 'TDBXDynalinkDriverLoader,DBXCommonDriver190.bpl';
  SQLC_Komm.Params.Values['DriverAssemblyLoader']   := 'Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=19.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b';
  SQLC_Komm.Params.Values['MetaDataPackageLoader']  := 'TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDriver190.bpl';
  SQLC_Komm.Params.Values['MetaDataAssemblyLoader'] := 'Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxMSSQLDriver,Version=19.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b';
  SQLC_Komm.Params.Values['GetDriverFunc']          := 'getSQLDriverMSSQL';
  SQLC_Komm.Params.Values['LibraryName']            := 'dbxmss.dll';
  SQLC_Komm.Params.Values['VendorLib']              := 'sqlncli10.dll';
  SQLC_Komm.Params.Values['vendorlibwin64']         := 'sqlncli10.dll';
  SQLC_Komm.Params.Values['HostName']               := PCName + '\' + SQLServerName;
  SQLC_Komm.Params.Values['Database']               := 'WEP02';
  SQLC_Komm.Params.Values['MaxBlobSize']            := '-1';
  SQLC_Komm.Params.Values['localecode']             := '0000';
  SQLC_Komm.Params.Values['isolationlevel']         := 'ReadCommitted';
  SQLC_Komm.Params.Values['os authentication']      := 'False';
  SQLC_Komm.Params.Values['PrepareSQL']             := 'True';
  SQLC_Komm.Params.Values['Password']               := '';   // Passwort versteckt für euch ;)
  SQLC_Komm.Params.Values['User_Name']              := '';   // Username versteckt für euch ;)
  SQLC_Komm.Params.Values['BlobSize']               := '-1';
  SQLC_Komm.Params.Values['ErrorResourceFile=']     := '';
  SQLC_Komm.Params.Values['os authentication']      := 'false';
  SQLC_Komm.Params.Values['prepare sql']            := 'false';
  SQLC_Komm.Params.Values['drivername']             := 'MSSQL';
  SQLC_Komm.LoginPrompt                             := false;


 // SQLC_Komm.ConnectionName                          := 'WEP02';
  //SQLC_Komm.LoadParamsFromIniFile('C:\DelphiXE5\Projekte\WEP02\Müll\geht.ini');
  SQLC_Komm.Params.SaveToFile('C:\DelphiXE5\Projekte\WEP02\Müll\Nacher.txt');
  AStr := '';
  try
    SQLC_Komm.Open;
  except
     on E: Exception do begin
       AStr := E.ToString;
     end;
  end;
    SQLC_Komm.Params.SaveToFile('C:\DelphiXE5\Projekte\WEP02\Müll\Nacher.txt');