对象变量或with块变量未设置

最新推荐文章于 2023-11-21 17:15:20 发布
最新推荐文章于 2023-11-21 17:15:20 发布
阅读量8.5k 收藏 1
点赞数
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/guolimin1992/article/details/9884501
本文深入探讨了数据库连接过程中常见的'对象变量或块with变量未设置'问题，并提供了详细的解决步骤，包括正确声明对象变量、使用Set语句实例化数据库连接及检查连接代码等。通过用心检查连接字符串配置，帮助开发者排除常见错误，确保数据库操作顺利进行。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

                  

 

         从开始了数据库的学习之后，这个问题就一直围绕在我身边，从一开始简单的数据库五个实例。到现在的学生信息管理系统。其实这个问题现在看到这个问题一点也不害怕了，

         对象变量或块with变量未设置。其实就是你设置的数据库对象没有实例化好，也就是说么有连接到你的数据库。

          当我们在进行数据库连接时，

         第一，必须先声明对象变量。

         第二，用 Set 语句将一个正确的引用赋值给对象变量。使用新的 Set 语句给对象设置新的引用。（此时注意当我们在使用set语句时，定义一个类型时，如果不会自动出来那些类型的弹出框，那么注意了：一定是你没有引用对象库。具体步骤：工程--引用--Microsoft ActiveX Date Objects 2.5 Library）

 

       第三，如果其他的设置（数据库设置）么有问题，那就睁大眼睛，好好检查一下你的连接数据库的那句代码吧，兴许就是一个空格。一个单引号、一个字母的大小写问题。

      附(用心检查)：

ConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=***;PassWord=***;Initial Catalog=Student;Data Source=192.168.**.***"




 


 

guolimin1992
关注
对象变量或with块变量未设置————问题根源
Jack 架构师之路
07-19 1万+
由于今年的
[ERP] U8系统 “91 未设置对象变量或With block对象变量”故障
欢迎来到Dangks的博客！
10-28 3044
通过本文方法，可以解决U8系统中的“91 未设置对象变量或With block对象变量”错误。希望这篇文章能够帮助到正在寻找解决方案的您。如果您有任何疑问或需要进一步的帮助，请随时留言交流。
vba报错：对象变量或with块变量未设置
qq_50653422的博客
09-18 4092
原因dim但是没有set。
学生信息管理系统之——实时错误91，对象变量或with块变量未设置
Circ
11-22 2846
    终于在2020年的第一场雪之后开启了我的学生信息管理系统，刚开始调就遇见了一个经典的问题，就是这个实时错误91，对象变量或with块变量未设置的问题，虽然是个经典的问题而且网上还有很多解决方案，但是到了自己身上就显得不是这么的容易了。 出现错误的原因（一） 第一可能是数据库odbc未配置成功，就算是显示成功了你也可能没有成功奥，为什么这么说呢，在尝试改错的时候我们一定要知道到底为啥我们错了，问题是最好的老师，你要是不给自己提问题，那结果就会给你提问题，我今天下
实时错误 ‘91‘ :对象变量或with块变量未设置
点滴汇聚，智在积累。——Danny
08-02 1万+
这几天在做学生信息管理系统的时候，出现最多的应该就是这个问题了，“实时错误‘91’：对象变量或with块变量未设置”。如右图： 遇到这个问题，我们首先应该去参考MSDN，不过这时候MSDN似乎没有帮到我们很多，总结了一下，其实出现这个错误的情况有很多种： 1、在运行程序之前没有配置ODBC数据源或者ODBC数据源...
修复U8+V13.0报错：91 未设置对象变量或 With block 变量
02-16
具体来说，当用户在使用供应商余额表时，若遇到“未设置对象变量或With block变量”的报错代码91，这通常意味着在软件的编程中存在一些变量未被正确初始化或赋值。 为了解决U8+V13.0中出现的此类报错，开发者推出了...
vba 创建带有自动提示的 FileSystemObject 对象，报错：对象变量或 With 变量未设置
jieru_liu的博客
02-26 2614
Private Sub Workbook_Open() Dim fso As Scripting.FileSystemObject Dim root_path$ root_path = "D:\工资单" '如果 D 盘中不存在文件夹 “工资单”，就创建 If Not fso.FolderExists(root_path) Then fso.CreateFolder root_path End
在js中使用with语句中跨frame的变量引用问题
12-12
首先，`with`语句的基本用途是将一个对象设置为当前作用域，使得在该作用域内的所有未明确指定的对象属性访问都默认尝试从这个对象中查找。例如： ```javascript var obj = { property: 'value' }; with (obj) { ...
【学生管理系统】对象变量或With块变量未设置
Summer
07-22 2042
方案一： 这个问题很典型，相应的对象没有在数据库中取得相应的值,数据库连接不通，  数据库连接失败的一些因素有：         1.服务管理器没有启动服务         2.数据源(ODBC)里面“文件DSN”里有添加数据库         3.在代码里“select*from ”这后面应该接的是表的名字，而不是数据库名
实时错误 ‘91’ 对象变量或with块变量未设置” 解决办法
热门推荐
似水流年，是谁苍白了等待
07-11 4万+
一，引言 不管我们在做学生系统还是机房收费系统，在过程中总会遇到“实时错误‘91’ ”这个错误，但是在学生系统里遇到之后也没有深究，并不知道是哪里的错误，在做机房的时候遇到是就有了一定的了解。 二，分析 当出现这种情况时先不要盲目的去做，去搜，先想一下，可能会发生这些错误的原因有哪些？开始做之前的一些准备工作有没有做好，像数据库配置，ODBC的连接，一些查询语句的书写，代码的书写，以及数据库...
ODBC配置数据源及相关问题（“找不到工程和库”“实时错误91对象变量或with块变量未设置”等）
李赛男
11-21 3181
ODBC配置数据源、“找不到工程和库、“实时错误91对象变量或with块变量未设置”
实时错误91，对象变量或with块变量未设置
努力发光呀
05-11 3891
问题： 在添加用户信息的过程中，执行到while(mrc.EOF=False)的时候，提示如下错误，对象变量或with块变量未设置 当把光标放到set mrc=executesql(txtsql,msgtext)上面的时候，会发现mrc返回值为Nothing.mrc的值为空，所以就会提示对象变量未设置这样的错误提示。 解决办法：
【MIS】错误91 对象变量或with块变量未设置
海棠不惜胭脂色，独立蒙蒙细雨中
05-03 4900
高高兴兴把学生系统敲完了，可接下来可是遇到了不少问题啊，错误91，对象变量未设置或With块变量未设置，着实把我折腾蒙了，查了一天的资料终于搞定了，心里顿时有点小欢喜，这种   错误多数是因为数据库没连接上，于是我按以下思路调试起来： 【数据库连接及ODBC配置】 1、首先查看服务管理器    如图，把所有项启动运行就可以了。 2、看O
VB中 对象变量或with块变量未设置
03-03 5076
 调式代码发现，是因为对象变量为设置成了Nothing值。 网上资料（http://msdn.microsoft.com/zh-cn/library/5szkzs17(VS.80).aspx）总结的如下情况分类：确保对象变量引用有效的对象，并为该对象指定或重新指定一个引用。确保没有使用设置为 Nothing 的对象变量。 确保已在 Add Ref
未设置对象变量或with块变量_27-面向对象高级-魔法方法
weixin_39861882的博客
01-28 337
1、__slots__ 和__dict__1.1、什么是slots（1）slots是一个类变量，变量值可以是列表，元祖，或者可迭代对象，也可以是一个字符串(意味着所有实例只有一个数据属性) （2）使用点来访问属性本质就是在访问类或者对象的dict属性字典(类的字典是共享的，而每个实例的是独立的)1.2、为什么使用slots（1）字典会占用大量内存，如果你有一个属性很少的类，但是有很多实例，为了节...
对象变量或with块变量未设置怎么解决_VBA小常识（12）—for each in循环与workbook对象...
weixin_39611666的博客
11-25 7671
VBA小常识（12）—for each in循环与workbook对象学习自杨洋老师《全民一起学VBA》1. for each 循环可以用在任何一个集合对象上，例如worksheets、workbooks、range等2. for each 循环的典型结构如下：For each a in b …… Next a循环扫描集合b中的每一个元素，赋值给a相当于：For i=1 to b.count ...
“对象变量或with块变量未设置”的错误
专栏
04-03 1万+
 今天又遇见一个错误，本以为会是一个小错误，结果号了我一个多小时，其实真是个低级错误，只不过我粗心检查了四五遍仍未看出来。建立了一个select的sql语句查询，总是跳出“对象变量或with块变量未设置”的错误，叫了师兄过来给检查，结果一下就找出了错误。师兄的小计巧挺实用的，在Access中运行SQL语句：打开Access数据库——>在对象栏中,选择查询选项——>打开“在设计师图中创建查询
对象变量或with块变量未设置怎么解决_CAD系统变量大全
weixin_39620273的博客
11-20 1770
CAD系统变量大全A 系统变量acadlspasdoc 0 仅将 acad.lsp 加载到 autocad 任务打开的第一个图形中; 1 将 acad.lsp 加载到每一个打开的图形中acadprefix 存储由 acad 环境变量指定的目录路径(如果有的话)，如果需要则附加路径分隔符acadver 存储 autocad 的版本号。这个变量与 dxf 文件标题变量 $acadver 不同，"$ac...
VB报错对象变量或with块变量未设置
最新发布
03-12
<think>好的，用户遇到了VB中的“对象变量或With块变量未设置”错误，需要帮助解决这个问题。首先，我要回忆一下这个错误的常见原因。根据提供的引用内容，特别是引用[1]提到，这个错误通常是因为对象变量没有被正确初始化或赋值，比如数据库连接未正确建立。引用[2]和[3]也提到类似的情况，可能涉及对象未被正确实例化。 接下来，我应该分步骤来帮助用户诊断和解决这个问题。第一步是检查对象是否被实例化。例如，用户是否在使用New关键字创建对象实例，或者是否正确使用了Set语句。比如，用户可能在声明对象变量后没有使用Set进行赋值，导致变量仍然是Nothing。 第二步需要确认数据库连接是否成功。根据引用[1]中的例子，数据库连接未正确建立会导致无法调用数据，进而引发此错误。用户需要检查连接字符串是否正确，以及是否调用了Open方法，并确认没有异常发生。 第三步是检查With块的使用。用户可能在With块外部引用了对象，或者在With块内部使用了未正确初始化的对象。需要确保With块中的对象已经被正确赋值。 第四步是验证函数或方法的返回值是否有效。例如，如果用户调用了返回对象的函数，但函数返回了Nothing，而用户没有进行判断就直接使用，也会导致错误。这时候需要添加条件判断，确保对象有效后再进行操作。 第五步是处理可能为Nothing的对象引用。在任何使用对象变量之前，都应该检查变量是否为Nothing，以避免运行时错误。添加If Not obj Is Nothing Then这样的判断可以增强代码的健壮性。 此外，用户可能需要检查是否有拼写错误或作用域问题，比如变量在某个作用域内未被正确初始化，或者被意外地设置为Nothing。启用Option Explicit也是一个好习惯，可以避免变量名拼写错误导致的问题。 最后，根据用户的代码示例，如果他们提供了相关代码片段，可以更具体地指出问题所在。例如，用户可能在打开记录集之前没有建立连接，或者在赋值时遗漏了Set关键字。通过逐步排查这些可能性，应该能够解决这个错误。</think>### 解决VB中“对象变量或With块变量未设置”错误的方法 #### 1. **检查对象是否已实例化** - **原因**：未使用`New`关键字创建对象实例，或未通过`Set`语句赋值。 - **解决方法**： ```vb Dim conn As ADODB.Connection Set conn = New ADODB.Connection ' 必须使用Set实例化对象 conn.Open "数据库连接字符串" ``` - **注意**：若对象未实例化直接调用方法，会触发错误[^1]。 #### 2. **验证数据库连接状态** - **原因**：数据库未连接成功导致操作对象无效（如记录集`Recordset`）。 - **解决方法**： ```vb If conn.State = adStateClosed Then conn.Open "连接字符串" End If Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Table", conn ' 确保conn已连接 ``` - **提示**：连接失败时可能因权限、连接字符串错误或网络问题导致[^1]。 #### 3. **检查With块的作用域** - **原因**：在`With`块外部引用对象，或在`With`块内未正确初始化对象。 - **示例修正**： ```vb With rs If Not .EOF Then .MoveFirst End If End With ' 错误示例：在With块外使用未初始化的rs ``` #### 4. **验证函数返回值是否有效** - **原因**：调用返回对象的函数时未处理`Nothing`情况。 - **解决方法**： ```vb Dim obj As Object Set obj = GetObjectFromFunction() If Not obj Is Nothing Then obj.MethodName Else MsgBox "对象未初始化" End If ``` #### 5. **处理可能为Nothing的对象引用** - **原因**：未对可能为`Nothing`的对象进行判空。 - **示例**： ```vb Dim cmd As ADODB.Command ' 若未初始化cmd直接调用： If Not cmd Is Nothing Then cmd.Execute Else MsgBox "命令对象未设置" End If ``` #### 6. **检查拼写错误与作用域** - **原因**：变量名拼写错误或作用域冲突导致对象未被正确引用。 - **建议**：在模块顶部添加`Option Explicit`强制变量声明，避免拼写错误。 #### 附：常见错误场景与修复 | 错误场景 | 修复方法 | |---------------------------|---------------------------------------| | 未使用`Set`赋值对象 | 添加`Set obj = New ClassName` | | 数据库连接未打开 | 检查`conn.Open`是否成功执行 | | 在`With`块外操作未初始化对象 | 确保`With`块内对象已实例化 |
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值