UC知道vb 如何向数据库添加内容
来源：百度知道 编辑：UC知道 时间：2024/05/24 02:36:27
各位前辈好，请教一个问题关于向数据库中添加内容的问题
数据库access_db 表名wzdz
字段 网络名称 网络地址 编码（自动编码）
路径 E/vb/access_db
程序代码如下
Dim sc As Integer
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox("请输入完整的网站信息")
Else : sc = MsgBox("确定要添加这条记录吗？", MsgBoxStyle.OkCancel, "提示信息")
If sc = 1 Then
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
Dim str1 As String
Dim str2 As String
Dim str3 As String
str1 = "provider=microsoft.jet.oledb.4.0;"
str2 = "data source=E:\vb\access_db.mdb;"
str3 = "jet OLEDB:database password="
conn.poen(str1, str2, str3)
strsql =
数据库access_db 表名wzdz
字段 网络名称 网络地址 编码（自动编码）
路径 E/vb/access_db
程序代码如下
Dim sc As Integer
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox("请输入完整的网站信息")
Else : sc = MsgBox("确定要添加这条记录吗？", MsgBoxStyle.OkCancel, "提示信息")
If sc = 1 Then
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
Dim str1 As String
Dim str2 As String
Dim str3 As String
str1 = "provider=microsoft.jet.oledb.4.0;"
str2 = "data source=E:\vb\access_db.mdb;"
str3 = "jet OLEDB:database password="
conn.poen(str1, str2, str3)
strsql =
.............
rs.Open strsql, conn, 3, 3
rs.AddNew()
rs!网站名称 = Text1.Text
rs!网站地址 = Text2.Text
rs!网站描述 = Text3.Text
rs.Update()
............
你这个写法，感觉像是一次插入了3条记录
如果 你的这3个字段都不能为空的话，估计数据库要报错的！
我没试过，但这样下来，在执行UPDATA时，只执行了最后一句
我想应该改成
rs = "insert in wzdz(网站名称,网站地址,网站描述) value ('" & Text1.Text &","& Text2.Text &","& Text3.Text &"')"
或者
rs.Open strsql, conn, 3, 3
rs.AddNew()
rs!网站名称 = Text1.Text
rs!网站地址 = Text2.Text
rs!网站描述 = Text3.Text
rs.Update()
或者
rs.Open strsql, conn, 3, 3
rs.AddNew()
rs.Fields("网站名称") = Text1.Text
rs.Fields("网站地址") = Text2.Text
rs.Fields("网站描述") = Text3.Text
rs.Update()
不过你的表里 没有"网站描述"的字段
'连接数据库后：
rs.execute "Insert Into wzdz (网站名称,网站地址,网站描述) Values('&