如果在Access添加和删除数据?比如,点butto1,就将Edit1加入数据库中。点butto2就从数据库读取数据显示在Edit1中。100分,答案出现立刻结贴!!!!!
解决方案 »
- dataset 问题
- 大家都在什么系统下做开发?
- Indy9的TIdFtp连SUN的Solaris8,Size()函数返回-1,为什么?
- 求救!!急!如何在delphi里面删除一个目录树!在线等!
- 问两个很简单的问题!请帮忙解决!
- 怎样编程获得一个tif文件的哪一页?
- 简单问题,怎么读出set of char 集合里的字符,解决多给分
- 如何实现明细表的增删改除?
- ListView中怎么把选中项显示到第一行
- 请问这两ASSIGNED和raise的具体含义是什么?
- 有关TServerSocket和TClientSocket的问题
- 终于从OFFICE的ACCESS又跳到DELPHI,原来还是DELPHI好用!!!
//连接数据库
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;
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;