怎样用VB对access数据库进行数据添加？

两种办法，一种是 用SQL，另一种是ADO

1、用SQL添加数据：

insert into 表名（字段1，字段2，字段3）

values（值01，值02，值03）

例如：

docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"

2、用ADO的办法：

ADO比较复杂，给你一个完整的例子吧：

Dim strSqlfitjc As String

strSqlfitjc = "select * from *表"

Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库

RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接

RSfitjc.addnew'添加一个纪录

RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值

.Update’储存赋值的新纪录

.Close 关闭连接

End With

选中要 *** 作的窗体，右键选“设计视图”，在打开的设计视图【窗体】属性中点击上方的“事件”选项卡，选中【加载】，然后点击后面的?按钮，d出窗口中选择【宏生成器】或者【代码生成器】，然后对照下面 *** 作：\r\n方法一、【宏生成器】法：\r\n1、d出的对话框中先给宏指定一个名称，比如：添加新记录\r\n2、在【添加新记录: 宏】窗口的“ *** 作”处选择：GoToRecord\r\n然后在下面的“ *** 作参数”处进行如下设置：\r\n1）对象类型：窗体\r\n2）对象名称：选你要 *** 作的窗体\r\n3）记录：选“新记录”\r\n4）保存退出。\r\n方法二、【代码生成器】法：\r\n在d出的VB编辑器中鼠标光标激活处添加如下代码：\r\nDoCmd.GoToRecord , , acNewRec\r\n然后关闭VB编辑器。\r\n最后：无论采取那个方法，关闭窗体的“设计视图”时选“保存”即可！

vb向access插入数据：

Public Conn As New ADODB.Connection

Public HidErr As Boolean

Public RS As New ADODB.Recordset

Public comm As New ADODB.Command

'打开ACCESS数据库，可设定登陆的密码

Function OpenAccess(Mdbfilepath As String, Optional Mdbpassword As String, Optional usemdw As Boolean) As Boolean

'帮你写函数，帮你写代码，帮你写模块，帮你设计软件

'联系QQ：1085992075--需要什么函数或功能，可以联系我。

On Error GoTo err

Dim ConnStr As String

Conn.ConnectionTimeout = 999999999

ConnStr = "Provider=MSDASQL.1Persist Security Info=falseUser ID=saExtended Properties=DRIVER=Microsoft Access Driver (*.mdb)"

If usemdw Then ConnStr = ConnStr &"DBPROP_JETOLEDB_SYSDBPATH=" &Chr(34) &"F:\PROGRA~1\MICROS~2\OFFICE\SYSTEM.MDW" &Chr(34) &"user=adminpass=abc"

ConnStr = ConnStr &"DBQ=" &Mdbfilepath &"Password=" &Mdbpassword

Conn.open ConnStr

OpenAccess = True

Exit Function

err:

If Not HidErr Then

MsgBox err.Number &vbCrLf &err.Description

End If

End Function

'┗〓〓〓〓〓〓〓〓〓 OpenAccess,end 〓〓〓〓〓〓〓〓〓┛

Sub Test()

Dim RS As New ADODB.Recordset

'Set Rs = CreateObject("adodb.recordset")

Dim Sql As String

Sql = "select * from 表1 WHERE USER='" &"李三" &"'"

'OpenAccess函数相关定义声明等 Start

Public Conn As New ADODB.Connection

Public HidErr As Boolean

Public RS As New ADODB.Recordset

Public comm As New ADODB.Command

'OpenAccess函数相关定义声明等 End

'OpenAccess,start

'［详介］：

'函数注释:

'［简介］：

'打开ACCESS数据库，可设定登陆的密码

Function OpenAccess(Mdbfilepath As String, Optional Mdbpassword As String, Optional usemdw As Boolean) As Boolean

'帮你写函数，帮你写代码，帮你写模块，帮你设计软件

'联系QQ：1085992075--需要什么函数或功能，可以联系我。

On Error GoTo err

Dim ConnStr As String

Conn.ConnectionTimeout = 999999999

ConnStr = "Provider=MSDASQL.1Persist Security Info=falseUser ID=saExtended Properties=DRIVER=Microsoft Access Driver (*.mdb)"

If usemdw Then ConnStr = ConnStr &"DBPROP_JETOLEDB_SYSDBPATH=" &Chr(34) &"F:\PROGRA~1\MICROS~2\OFFICE\SYSTEM.MDW" &Chr(34) &"user=adminpass=abc"

ConnStr = ConnStr &"DBQ=" &Mdbfilepath &"Password=" &Mdbpassword

Conn.open ConnStr

OpenAccess = True

Exit Function

err:

If Not HidErr Then

MsgBox err.Number &vbCrLf &err.Description

End If

End Function

'OpenAccess,end

Sub Test()

Dim RS As New ADODB.Recordset

'Set Rs = CreateObject("adodb.recordset")

Dim Sql As String

Sql = "select * from 表1 WHERE USER='" &"李三" &"'"view plaincopy to clipboardprint?

'以上用来查李三这条数据

RS.open Sql, Conn, 1, 3

MsgBox RS(0)

rs(1)="aaa"

'rs.update'保存

End Sub

Private Sub Command1_Click()

OpenAccess APP.PATH &"\1.mdb"

Test

End Sub

---