Delphi2010 und ADO

[Sir Rufo]

Bau das mal in dein Projekt (oder auch ein Testprojekt) ein und erstelle an dem Zielrechner damit den ConnectionsString.

Dann siehst du auch sofort, welche ADO-Provider dort vorhanden sind.

Delphi-Quellcode:

uses 
  Classes, 
  SysUtils, 
  OleDB, 
  ComObj, 
  ActiveX;

function ADOConnectionString(ParentHandle: THandle; InitialString: WideString; out NewString: string): Boolean;
var
  DataInit: IDataInitialize;
  DBPrompt: IDBPromptInitialize;
  DataSource: IUnknown;
  InitStr: PWideChar;
begin
  Result   := False;
  DataInit := CreateComObject(CLSID_DataLinks) as IDataInitialize;
  if InitialString <> '' then
    DataInit.GetDataSource(nil, CLSCTX_INPROC_SERVER, PWideChar(InitialString),
      IUnknown, DataSource);
  DBPrompt := CreateComObject(CLSID_DataLinks) as IDBPromptInitialize;
  if Succeeded(DBPrompt.PromptDataSource(nil, ParentHandle,
    DBPROMPTOPTIONS_PROPERTYSHEET, 0, nil, nil, IUnknown, DataSource)) then 
  begin
    InitStr := nil;
    DataInit.GetInitializationString(DataSource, True, InitStr);
    NewString := InitStr;
    Result    := True;
  end;
end;