vb保存ACCESS数据库信息

其实通过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=adminpwd=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

一,准备工作：

1，建立新工程，保存到文件夹。

2，把ACCESS数据库文件复制到上述文件夹。

3，在窗体上，添加一个ADODC控件和一个按钮。

4，在按钮的单击事件里编写程序。

程序代码如下：

'连接数据库的三步曲：

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

App.Path

&

"\数据库.mdbPersist

Security

Info=False"

Adodc1.RecordSource

=

"数据表名"

Adodc1.Refresh

‘添加记录

Adodc1.Recordset.AddNew

'添加新的空纪录

Adodc1.Recordset("姓名").Value

=

Text1.Text

Adodc1.Recordset.Update

’更新到数据表

---