社区
数据库相关
帖子详情
各位大侠:当ADOQuery在异步执行状态下怎么等待它的返回值(在线等)
wooden954
2003-08-21 10:45:44
如题,我需要使ADOQuery在异步状态下执行,但又要等待它的返回值,这个问题有没有办法解决呢?
...全文
58
1
打赏
收藏
各位大侠:当ADOQuery在异步执行状态下怎么等待它的返回值(在线等)
如题,我需要使ADOQuery在异步状态下执行,但又要等待它的返回值,这个问题有没有办法解决呢?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hnhb
2003-08-22
打赏
举报
回复
OnFetchComplete
Delphi 点击节点某个选项显示相对应的数据信息.rar
Delphi 点击Tree节点的某个选项后,右侧会对应显示出数据信息,左侧的树节点信息从Access数据库读取出来,实际上当我们单击左侧数据的时候,右侧数据同样是从Access数据库读取,只不过关联的ID,就是左侧的数据项,实现这一功能,对应的代码为: procedure TForm1.TreeView1Click(Sender: TObject); begin with
ADO
Query
2 do begin Close; SQL.Clear; SQL.Add('Select * From msn where 姓名 =:a'); Parameters.ParamByName('a').Value:=TreeView1.Selected.Text; Prepared; open; end; if (
ADO
Query
2.RecordCount>0)and(Treeview1.Selected <> Nil) then with
ADO
Query
2 do begin Edit1.Text:=
ADO
Query
2.fieldbyname('ID').AsString; Edit2.Text:=
ADO
Query
2.fieldbyname('姓名').AsString; Combobox1.Text:=
ADO
Query
2.fieldbyname('性别').AsString; DatetimePicker1.Date:=
ADO
Query
2.fieldbyname('出生日期').Value; Edit3.Text:=
ADO
Query
2.fieldbyname('民族').AsString; Edit4.Text:=
ADO
Query
2.fieldbyname('家庭电话').AsString; Edit5.Text:=
ADO
Query
2.fieldbyname('手机号码').AsString; Edit6.Text:=
ADO
Query
2.fieldbyname('QQ号码').AsString; Edit7.Text:=
ADO
Query
2.fieldbyname('E_mail').AsString; Memo1.Lines.Text:=
ADO
Query
2.fieldbyname('备注').AsString; Combobox2.Text:=
ADO
Query
2.fieldbyname('类型').AsString; end; end;
ado
query
+fastreport+主从表
环境:delphi7、
ado
query
、fastreport; 功能:使用
ado
query
在fastreport实现主从表源码
Delphi
ado
query
处理多条SQL语句
Delphi
ado
query
处理多条SQL语句
Delphi将
ADO
QUERY
的Parameters存储到流中的演示.rar
在Delphi环境下,将
ADO
QUERY
的Parameters存储到流中可能不太实用,但在基于TCP/IP 套接字模式开发的类三层架构中,如虫虫的远程数据对象,若能采用此法,必将大幅度提高此类对象的使用范围及查询效率。 本演示程序核心单元Web
Ado
Stream的流读写部分改编自New Midas VCL Library(1.00)的JxStream.pas,为方便与
Ado
Query
的接口,笔者专门编写了
Ado
Query
SaveTostream(将
ADO
Query
的查询语句及Parameters保存到流中)、
Ado
Query
LoadFromstream(从流中恢复
ADO
Query
的查询语句及Parameters)2个过程。
经济批量订货决策系统
ado
query
1.Close;
ado
query
1.SQL.Text:='select * from cs';
ado
query
1.Open; a :=
ado
query
1.fieldbyname('a').Value;...................................//a、b参数的获取 b :=
ado
query
1.fieldbyname('b').Value;
ado
query
1.close;
ado
query
1.SQL.Text:='select x from yc where id =1';
ado
query
1.Open; x :=
ado
query
1.fieldbyname('x').Value; ……………………….//要预测的产品数量x。 y:=a + b * x; ……………………//计算y的值 with
ado
query
1 do begin close; sql.Clear; sql.Add('update yc set y =:y1 where id=1'); …………………… //将y的值写入yc表。 parameters.ParamByName('y1').Value:=floattostr(y); execsql; close;
数据库相关
2,495
社区成员
88,444
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章