VB 中将text文本框内容添加的access数据库表，具体代码怎么写？

按上图中显示，将text1-text6输入的内容和日期控件，点击“确定”把数据添加到access数据库data.mdb下的simcard表，表字段分别为“商户名称，商户号，终端号，sim卡号，登记日期，备注”具体代码改怎么写，小弟学习中，只是略懂，用最简单的方法，麻烦代码请添加注释，谢谢各位大侠

举报该问题

其他回答

第1个回答推荐于2016-05-04

Private Sub tianjia() '添加数据.
seta
sql = "select * from [user_info]"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("user_id") = Trim(txt_id.Text)
rs.Fields("user_name") = Trim(txt_name.Text)
rs.Fields("user_age") = Trim(txt_age.Text)
rs.Fields("user_sex") = Trim(cob_sex.Text)
rs.Fields("user_high") = Trim(txt_high.Text)
rs.Update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Sub追问

首先感谢大侠，您这个用与其他项目上，代码基本思路意思我了解了，“seta”不懂，是不是还缺定义呀

追答

Public Function seta()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dbase\db.mdb;"
cn.Open
End Function

本回答被提问者采纳

相似回答

Access如何用VB将窗体中文本框中的内容添加到相应的Access表中?答：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 & "','" & Text...

如何将VB窗体中文本框中的内容添加到相应的Access表中?答：Private Sub Command1_Click()db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\123.MDB"rrs.Open "数据表", db, 3, 3 rrs.AddNew rrs.Fields(0).Value = Text1.Text rrs.Fields(1).Value = Text2.Text rrs.Fields(2).Value = Text3.Text rrs.Update rrs...

已经连接好了ACCESS数据库,请问怎样将文本框的内容录入到ACCESS数据库...答：Private Sub inputuser() '添加学生模块 On Error GoTo ErrMsg Dim txtSQL, i As String txtSQL = "select * from 学生信息 where 学号='" & Trim(Text1.Text) & "'"Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open txtSQL, conn, 2, 2 If rs.EOF = False T...

VB里面怎么利用代码来向access 数据库添加表格答：If path1 = "" Then Text1.Text = "数据库dat.mdb不存在，请先建立数据库~！"Exit Sub End If Dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以 Dim pstr As String Dim tb1 As New Table pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51 ...

VB如何读取ACCESS记录和把TEXT控件的内容写入ACCESS答：1.你的第一个问题 strsql = "select * from 表名 " '读取access 表里的内容 Set rs = con.OpenRecordset(strsql)do until rs.eof '处理结果集的过程 rs.movenext loop 2.第二个问题 'strsql="update 表名 set 字段名='"& trim(text1.text) &"'where……" '把text内容写入数据库 '...

怎样将VB一个窗体各文本框的值加入数据库?答：先引用(工程->引用)Microsoft ActiveX Data Object 2.1 Library 然后设计好数据库(Access为例)然后添加如下代码 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=D:\mydb.mdb" '请输入实际...

大家正在搜

access标签和文本框的区别 access窗体文本框功能 access报表文本框换行 access窗体文本框赋值 access报表文本框控件 access窗体文本框控件 access文本框功能 access文本框控件在哪 access文本框字段值