uses adoconed;procedure TForm1.Button1Click(Sender: TObject); begin if EditConnectionString(adoconnection1) then showmessage(adoconnection1.connectionstring); ADOConnection1.ConnectionString :=PromptDataSource(Handle, ADOConnection1.ConnectionString); end;
begin
if EditConnectionString(adoconnection1) then showmessage(adoconnection1.connectionstring);
ADOConnection1.ConnectionString :=PromptDataSource(Handle, ADOConnection1.ConnectionString);
end;