在Delphi中调用"数据链接属性"对话框设置ConnectionString

项目需要使用"数据链接属性"对话框来设置ConnectionString,查阅了一些资料,解决办法如下:

1.Delphi

在Delphi中比较简单,步骤如下:

方法1: use ADOConED;
　　　　ADOConED.EditConnectionString(ADOConnection1);
　　　　这样我们就可以使用:
　　　　ShowMessage(ADOConnection1.ConnectionString)
　　　　查看ADOConnection1的ConnectionString了

方法2: ADOConnection1.ConnectionString:=PromptDataSource(handle,'');
　或者:
　　　 ADOConnection1.ConnectionString:=PromptDataSource(handle,ADOConnection1.ConnectionString);

 

附:PromptDataSource函数的代码:
function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
var
DataInit: IDataInitialize;
DBPrompt: IDBPromptInitialize;
DataSource: IUnknown;
InitStr: PWideChar;
begin
Result := InitialString;
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);
Result := InitStr;
end;
end;