ado数据连接属性

[ghxghx]

1、如何在程序运行中弹出ado的数据连接属性对话框；2、将用户设定的连接属性记录下来：：

[nhdj]

同意：things(平) (走在未知世界)

[things]

//界面上有三个控件ADOConnection1，Edit1，Button1
//Edit1.text记录连接字符串

uses AdoConEd;

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Close;
if EditConnectionString(ADOConnection1) then
begin
Edit1.Text := ADOConnection1.ConnectionString;
ShowMessage(ADOConnection1.ConnectionString);
end;
end;

[cnhgj]

正解!

[IORILI]

学习

[Goxu]

uses Form2所在单元；

procedure TForm1.Button1Click(Sender: TObject);
var
frDisplay: TForm2;
begin
try
frDisplay := TForm2.Create(Application);
with frDiaplay do
Edit1.Text := ADOConnection1.ConnectionString;
end;
finally
frDisplay.Free;
end;
end;