如何调用window已有的界面动态生成connectionstring

Question

Tadoconnection.connectionstring属性中可以选择...按钮弹出一个配置connetionstring的程序。
请问我在程序中如何能够调用到这段程序，生成我的connectionstring?

Answer 1

Tadoconnection.connectionstring:=把那串字符拷下来就行了

Answer 2

cFile := ExtractFileDir(Application.ExeName)+'\database\客户管理.mdb' ;
adoquery6.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+cfile;
一个连接access数据库的实例
adoconnection、adotable等都是一样的方法

Answer 3

可以建立一个*.udl的文件，打开这个文件就可以弹出系统的窗体了。

Answer 4

uses DB, ADODB;...procedure TMainForm.SetupActionExecute(Sender: TObject);
var
  s: String;
begin
  s := PromptDataSource(Handle, DataConnection.ConnectionString);
  if CompareText(s, DataConnection.ConnectionString) <> 0 then
    DataConnection.ConnectionString := s;
end;

Answer 5

procedure tbutton1.click(sender:tobject);
begin
  if editconnectionstring(Tadoconnection) then
     edit1.text:=Tadoconnection.connectionstringend;
end;