VB 如何往 ACCESS数据库理添加数据

一,准备工作：

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

’更新到数据表

vb只是一个编程语言，并不能建立数据库，建立access数据库要完全在access中进行。

前提条件：必须安装微软access数据库。

步骤：

1、找好要存放数据库的路径，如C盘data路径；

2、路径下空白处点右键，新建-Microsoft

Access数据库，如图：

3、这时路径下就有了一个access文件，可以右键-重命名来为数据库起名，如，起名叫测试数据库；

4、双击access文件，在里边创建所要的表，函数等等即可。

楼主的这个程序是写入记事本的..如果想将数据写入到ACCESS数据库..

首先要引用数据库连接驱动

在"工程"--"引用",勾选"microsoft activex date objects 2.8 library"

然后在窗口代码框中加入如下代码:

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim sql$

Function openconn()

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\数据1.mdb" '此处为数据库相对路径

End Function

Function closeconn()

conn.Close

End Function

Private Sub Command1_Click()

Call openconn

rs.Open "select * from [表1]", conn, 1, 3

rs.AddNew

rs("姓名") = text1.Text

rs("分数") = text2.Text

rs.Update

rs.Close

Call closeconn

MsgBox "添加数据成功!"

End Sub

这样可以么？

---