Question

VB的实时错误'91'对象变量或with块变量未设置

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name").Value = Text1.Text
Adodc1.Recordset.Fields("number").Value = Text2.Text
If Combo1.ListIndex = 0 Then
Adodc1.Recordset.Fields("major").Value = "商务英语"
ElseIf Combo1.ListIndex = 1 Then
Adodc1.Recordset.Fields("major").Value = "市场营销"
End If
If Combo1.ListIndex = 1 Then
Option3.Visible = True
Option4.Visible = True
End If
If Option1.Value = True Then
Adodc1.Recordset.Fields("yadian").Value = "是"
Else
Adodc1.Recordset.Fields("yadian").Value = "否"
End If
If Option2.Value = True Then
Adodc1.Recordset.Fields("waijiao").Value = "是"
Else
Adodc1.Recordset.Fields("waijiao").Value = "否"
End If
If Check1.Value = 1 Then
Adodc1.Recordset.Fields("internet").Value = "是"
Else
Adodc1.Recordset.Fields("internet").Value = "否"
End If

Answer 1

Private Sub Command1_Click()
Adodc1.RecordSource = "select top1 * from 表" 'sql语句自己写如果已经在控件属性里添加数据源则此句可以不要
Adodc1.Refresh '必须的
...
...

Answer 2

Adodc1.Recordset("[name]")= Text1.Text

追问

什么意思不能用name? 改了列名但是后面命令的连接都提示一样的 对象变量或with块变量未设置

追答

那你确定你的Adodc1实始化过连接并有数据源了吗

Answer 3

？？？？？