ADO的简单问题

Question

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

Answer 1

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

Answer 2

如果要完整的,在...\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;

Answer 3

outer2000(天外流星) ，你的ADOConEd是什么？我不太清楚。可否说清楚点。：） plainsong(轻风) ，我用PromptDataSource（Application.Handle,ADOC.ConnectionString）之后，编译报错[Error] Fmain.pas(208): Undeclared identifier: 'PromptDataSource'
为什么？

Answer 4

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