请问怎样在运行期间设置TADOConnection的ConnectionString属性，急！

Question

我来说一说:
  ADOConnection.ConnectionString := '... ;'
                                  + '... ;'
                                  + '... ;'
                                  .
                                  .
                                  .
                                  + '... ;';
祝成功！
  [email protected]  

Answer 1

谢谢initora! 可是我这样写它说不符合OLE DB规定呀！
      ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password=""User ID=Admin;Data Source=D:\CQJ\cqjdate\;'
                         +'Mode=Share Deny None;Extended Properties=" ";Jet OLEDB:System database=" ";'
                         +'Jet OLEDB:Registry Path=" ";Jet OLEDB:Database Password+" ";Jet OLEDB:Engine Type=5;'
                         +'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk'
                         +'Transactions=1;Jet OLEDB:New Database Password=" ";Jet OLEDB:Create System Database=False;'
                         +'Jet OLEDB:Encrypt DAtabase=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:'
                         +'Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

Answer 2

你是否要访问NT上的数据服务器？要的话，你首先要得到NT的用户认证，先访问一下NT,再进行连接，可能就可以了！

Answer 3

TO:e8heart:
我是在w2000上调试的。
可是我在设计期间的话就没有这个问题？
我上面的代码对吗？谢谢！
对了，中间可能要加个'；'号。

Answer 4

  ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password=""User ID=Admin;Data Source=D:\CQJ\cqjdate\;'
                        +'Mode=Share Deny None;Extended Properties=" ";Jet OLEDB:System database=" ";'
                        +'Jet OLEDB:Registry Path=" ";Jet OLEDB:Database Password+" ";Jet OLEDB:Engine Type=5;'
                        +'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk '
                        +'Transactions=1;Jet OLEDB:New Database Password=" ";Jet OLEDB:Create System Database=False;'
                        +'Jet OLEDB:Encrypt DAtabase=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:'
                        +'Compact Without Replica Repair=False;Jet OLEDB:SFP=False';//你要注意空格

Answer 5

我编译可以通过呀，就是运行的时候不行，这样的话，中文标点什么的就存在了！
没有人在运行期间用过TADOConnection吗？能不能说一下？！

Answer 6

你先在设计期间设置好 ConnectionString 属性，然后把这个属性的值粘帖到代码中。
AdoConnection.ConnectionString:='粘帖在此'。

Answer 7

你实际上只写其中的一部分就可以了：
'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=D:\CQJ\cqjdate\;'

Answer 8

我是这样做的：
procedure Tmainf.ado1BeforeConnect(Sender: TObject);
const
  l1:string='Provider=SQLOLEDB.1;Password=';
  l2:string=';Persist Security Info=True;User ID=sa';
  l3:string=';Initial Catalog=mis;Data Source=computer1';
  l4:string=';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';
begin
  Ado1.ConnectionString:=l1+l2+l3+l4;
end;

Answer 9

to:Apollo47 谢谢！我掉了一个符号！^_^ 

Answer 10

to:wanwangzhiwang,我本来是给了你分的，不过，我在后面加了个小数点，出来变成了ZERO了，这不能怪我呀！以后吧！别哭，别哭，给你----糖！