如何使用ADO对数据进行添加、修改与删除、查询

采用adoquery。
用sql语句。

其实我即使不使用ADO，源码写的也十分臃肿，此次是我第一次使用ADO，
照着书本只会Locate('cardno',seekvalue, [locaseinsensitive,loPartialKey]);（还不懂什么意思）。请大家帮忙

添加
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;

Locate('cardno',seekvalue, [locaseinsensitive,loPartialKey]);
是怎么回事呢？？

不用代码亚可以的呀，新建立一个程序，
放入ADOConnection1
设置其 ConnectionString
加入 ADOTable1
设置其 CONNECTION 为  ADOConnection1
设置 tablename 为你的数据库的一个表。
加入 DataSource1.dataset 为  ADotable1
加入 DBGrid1，DBNavigator1  设置其datasource 为  DataSource1
adotable1.active:=true;
看到了么？可以控制这个数据库的一个表了，增加，删除。更新

如果想详细了解：与我联系， ociq 88598744

可是我现在不用DBNavigator呀；
我用
procedure Tcheckm.upbtnClick(Sender: TObject);
begin
label6.caption:=datetimetostr(now);
ADOQuery1.insert;
adoquery1.fieldbyname('cardno').asstring :=copy(edit1.text,3,6);
adoquery1.fieldbyname('intime').asstring :=label6.caption;
adoquery1.post;
edit1.text:='';
end;
可是DBGRID不刷新，非要退出，再进才从DBGRID中发现

看看李维写的Delphi的<<ADO/MTS/COM+>>吧。里面有ADO的很多good.

adoquery1.close;
adoquery1.open;
ok

<<ADO/MTS/COM+>>对ADO数据库操作讲的并不全。

要刷新的话把Query控件的cursortype属性设置为ctdynamic就可以了。

With ADOQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Add(' Delete * From Table1')/(select * from table1)
  ExecSQL;
  open;//要看结果显示
end;

我一直都用这样一个函数的：
procedure ReFreshAdoAuery(Ctrl : TadoQuery)
begin
   Ctrl.cursortype = ctkeyset;   //默认值
   Ctrl.cursortype = ctdynamic;  //数据集游标设为动态，即可刷新
   Ctrl.cursortype = ctkeyset;   //设回默认值
end;

...
procedure Tcheckm.upbtnClick(Sender: TObject);
begin
label6.caption:=datetimetostr(now);
ADOQuery1.insert;
adoquery1.fieldbyname('cardno').asstring :=copy(edit1.text,3,6);
adoquery1.fieldbyname('intime').asstring :=label6.caption;
adoquery1.post;
edit1.text:='';
end;
procedure Tcheckm.downbtnClick(Sender: TObject);
begin
label6.caption:=datetimetostr(now);
ADOQuery1.insert;
adoquery1.fieldbyname('cardno').asstring :=copy(edit1.text,3,6);
adoquery1.fieldbyname('outtime').asstring :=label6.caption;
adoquery1.post;
edit1.text:='';
end;
...
为何DBGRID不刷新。

ADO是一个基本、常用的东西；一般的资料、文档中都有；建议dzogchen(雪茹)　查查资料。最后，特别：把无聊的财疯子吊在门外的大树上...

tom_fine(小李)，何许人也？留下买路钱来！

天天看到tom_fine(小李)的帖子，贴多了更没人信

先建立记录集（recordset)，连接随便你是否创建，可以用纪录集的Delete方法删除纪录，用Update方法更新记录，用Addnew方法在缓存保存要添加的记录，用Update方法将记录保存到数据库中，例如有一个记录集rs,rs有三个字段为：ID，NAME，ADDR，可以这样添加：
rs.addnew()
rs.fields("ID")=11111
rs.fields("name")="名字"
rs.fields("ADDR")="**路**号"
rs.update()
具体的方法还有很多，可以查看MSDN

可以使用
添加：
with ADOQuery1 do
  append;

  post;
删除：
with ADOQuery1 do
   delete（选择删除的记录）；
修改：
  with ADOQuery1 do
   edit；
。
   post；

就为了这三百分呀。
告诉你一个最实用的方法。
直接使用SQL语句进行添加、删除、查询。
很八十的

用SQL修改數據后，DBGRID要刷新，請將數據庫關閉后再打開，DBGRID會刷新到最新數據！
用reflush方法不行。

with ADOstoredproc1 do
             begin
                  close ;
                  Parameters.Clear;
                  ProcedureName:= 'select_one';
                  with Parameters.AddParameter do
                       begin
                            DataType := ftString;
                            Direction := pdInput;
                            name := '@tbdh';
                            value:=DataSource2.DataSet.Fields[0].asstring
                       end;
                  datasource3.DataSet:=ADOstoredproc3;
                  open;
             end ;

不懂实在不懂，
不过dbgrid可以这样刷新，
dbgrid.rebind

dbgrid.rebind
写在哪个事件中

千万别太深奥，我就是要解决ADO数据添加、删除与修改的初步知识

调试易

如何使用ADO对数据进行添加、修改与删除、查询

解决方案 »