标题:with adoquery1 do?
只看楼主
qpfmates
Rank: 1
等 级:新手上路
帖 子:409
专家分:0
注 册:2008-9-20
结帖率:100%
 问题点数:0 回复次数:3 
with adoquery1 do?
这句怎样用?我在看数据库方面的程序时经常见到这句话
搜索更多相关主题的帖子: 数据库 
2008-09-28 21:36
duanchangren
Rank: 1
等 级:新手上路
威 望:1
帖 子:252
专家分:0
注 册:2008-7-26
得分:0 
2008-09-30 11:12
happynight
Rank: 8Rank: 8
等 级:贵宾
威 望:15
帖 子:807
专家分:760
注 册:2008-4-26
得分:0 
Delphi?
2008-09-30 11:17
ruanjian2110
Rank: 3Rank: 3
来 自:武汉
等 级:论坛游民
威 望:7
帖 子:486
专家分:50
注 册:2008-5-25
得分:0 
adoquery 用法
添加
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Insert Into Table1(Field1,Field2)')
SQL.Add(' Values(10,20)');
ExecSQL;
end;

修改
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Update Table1 Set Field1=20,Field2=30)')
ExecSQL;
end;

删除
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Delete From Table1')
SQL.Add(' Where Field1=20 and Field2=30');
ExecSQL;
end;

查询
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Select Field1,Field2 From Table1')
SQL.Add(' Where Field1=20 and Field2=30');
Open;
end;

添加:
with ADOQuery1 do
append;
。。。
post;
删除:
with ADOQuery1 do
delete(选择删除的记录);
修改:
with ADOQuery1 do
edit;
。。。。
post;




adotable1.Append; //添加
ADotable1.Fields.FieldByName('gxid1').Value:=gx;
adotable1.Post;

adotable1.delete; //删除

adotable1.edit; //修改
ADotable1.Fields.FieldByName('gxid1').Value:=gx;
adotable1.post;




WITHI adoquery do
begin//添加
adoquery.open;//motice set adoquery.sql
adoquery.append;//OR adoquery.insert;
fieldbyname(fieldname).asstring:=trim(edit1.text);
..
adoquery.post;
end;
删除:
adoquery.delete
修改:
adoquery.edit;
fieldbyname(fieldname).asstring:=trim(edit1.text);
有关细节可以参看帮助OR DEMO

武汉信控科技有限公司:http://www. 超越技术,本身就是一个美好技术。。。。。。
2008-10-07 10:37



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-235702-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.266646 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved