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

’更新到数据表

首先打开数据源，然后使用alter table语句即可，具体范例如下：

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

constr = "DRIVER=Microsoft Access Driver (*.mdb)DBQ=" & 数据库路径及文件名 & ""

cn.Open constr

Dim str As String

str = "alter table 表名 add 字段 类型"

rs.Open str, cn, adOpenStatic

msgbox"添加字段成功",vbokonly

楼主的这个程序是写入记事本的..如果想将数据写入到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

这样可以么？

---