Access如何用VB将窗体中文本框中的内容添加到相应的Access表中？

首先,我们需要引用ADO.具体的方法是,在"工程"
-- "引用" 中,找到"没正Microsoft ActiveX Data Object 2.8 Library" ，勾选后点确定
下面介绍2种方法：
1
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb " '老枯a.mdb是ACCESS数据库保存在程序目录下
rs.Open "select * from 表1 ", conn, 2, 2
Set rs = conn.Execute("Insert Into 表1 (姓名,工号,技能,数量) Values('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')")
MsgBox "添加成功!", vbInformation, "提示!"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
conn.Close
End Sub

2
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb " 'a.mdb是ACCESS数据库保存在程序枯含悔目录下
rs.Open "select * from 表1 ", conn, 2, 2
rs.AddNew
rs.Fields("姓名").Value = Text1
rs.Fields("工号").Value = Text2
rs.Fields("技能").Value = Text3
rs.Fields("数量").Value = Text4
rs.Update
rs.Close
conn.Close
MsgBox "成功添加信息!", vbExclamation, "提示!"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub

窗体没有数据源吗？你是不是想通过窗体来向表1添加数据呢？如蚂丛此果是这样的话，你就把窗体的数据源设为表1，然后把text1文本框连接到姓名，text2文本框连接到工号，text3连接到技能，text4文本框连接到数量。最后在窗体上再加一个按钮（假设按钮名为“A”）。按钮的语句就这闷迅样写：

DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
text1.SetFocus

添加数据时，先郑笑按一下按钮A，然后在四个文本框填写数据，填写完之后，再按一下按钮A，四个文本框中的数据就添加到表1中了呀。

Dim adoN As New ADODB.Connection

dbname = MePath & "MeDB.mdb" '路径+数据库名
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
dbname & ";Persist Security Info=False"
adoN.Open strcnn '打开数据库

Dim adoR As New ADODB.Recordset
Set adoR.ActiveConnection = adoN '连接连接对象
adoR.CursorType = adOpenKeyset '设置游标类型
adoR.LockType = adLockOptimistic '设置锁定类型：首亩弯 开放式 逐条
SQLs = "SELECT * FROM 表1"
adoR.Open SQLs '打者闷开记耐搭录
adoR.AddNew '添加
' adoR("ccID") =自动
adoR("名 称") = Trim(Text1(0)) ‘字段名改成你的
adoR("ccLXID") = LeiXing
adoR("位 置") = Trim(Text1(2))
adoR("包 装") = Trim(Text1(3))
adoR("备 注") = Trim(Text1(4))
adoR("连 接") = Trim(Text1(5))
adoR.Update
adoR.Close '关闭
adoN.Close '关闭连接