滨州 女人囗交图片:为什么 实时错误'91': 对象变量或With块变量未设置

来源：百度文库 编辑：高考问答 时间：2024/05/10 13:48:37
模块内的......
Public db As Database
Public rsdata As Recordset
Sub main()
Set db = OpenDatabase(App.Path & "Test Database.mdb")
Set rsdata = db.OpenRecordset("work")
frmmain.Show
End Sub
窗体内的...
Private Sub Command1_Click()
rsdata.MoveFirst '黄标的位置
Do While Not rsdata.EOF
If LCase(rsdata.Fields(0)) = LCase(xm1.Text) Then
xm1.Text = rsdata.Fields(0).Value
dh1.Text = rsdata.Fields(1).Value
dz1.Text = rsdata.Fields(2).Value
If rsdata.Fields(3).Value = True Then
gz1.Value = Checked
Else
gz1.Value = Unchecked
End If
Exit Sub
End If
rsdata.MoveNext
Loop
zt1.Caption = zt1.Caption & "没有此人！对不起！"
End Sub

这个是我照着光盘上面的例子一字不漏的做的.
但是为什么它的可以运行.我的却总提示

实时错误'91':
对象变量或With块变量未设置

求帮我解决下.....为什么!为什么!为什么!我快疯了...........

是跟数据库连接问题有关,见MSDN的解释:
对象变量或 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 语句执行初始化。

检查下工程的启动设置是模块启动还是窗体启动

VB代码“实时错误：'91' 为什么 实时错误'91': 对象变量或With块变量未设置 vb 实时错误91 实时错误'91'对象变量或With块变量未设置 实时错误'91'对象变量或with块变量未设置(在线等) 实时错误'91'对象变量或With块变量未设置 实时错误'91'对象变量或With块变量未设置 VB实时错误'424'要求对象 为什么会出现实时错误\\\'11\\\' 除数为零 VB中遇到实时错误91