Question

vb中91错误是什么问题

Dim con As ADODB.Connection

Private Sub Command1_Click(Index As Integer)
Set con = New ADODB.Connection
Dim acc As String
acc = InputBox("请输入", "查找")
Adodc1.Recordset.Find "学号='" & acc & "'"
If Adodc1.Recordset.EOF Then MsgBox "无此学号！", , "提示"
End Sub

这么短的程序就出现91的错误，但不知道是什么问题，数据库是按照书上连的，但就是在Adodc1.Recordset.Find "学号='" & acc & "'"处报91错误。哪位高手能解决一下，到底是我什么地方设置不对？在网上看了很多关于这个错误的但看不懂，能不能说的详细一点，谢谢了
我用的是adodc控件，数据库连接不是用代码连的，是在属性当中连的，都是照着书上的连的。语句也是书上的，现在就是不知道这个错误到底指的是什么地方的错误？

Answer 1

VB中91错误是对象变量或 With 块变量没有设置。
对象变量或 With
块变量没有设置（错误 91）
创建对象变量有两个步骤。第一，必须先声明对象变量。然后必须用
Set 语句将一个正确的引用赋值给对象变量。同样地，With...End With 块必须先用
With 语句进入点来执行初始化。此错误有以下的原因和解决方法：

试图使用的对象变量，还没有用一个正确对象的引用来赋值。
给对象变量指定或再指定一个引用。例如，如果在下列的代码中省略 Set
语句的话，那么引用 MyObject 将会产生错误：
Dim MyObject As Object ' 创建对象变量。
Set MyObject = Sheets(1) ' 创建一个正确的对象引用。
MyCount = MyObject.Count ' 计数值赋给 MyCount。

试图用的对象变量已经被设为 Nothing。
Set MyObject = Nothing ' 释放此对象。
MyCount = MyObject.Count ' 引用了已释放的对象。

再指定引用给对象变量。例如，使用新的 Set
语句给对象设置新的引用。

此对象是正确的对象，但没有被设置，因为在对象库中，在
“引用” 对话框中没有被选取。
在 “添加引用” 对话框选择对象库。

在 With 块内GoTo 语句的去向。
不要跳进 With 块。确保块使用 With
语句进入点以执行初始化。

当选了 “设置下一条语句” 命令时，在 With 块内指定了一行。
With 块必须用 With
语句执行初始化。

Answer 2

从你上边的代码中,没有看到你的数据控件的连接串信息,数据库表查询语句等给值操作和该控件的refresh操作,你的CONNECTION对象也未表明有何用途
===================================
问题还是出在记录集上
1 要么检查一下程序运行后是否获得数据,确认数据库已被正常打开,记录集已获得数据
2 将Adodc1.Recordset.Find "学号='" & acc & "'"
修改为:
if Adodc1.Recordset.state=0 then
msgbox "数据库未打开"
elseif Adodc1.Recordset.EOF() then
msgbox "数据库中无数据"
else
Adodc1.Recordset.moveFirst
Adodc1.Recordset.Find "学号='" & acc & "'"
end if

Answer 3

数据库没连接上。

Answer 4

你到底adodb还是adodc啊

建议adodb,比dc好用

Answer 5

学号是一个字段，也要引起来吧