Let Windows build an ADO connection string
I see always people manually building the connection string. Why not use the dialog that windows provide for us ? Of course
it is possible to use the PromptDataSource in ADODB, but this give not the opportunity to see if the user has pressed OK or
Cancel, so we dont know when to save the changes. So I use this code instead. I hope it benefit many people.
|
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 |
uses 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; |