ADO的简单问题

[phoenix_l]

请问如何在Delphi中使用代码调出ADO的连接属性对话框？

[sandyen]

你想搞什么呀，不太可能吧！！！

[outer2000]

uses adoconed
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if ADOConEd.EditConnectionString(ADOConnection1) then
ADOConnection1.Open;
end;

[短歌如风]

function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
在ADODB单元,是在ADO的连接属性对话框中点击"Build..."后的那个对话框.

[短歌如风]

如果要完整的,在...\Dephi5\Source\Property Editors\AdoConEd.pas中.把它加入到你的工程中,然后:
uses AdoConEd;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TConnEditForm.Create(self) do
begin
ShowMessage(Edit(''));
Release;
end;
end;

[phoenix_l]

outer2000(天外流星) ，你的ADOConEd是什么？我不太清楚。可否说清楚点。：）

plainsong(轻风) ，我用PromptDataSource（Application.Handle,ADOC.ConnectionString）之后，编译报错[Error] Fmain.pas(208): Undeclared identifier: 'PromptDataSource'
为什么？

[liuhelin]

function PromptDataSource(ParentHandle: THandle; InitialString: WideString):
这其实是个api，而且还是未公开的。

[phoenix_l]

谢谢各位，问题已经解决了。：）

[yuanjunjing]

搞定了为什么不结贴！？