这个控件怎么使用??
var
con: TADOConnection;
ary:TADOQuery;
begin
with qry do
begin
acp1.GetConnection(con); //获取连接
Connection := con;
sql.add(sql语句);
Open;
acp1.ReleaseConnection(con);//释放连接
end;
end;
对么???
var
con: TADOConnection;
ary:TADOQuery;
begin
with qry do
begin
acp1.GetConnection(con); //获取连接
Connection := con;
sql.add(sql语句);
Open;
acp1.ReleaseConnection(con);//释放连接
end;
end;
对么???
con : TADOConnection;
qry :TADOQuery;
begin
qry:=TADOQuery.Create;
try
with qry do
begin
acp1.GetConnection(con); //获取连接
Connection := con;
sql.add('');
Open;
end;
finally
acp1.ReleaseConnection(con);//释放连接
end;
end;
另外安装cnpack时,也有example