在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
//查询记录 procedure TForm1 . Button1Click(Sender: TObject);
begin ADOQuery . Close;
ADOQuery . SQL . Clear;
ADOQuery . SQL . Add( 'select * from YourTABLE where 查询条件' );
ADOQuery . Open;
//插入记录 procedure TForm1 . Button2Click(Sender: TObject);
begin ADOQuery . Close;
ADOQuery . SQL . Clear;
ADOQuery . SQL . Text:= 'insert into YourTABLE(字段1,字段2) values(:字段1,:字段2)' ;
// ADOQuery.SQL.Add('insert into YourTABLE values(:字段1)'); ADOQuery . Parameters . ParamByName( '字段1' ).Value:=trim(Edit1 . Text);
ADOQuery . Parameters . ParamByName( '字段2' ).Value:=trim(Edit2 . Text);
ADOQuery . ExecSQL;
end ;
//删除记录 procedure TForm1 . Button3Click(Sender: TObject);
begin ADOQuery . Close;
ADOQuery . SQL . Clear;
ADOQuery . SQL . Text:= 'Delete from YourTABLE where 字段3=:字段3' ;
//这里没有添加where的条件判断,实际使用时,注意添加判断 // ADOQuery.SQL.Add('Delete from NEW_TABLE 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)
//修改记录 procedure TForm1 . Button4Click(Sender: TObject);
begin ADOQuery . Close;
ADOQuery . SQL . Clear;
ADOQuery . SQL . Text:= 'Update YourTABLE SET 字段4=:字段4' ;
//这里没有添加where的条件判断,实际使用时,注意添加判断 // ADOQuery.SQL.Add('Update YourTABLE SET 字段4=:字段4'); ADOQuery . Parameters . ParamByName( '字段4' ).Value:=trim(Edit4 . Text);
ADOQuery . ExecSQL;
//即时更新插入、删除、修改后的记录 在上面插入、删除、修改的语句后添加如下代码即可: ADOQuery . Close;
ADOQuery . SQL . Add( 'select * from YourTABLE where 查询条件' );
ADOQuery . Open;
//使用ADOQuery时注意:
1、如果你需要更改数据,query.requestlive必须为true 2、如果有输入参数的时候,容易出错,通常的错法是这样: |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论