vb如何对ACCESS数据库进行修改

在text1旁边添加”修改“按钮，点击按钮写如下代码：

‘前面是打开链接数据库代码

sqlStr1 = " update xjhy set money=“ & VAL(text1.text) &"whereID=" &"你要修改的纪录ID值"

rs.Open sqlStr1, conn, 1, 1

需要说明的是：你最好将打开数据库的代码写在一个模块里，在事件里调用模块，省得重复写代码了，另外你查询时使用的ID最好定义成窗体变量，则在窗体里的各个事件里都可以调用。

给你看一个VB脚本的吧，应该区别不是很大

----------------------------------

数据库名：data.mdb

表单名：user

字段名：login

字段名：pwd

----------------------------------

set conn=Server.CreateObject("ADODB.Connection") '设置数据库访问的方式

conn.open "Driver={Microsoft Access Driver (*.mdb)}dbq="&server.MapPath("data.mdb") '打开服务器当前路径的data.mdb数据库

exec="select * from user where login='"+session("username")+"'and pwd='"+pwd_old+"'" '执行select语句，login字段的值等于username变量，而且pwd字段的值等于pwd_old变量

set rs=server.CreateObject("adodb.recordset") '设置数据访问的方式

rs.open exec,conn,1,3 '打开数据表

-----------------------------------------------

互相赋值的话rs("字段2")=rs("字段2")，然后再rs.update就可以了

访问结束记得rs.close

---