如何在程序中创建TADOConnection

Question

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';如上，一个adoconnection要创建要写这么多的东西，你必须要全部清楚才可以动态创建的。

Answer 1

呵呵，什么意思
VAR
TCON：TADOCONNECTION；
BEGIN
TCON：=TADCONNECTION。CREATE（）；
END；

Answer 2

To cobi(我是小新，我只有5岁)　:我试试在说

Answer 3

我使用的是MS SQL Server7.0，给我写个完整的例程吧

Answer 4

本人已解决，例程如下:
Var 
   ADOConn: TADOConnection;
...
if not assigned(ADOConn) then ADOConn:=TADOConnection.Create(nil);
if ADOConn.Connected then ADOConn.Close;
ADOConn.ConnectionString := 'Provider=SQLOLEDB.1;Data Source=192.100.100.1';
ADOConn.Open(sUserID,sPassword);
....