如何在程序中动态连接ADO数据源？

Question

VAR
  CN    : TADOConnection;
  CNE   : TADOQUERY;
BEGIN  cn:=TADOConnection.Create(nil);
  //建立与服务器的连接  CNE:=TADOQUERY.Create(nil);
  //建立数据库查询  cn.Provider:=Provider_str;
  cn.CommandTimeout:=C_timeout;
  cn.LoginPrompt:=false;
  cn.ConnectionString:='Server='+Svr_NAME+';Database='+Database+';';  //Security是身份验证，如果为TRUE，则仅利用WINDOWS验证
  //如果为FALSE，则利用WINDOWS和SQL SERVER的双重验证  if Security then
    cn.Properties.Item['Integrated Security'].value:= 'SSPI'
  Else
    begin
      cn.Properties.item['User ID'].Value:= Username;
      cn.Properties.item['Password'].Value:= Password;
    end;
CNE.Connection:=cn;

Answer 1

拉一个ADOCONNECTION控键,设置它的connection属性,选择所要连接的数据库,设置adoquery控键的属性就可以了.明白吗??