delphi学习笔记_查询、插入、删除、修改
2012-08-16 22:43
405 查看
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时注意:
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时注意:
相关文章推荐
- Elasticsearch 学习笔记 索引创建、插入、查询、修改、删除
- SQL学习笔记5 组合查询 插入/更新/删除数据 创建和操纵表
- MySQL学习笔记之七 查询、修改和删除
- Delphi-ADOQuery连接数据库的查询、插入、删除、修改
- Delphi-ADOQuery查询、插入、删除、修改
- Delphi-ADOQuery查询、插入、删除、修改
- 【T-MAC学习笔记10之--数据修改之插入数据,更新数据,删除数据】
- Delphi ADOQuery连接数据库的查询、插入、删除、修改
- sqlite学习笔记5:插入数据,查询数据和删除数据
- JPA学习笔记---JPA数据的操作:增加,删除,修改,获取,使用JPQL进行查询
- Delphi ADOQuery连接数据库的查询、插入、删除、修改
- SQL Server学习笔记3:数据库中表的插入、删除、修改、合并
- 【个人学习笔记10之--数据修改之插入数据,更新数据,删除数据.】
- Delphi-ADOQuery查询、插入、删除、修改
- MySQL 5.6学习笔记(查询数据、插入、更新、删除数据)
- Mybatis学习笔记五 修改数据与删除数据
- Oracle的学习二:表管理(数据类型、创建/修改表、添加/修改/删除数据、数据查询)
- 顺序表的创建,插入,修改,删除,查询代码
- SQL Server数据库-----基本T-SQL(查询,插入,删除,修改)
- Mysql复习--添加字段,删除字段,一次多行插入,修改字段名和类型,分组查询,建类似表,