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

[5556667]

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

[Kevin_Lmx]

关->设置->打开

[polly_110]

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

[zzlazio]

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;

[lvenx]

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