如果在Access添加和删除数据?比如,点butto1,就将Edit1加入数据库中。点butto2就从数据库读取数据显示在Edit1中。100分,答案出现立刻结贴!!!!!

解决方案 »

  1.   

    用'ADODB.Connection'对象,很方便滴
    //连接数据库
    var
     conn:OLEVariant;
    begin
     conn:=CreateOLEObject('ADODB.Connection');
     conn.open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source="数据库具体路径\db1.mdb"');
     //关闭数据库
     //conn.close;
    end;//存取数据库值可以用'ADODB.Recordset'
    var
      rs:OLEVariant;
    begin
     rs:=CreateOLEObject('ADODB.Recordset');
     //rs.open('select * from 表名 where 条件',conn,1);  //查询取数据 //rs.open('表名',conn,1,3);  //添加
     //rs.addnew;
     //...(添加数据)
     //...
     //rs,update;(更新数据库) //rs.close;
     //rs:=Unassigned; 释放
    end;
      

  2.   

    插入语句的例子:
    begin
        with DatamoduleADO.adoquery1 do
        begin
        sql.clear;
        sql.Add('insert into Lend(code,outdate,number,sum)'+
          'values(:code,:outdate,:number,:sum)');
        parameters.parambyname('code').value:= ComboBox1.text;
        parameters.parambyname('outdate').value:=datetostr(now());
        parameters.parambyname('number').value:=number.Text;
        parameters.parambyname('sum').value:=TotalEdit.text ;
        execsql;
        end;查询的例子
    begin
       adoquery1.close;
       adoquery1.sql.clear;
       adoquery1.sql.add('select * from tablename');
       adoquery1.open;
    end;
      

  3.   

    建议到WWW.2CCC.COM找源码学习一下
      

  4.   

    呵呵,一楼用ADO原生组件,强!