Question

VB 中Adodc1.Recordset.AddNew提示实时错误91对象变量或with块变量未定义

Private Sub Command1_Click()
vb_msg = MsgBox("请输入要添加的数据", vbOKCancel)
If vb_msg = vbCancel Then
Exit Sub
End If
Adodc1.Recordset.AddNew
sAdodc1.Recordset.Fields("商品号") = Val(Text1.Text)
Adodc1.Recordset.Fields("商品名称") = Val(Text2.Text)
Adodc1.Recordset.Fields("商品类型") = Val(Text3.Text)
Adodc1.Recordset.Fields("单价") = Val(Text4.Text)
Adodc1.Recordset.Update
End Sub

Answer 1

Adodc1.Recordset.AddNew
sAdodc1.Recordset.Fields("商品号") = Val(Text1.Text)
Adodc1.Recordset.Fields("商品名称") = Val(Text2.Text)
Adodc1.Recordset.Fields("商品类型") = Val(Text3.Text)
Adodc1.Recordset.Fields("单价") = Val(Text4.Text)
Adodc1.Recordset.Update
这一段中出现了两个数据库连接对象：
Adodc1
sAdodc1
应该是有一个没有定义或者没有打开吧。

追问

怎么定义啊。

追答

不需要定义，你只要找到，这两个中，哪一个是你已经连接的，把拼写错误的那个改了就行了。

Answer 2

在Adodc1.Recordset.AddNew

之前,要连接数据库和数据表?

追问

连接数据库了啊

追答

如果连了
在
Adodc1.Recordset.AddNew

上面
加一句
Adodc1.Refresh