如何动态设置ADOQuery的Connection属性?

Question

我想把ADOQuery1的Connection,设置成DM.ADOConnection1,
我用如下语句
ADOQuery1.Connection := DM.ADOConnection1;
编译可以通过,但程序运行过程中,ADQOUERY1中没有数据集,不知为什么?

Answer 1

你的ADOQUERY1没有指定哪个数据表,ADOConnection1应该只指定了一个数据库.
你这样试试
ADOQUERY1.SQL.ADD('select * from 表名');
ADQOUERY.OPEN;

Answer 2

function ConnMss(Conn: TADOConnection; ServerName, DBName, Logid,
  PassWord: string; var sErr: string): boolean;
var
  str:string;
begin
  //判断连接控件是否存在
  if not Assigned(Conn) then
  begin
    result:=false;
    sErr:='所需 TADOConnection 控件不存在';
    exit;
  end;
  
  //连接数据库
  str:='Provider=SQLOLEDB.1;'+
       'User ID='+Logid+';'+
       'Password='+Password+';'+
       'Initial Catalog='+DBName+';'+
       'Data Source='+ServerName;
  try
    Conn.Close;
    Conn.LoginPrompt:=false;
    Conn.ConnectionString:=str;
    Conn.Open;
  except
    result:=false;
    sErr:=GetConnErrs(Conn);
    exit;
  end;      
  result:=true;
end;

Answer 3

对于ADQOUERY的使用应该是定义前先关掉，然后定义SQL。ADD（）然后ADQOUERY1。open