DELPHI里如何动态的改变ADO控件的CONNECTION信息？

Question

可以的，　动态设置基参数。　然后读取字符串。通过写入注册表或者是。ini文件.
　uses Registry,  //先uses 一下procedure TForm1.Button1Click(Sender: TObject);//写入var Reg: TRegistry; 
begin 
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\key',True);
Reg.WriteString('User',edtUser.Text);  //访问用户名
Reg.WriteString('Password',edtPassword.Text); //访问密码
Reg.WriteString('server',edtip.Text);  //服务器名Reg.Free; end;procedure TForm1.button2Click(Sender: TObject);//读取var Reg: TRegistry; 
begin 
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\MyKey',True);
label1.Caption := Reg.ReadString('User');
label2.Caption := Reg.ReadString('Password');
label11.Caption := Reg.ReadString('ip');Reg.Free; 
end;把其连接起来。　不就行了。

Answer 1

把字符串连起来，动态传给connection属性

Answer 2

可以用字符串连接，你看看connectstring就明白是什么意思了

Answer 3

打开 HKEY_CURRENT_USER\SoftWare\ODBC\ODBC.INI\ 看看！
up

Answer 4

2楼说的有理，给connectionstring复制就可以了

Answer 5

主要是设置ADOConnection1.ConnectionString即可

Answer 6

其实可以在窗体中加一个Edit组件，然后把这个组件的Visible属性设置为False；然后把你打开的数据库文件的路径保存在这里形成一个字符串，最后在程序中加上这样一条语句：
adotable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Form1.Edit1.Text+';Persist Security Info=False';就可以进行动态设置了

Answer 7

既然是ado就不用odbc了动态取得机子名称就可以了

Answer 8

用sql server为例子
adocn.ConnectString := '  Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=OHM'

Answer 9

用个UDL文件不就可以了吗? 何必那么麻烦还要用INI文件呢.
把这个UDL文件的全路径名赋给ConnectString就OK了.
UDL文件的编辑也很方便,相信只要是WINDOWS平台都是可以双击打开的.