我快不行了！！！求用DELPHI 5 ADO控件进行添加、修改、删除记录操作的源码！万分感谢！！！

Question

新增
adoquery1.insert；
adoquery1.fieldbyname('yourfield1').asstring := str;
adoquery1.fieldbyname('yourfield2').asinteger := i;
adoquery1.post;
修改
adoquery1.edit；
adoquery1.fieldbyname('yourfield1').asstring := str;
adoquery1.fieldbyname('yourfield2').asinteger := i;
adoquery1.post;
删除
adoquery1.delete;

Answer 1

用如下代码实现添加比较简单，有BUG吗？有不足之处吗？
procedure TForm2.btnCancleClick(Sender: TObject);
begin
  Close;
end;procedure TForm2.FormCreate(Sender: TObject);
begin
  ADODataSet1.Append;
end;procedure TForm2.btnAddClick(Sender: TObject);
begin
  ADODataSet1.Post;
  ADODataSet1.Append;
end;如何实现
2、输入ID（自增型）删除一条记录

Answer 2

insert是插入一条记录，Append是追加一条记录，都可以实现新增，但是最好不要在窗体创建的时候就执行append，因为这样数据库已经处于新增状态，容易出错

Answer 3

当你需要新增数据的时候就append，然后把数据写到相应的字段中，最后再post
比如在新增按键的click事件中加上
adoquery1.post；
adoquery1.fieldbyname('yourfield1').asstring := str;
adoquery1.fieldbyname('yourfield2').asinteger := i;
adoquery1.post;

Answer 4

根据id删除记录要先查找到这条记录
  if adodataset1.Locate('字段名', '要查找的id号', []) then
    adodateset1.delete;

Answer 5

首先非常感谢你的帮助！我没有用adoquery1.fieldbyname('yourfield1').asstring := str;
adoquery1.fieldbyname('yourfield2').asinteger := i;
这样的语句，
用几个DBEdit组件与ADODataSet1绑定，修改后，直接POST就实现修改了，这样有什么缺点吗？

Answer 6

呵呵，我也是刚学delphi的菜鸟，我谈谈我的看法。
我认为（个人看法，不对请指正）当你append或者edit执行后，在没有post前，数据库就一直处于编辑状态，直到用户点了更新数据库才恢复到浏览状态，所以编辑状态的时间非常之长（因为要等待用户输入数据），如果在这一段时间内其他用户对数据库进行修改就有可能会出错（这一点我不能验证，没有网络环境）以上是小弟拙见，没有试过，呵呵，我也是菜鸟一只

Answer 7

大家骤一块儿了，我也是DELPHI的菜鸟啊，自己做例子用ADO操纵数据库。可惜从没见到过正规的ADO访问数据库的源码

Answer 8

又来了一只菜鸟----本鸟。
不过我yi开始学就是用ado 那位高手能教在下table里面的catchedupdates 属性是怎么用呢？ado：
新增：
//假如另一条纪录在新增或编辑状态时,数据库会自动保存的;
adotable1.append; 
     保存:if not adotable1.isempty then
      //注意:不能非空保存;而且不可以在非编辑或新增状态时保存
     begin
          adotable1.edit;
          adotable1.post;
     end;
删除:if not adotable1.isempty then   //删除当前纪录 非空时才可删除
adotable1.delete;
放弃:adotable1.cancel;
编辑:  adotable1.edit;  //不过只要你对数据库修改 他自动把状态变成编辑(或新增)状态

Answer 9

批更新是什么概念？true 和 false 各有什么作用？

Answer 10

用sql语句啊，大哥，那时最灵活的！