Question

VB中属性使用无效

a = MsgBox("是否添加?", vbYesNo, "提示")
If a = 6 Then
Adodc1.Recordset.AddNew
Set Adodc1.Recordset.Fields("设备名称") = Text1.Text
Set Adodc1.Recordset.Fields("在库数目") = Text2.Text
Adodc1.Recordset.Update
Else
Adodc1.Recordset.CancelUpdate
End If
在 设备名称 那里显示属性使用无效，求帮助

Answer 1

这个就不用set了吧
Adodc1.Recordset.AddNew
Adodc1.Recordset("[设备名称]") = Text1.Text
Adodc1.Recordset("[在库数目]") = Text2.Text
Adodc1.Recordset.Update

追问

不用SET之后，Adodc1.Recordset.AddNew这句显示对象未设置

追答

那为adodc1指定好数据库源了吗，数据源打开了吗

追问

我在这个FORM里面已经建了ADODC1控件，也连接了数据库

追答

"[设备名称]" 这个字段名没错？仔细检查你的数据源是不是对应的。我这样的写法是没问题哦

追问

数据库里面有这个字段，或者你详细说一下连接数据库

追答

Adodc1.ConnectionString = “你的连接字符串"
Adodc1.RecordSource ="select * from [你的表名]"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1'先试试得到数据没有

追问

设置好之后，可以了！还要我换另一个数据库，明明是一样的。。