vb保存ACCESS数据库信息

来源：百度知道 编辑：UC知道 时间：2024/07/02 21:33:40
打代码
窗口已经连接上数据库，用户已经登陆，
我想直接在TEXTBOX里修改，然后保存到ACCESS数据库中
以及刷新数据库。
求大家帮帮忙了 我过几天就要交了！
帮上忙的我追加20分

其实通过SQL语句来完成很简单，下面是基本代码，我没有全写，你自己补完就可以了。

dim cn as adodb.connection
dim tsql as string
private sub form_load()
set cn=new adodb.connection
cn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=" & 数据库名称
end sub
'保存
private sub cmd_save()
'插入新记录
tsql="insert into 表名(用户名,真实姓名,性别,...) values('"+txt用户名.text+"','"+txt真实姓名.text+"','"+cob性别.text+"',...)"
cn.execute tsql
end sub
'更新
private sub cmd_update()
tsql="update 表名 set 用户名='"+txt用户名.text+"',真实姓名='"+txt真实姓名.text+"',性别='"+cob性别.text+"',..."
cn.execute tsql
end sub

添加新记录：
RS.Addnew '添加一条新记录
RS("字段1名")=Text1.Text '给字段赋值
RS("字段2名")=Text2.Text '给字段赋值
RS("字段3名")=Text3.Text '给字段赋值
.......<