var conn:TADOConnection; ADOQuery1:TADOQuery; begin conn:=TADOConnection.Create; ADOQuery1:=TADOQuery.Create; try ....... ....... finally conn.Free; ADOQuery1.Free; end; end;
var adoconnection1:tadoconnection;adoconnection1:=tadoconnection.create(form1); adoconnection1.connectionstring:=...; ...//属性设置 adoconnection1.open;adoquery类似
conn:TADOConnection;
ADOQuery1:TADOQuery;
begin
conn:=TADOConnection.Create;
ADOQuery1:=TADOQuery.Create;
try
.......
.......
finally
conn.Free;
ADOQuery1.Free;
end;
end;
adoconnection1:tadoconnection;adoconnection1:=tadoconnection.create(form1);
adoconnection1.connectionstring:=...;
...//属性设置
adoconnection1.open;adoquery类似
不使用可视化的组件
在var中声明变量,如:
adoC: TADOConnection;
adoQ: TADOQuery;
之后在代码中就可以动态创建、使用并释放了。如:
adoC := TADOConnection.Create(nil);
adoC.属性的设置...
adoQ := TADOQuery.Create(nil);
adoQ.Connection := adoC;
//使用
//释放
这样就可以了