delphi学习笔记_查询、插入、删除、修改
来源:互联网 发布:与明星合照软件 编辑:程序博客网 时间:2024/04/26 12:23
1、查询循环遍历数据
with adoquery1 do
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 表名where 查询条件');
adoquery1.Open;
end;
遍历:
with adoquery1 do
begin
close;
sql.add('select * from 表名');
prepared;
open;
first;
while not eof do
begin
combobox1.items.add(fieldbyname('字段').asstring);
next;
end;
或者写成:
var
icount:integer;
icount:=adoquery1.recordcount;
for i:=1 to icount do
begin
combobox1.items.add(fieldbyname('字段').asstring);
next;
end;
或者是:
with adoquery1 do
begin
recordset.movefirst;
while not recordset.eof do
begin
combobox1.items.add(recordset.fields['字段'].value.asstring);
recordset.movenext;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select * from YourTABLE where 查询条件');
ADOQuery.Open;
end;
2、ADOQuery插入
with ADOQuery do
Close;
SQL.Clear;
SQL.Text:='insert into 表名(字段1,字段2) values(:字段1,:字段2)';
Parameters.ParamByName('字段1').Value:=trim(Edit1.Text);
Parameters.ParamByName('字段2').Value:=trim(Edit2.Text);
ExecSQL;
end
或者直接写成:
sql :='insert into 表 values(ID,loginn,username1,password1,quanxian14,quanxian2,remark)values ('+trim(Edit1.Text);+','+...(后面你自己补)ADOQuery1.SQL.Text := sql;
ADOQuery1.ExecSQL;
//插入记录
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Text:='insert into 表名(字段1,字段2) values(:字段1,:字段2)';
// ADOQuery.SQL.Add('insert into 表名 values(:字段1)');
ADOQuery.Parameters.ParamByName('字段1').Value:=trim(Edit1.Text);
ADOQuery.Parameters.ParamByName('字段2').Value:=trim(Edit2.Text);
ADOQuery.ExecSQL;
end;
3、删除
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Text:='Delete from 表名 where 字段3=:字段3';
//这里没有添加where的条件判断,实际使用时,注意添加判断
// ADOQuery.SQL.Add('Delete from 表名 where 字段3=:字段3');
ADOQuery.Parameters.ParamByName('字段3').Value:=trim(Edit3.Text);
ADOQuery.ExecSQL;
//删除记录也可用DeleteRecords()函数
procedure DeleteRecords(AffectRecords: TAffectRecords = arAll);
这个函数有一个参数:AffectRecords可以取如下的值:
1、arCurrent :删除当前记录
2、arFiltered :删除符合Filter过滤后的所有记录(如果你使用Filter过滤的话)
3、arAll
4、arAllChapters :Delete affects all chapters(ADO chapters)
4、修改
procedure TForm1.Button4Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Text:='Update 表名 SET 字段4=:字段4';
//这里没有添加where的条件判断,实际使用时,注意添加判断
// ADOQuery.SQL.Add('Update 表名 SET 字段4=:字段4');
ADOQuery.Parameters.ParamByName('字段4').Value:=trim(Edit4.Text);
ADOQuery.ExecSQL;
5、即时更新插入、删除、修改后的记录
在上面插入、删除、修改的语句后添加如下代码即可:
ADOQuery.Close;
ADOQuery.SQL.Add('select * from 表名 where 查询条件');
ADOQuery.Open;
//使用ADOQuery时注意:
- delphi学习笔记_查询、插入、删除、修改
- Delphi-ADOQuery查询、插入、删除、修改
- Elasticsearch 学习笔记 索引创建、插入、查询、修改、删除
- Delphi ADOQuery连接数据库的查询、插入、删除、修改
- Delphi ADOQuery连接数据库的查询、插入、删除、修改
- SQL 学习笔记_插入删除
- 插入 修改 删除 查询 存储过程
- php查询、插入、删除、修改记录
- mysql的插入,查询,修改和删除
- MySQL学习笔记之七 查询、修改和删除
- 11_图书信息管理系统_查询_添加_修改_删除
- B树学习----查询 插入 删除
- mysql学习4—插入、查询、删除
- MySQL操作03_插入、修改和删除数据操作
- 单链表的基本操作_创建、查询、插入、删除
- 【个人学习笔记10之--数据修改之插入数据,更新数据,删除数据.】
- 【T-MAC学习笔记10之--数据修改之插入数据,更新数据,删除数据】
- SQL Server学习笔记3:数据库中表的插入、删除、修改、合并
- hdu 4363 Draw and paint
- RTEMS 为什么必须使用GNU的工具链开发?
- java-复制文件
- 进程枚举
- C++ 中将构造函数,析构函数声明为private,protected
- delphi学习笔记_查询、插入、删除、修改
- memcached内存管理(1) ----------------slabs
- C#中HashTable的用法
- jquery DOM 事件冒泡 魔法图书馆
- android 3d相册实例
- 强烈推荐牧风WordPress主题 iPhoto最终版本可采集
- PDSCH资源分配方式TYPE1
- spring动态定时器封装
- Linux USB驱动分析