delphi线程中动态创建ADO控件


本文整理自网络,侵删。

 procedure SendUDPThread.Execute(); 
var
AdoConn1:TADOConnection;
AdoQuery1:TAdoQuery;
begin
try
Lock.Enter;
AdoConn1:=TADOConnection.Create(nil);//动态创建ADO控件
AdoConn1.ConnectionString:=Form1.ADOConnection1.ConnectionString;
AdoConn1.LoginPrompt:=false;
AdoQuery1:=TAdoQuery.Create(Form1);
AdoQuery1.Connection:=AdoConn1;

with AdoQuery1 do
begin
SQL.Add('select * from Users where id='+inttostr(RecordID)+' order by id desc'); //RecordID是我在线程创建时定义的一个私有变量
open;
While not eof do
begin
Form1.Memo1.Lines.Add(FieldByName('Name').AsString);
next;
end;
end;

Form1.Memo1.Lines.Add('处理成功.');
Lock.Leave;
AdoConn1.Close;
AdoQuery1.Destroy;
AdoConn1.Destroy;//消除
except
Lock.Leave;
AdoConn1.Destroy;
AdoQuery1.Destroy;
Form1.Memo1.Lines.Add('处理失败.');
end;

相关阅读 >>

Delphi xe, xe10, 创建 activeform 和 activex 工程的方法

Delphi byte类型算术运算

Delphi json 转换成 tfdmemtable

webbrowser点击没有id和name的按钮或链接

Delphi中判断某个文件是否已经打开

Delphi xe datasnap服务器获取客户端ip地址

Delphi编程用流来读取txt文件中的数据

Delphi winsock 域名获取远程服务器ip

Delphi winapi: getdesktopwindow - 返回桌面窗口的句柄

Delphi 图像旋转90° 反旋转90°

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...