操作Excel的问题 未设置对象变量或With block变量 [问题点数:50分]

Bbs1
本版专家分:13
结帖率 78.95%
Bbs9
本版专家分:50584
Blank
红花 2018年11月 Delphi大版内专家分月排行榜第一
2018年5月 Delphi大版内专家分月排行榜第一
2018年2月 Delphi大版内专家分月排行榜第一
2018年1月 Delphi大版内专家分月排行榜第一
2017年12月 Delphi大版内专家分月排行榜第一
2017年8月 Delphi大版内专家分月排行榜第一
2017年7月 Delphi大版内专家分月排行榜第一
2017年5月 Delphi大版内专家分月排行榜第一
2017年3月 Delphi大版内专家分月排行榜第一
2017年2月 Delphi大版内专家分月排行榜第一
2016年12月 Delphi大版内专家分月排行榜第一
2016年11月 Delphi大版内专家分月排行榜第一
2016年10月 Delphi大版内专家分月排行榜第一
2016年9月 Delphi大版内专家分月排行榜第一
2016年8月 Delphi大版内专家分月排行榜第一
2016年7月 Delphi大版内专家分月排行榜第一
2016年6月 Delphi大版内专家分月排行榜第一
2016年5月 Delphi大版内专家分月排行榜第一
2016年4月 Delphi大版内专家分月排行榜第一
2016年3月 Delphi大版内专家分月排行榜第一
2016年2月 Delphi大版内专家分月排行榜第一
2016年1月 Delphi大版内专家分月排行榜第一
2015年12月 Delphi大版内专家分月排行榜第一
2015年11月 Delphi大版内专家分月排行榜第一
2015年10月 Delphi大版内专家分月排行榜第一
2015年9月 Delphi大版内专家分月排行榜第一
2015年8月 Delphi大版内专家分月排行榜第一
2015年7月 Delphi大版内专家分月排行榜第一
2015年6月 Delphi大版内专家分月排行榜第一
2015年5月 Delphi大版内专家分月排行榜第一
2015年4月 Delphi大版内专家分月排行榜第一
2015年3月 Delphi大版内专家分月排行榜第一
2015年2月 Delphi大版内专家分月排行榜第一
2015年1月 Delphi大版内专家分月排行榜第一
2014年12月 Delphi大版内专家分月排行榜第一
2014年11月 Delphi大版内专家分月排行榜第一
Blank
黄花 2017年11月 Delphi大版内专家分月排行榜第二
2017年4月 Delphi大版内专家分月排行榜第二
2017年1月 Delphi大版内专家分月排行榜第二
2014年10月 Delphi大版内专家分月排行榜第二
2014年9月 Delphi大版内专家分月排行榜第二
Bbs5
本版专家分:2568
固定资产“未设置对象变量或with block变量
导入ufdata_001_2003..fa_items记录至ufdata_001_2004..fa_items  
金蝶KIS10专业版客户端打开'91'错误:未设置对象变量或 With block 变量的解决方法...
错误提示:   ---------------------------KIS主控台---------------------------运行时错误 '91':未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em> <em>变量</em>---------------------------确定   --------------------------- 解决方法,数据服务器上的防火墙关掉即可。...
VB程序变得很卡,并显示对象变量或with块变量设置
    刚解决完自己with<em>变量</em>未定义的<em>问题</em>,结果再次打开程序的时候,自己的程序变得很卡。只需一键,直接出现小圈圈转不停。有时候等半天,显示<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>。出现这句话的原因,是因为没有从数据库中调用出来东西。但是各种都检查没<em>问题</em>,原来是自己忽略了这个,数据库没有连接上,如图: 如何解决呢。找到自己数据库的SQL server配置管理器,如图: 在SQL server服务...
实时错误 ‘91’ 对象变量或with块变量设置” 解决办法
一,引言 不管我们在做学生系统还是机房收费系统,在过程中总会遇到“实时错误‘91’ ”这个错误,但是在学生系统里遇到之后也没有深究,并不知道是哪里的错误,在做机房的时候遇到是就有了一定的了解。 二,分析 当出现这种情况时先不要盲目的去做,去搜,先想一下,可能会发生这些错误的原因有哪些?开始做之前的一些准备工作有没有做好,像数据库配置,ODBC的连接,一些查询语句的书写,代码的书写,以及数据库...
Excel2007 运行时错误'91' 对象变量或 With 块变量没有设置 的一种解决办法
运行时错误'91'<em>对象</em><em>变量</em>或 With 块<em>变量</em>没有<em>设置</em>今天用了一段VBA小程序,在同事机器上能用,在我机器上用就是不行,具体是这段代码报错:Set Sheet1 = ThisWorkbook.Worksheets(1)调试时添加监视发现,ThisWorkbook<em>对象</em>是有效的,可以输出文档名称,但其子<em>对象</em>Worksheets、sheets等东东全部是nothing网上也找不到有效解决办法,什么注册控件,安装office补丁包都试了,也没解决,就差重装office。仔细观察,发现<em>问题</em>有这3个特点:1.同事机器上
对象变量或with块变量设置”的错误
 今天又遇见一个错误,本以为会是一个小错误,结果号了我一个多小时,其实真是个低级错误,只不过我粗心检查了四五遍仍未看出来。建立了一个select的sql语句查询,总是跳出“<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>”的错误,叫了师兄过来给检查,结果一下就找出了错误。师兄的小计巧挺实用的,在Access中运行SQL语句:打开Access数据库——>在<em>对象</em>栏中,选择查询选项——>打开“在设计师图中创建查询
【学生信息管理系统】对象变量或者With块变量设置
连上数据库的原因有很多,最常见的是下面的3种。 1.ODBC数据源没有配置好 2.模块出连接数据库的代码出错 3.SQL语句是否敲错。 以及笔者体验的解决办法。
【MIS】错误91 对象变量或with块变量设置
高高兴兴把学生系统敲完了,可接下来可是遇到了不少<em>问题</em>啊,错误91,<em>对象</em><em>变量</em>未<em>设置</em>或With块<em>变量</em>未<em>设置</em>,着实把我折腾蒙了,查了一天的资料终于搞定了,心里顿时有点小欢喜,这种   错误多数是因为数据库没连接上,于是我按以下思路调试起来: 【数据库连接及ODBC配置】 1、首先查看服务管理器    如图,把所有项启动运行就可以了。 2、看O
对象变量或with块变量设置————问题根源
由于今年的
实时错误 '91' :对象变量或with块变量设置
大家这几天在做学生信息管理系统的时候,出现最多的应该就是这个<em>问题</em>了,“实时错误‘91’:<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>”。如右图: 遇到这个<em>问题</em>,我们首先应该去参考MSDN,不过这时候MSDN似乎没有帮到我们很多,总结了一下,其实出现这个错误的情况有很多种: 1、在运行程序之前没有配置ODBC数据源或者ODBC数据源配置错误,当然前提得是SQL Server执行了相关的...
设置对象变量或 With block 变量
我是新手,如题的错误很多人都碰到过,但是网上真正解决的人好象很少rnrn以下是我在VB环境下的代码以及在asp页面里面调用运行后出现的错误:rnrn''''''''''''''''''''''''''=================================rnDim myRequest As RequestrnDim myResponse As ResponsernDim myServer As ServerrnDim mySession As SessionrnDim myApplication As ApplicationrnrnPrivate Conn As ADODB.ConnectionrnPrivate Rs As ADODB.RecordsetrnPrivate strSclass As String, strAction As StringrnPrivate intBclass As Integer, intPid As IntegerrnrnrnPrivate Sub OnStartPage(myScriptingContent As ScriptingContext)rn Set myRequest = myScriptingContent.Requestrn Set myResponse = myScriptingContent.Responsern Set myServer = myScriptingContent.Serverrn Set mySession = myScriptingContent.Sessionrn Set myApplication = myScriptingContent.Applicationrn Call OpenDBrn If OpenDB = True Thenrn myResponse.Write "数据库连接成功!"rn End IfrnEnd SubrnPrivate Sub OnEndPage()rn myResponse.Write "所有<em>操作</em>结束!"rn Set myRequest = Nothingrn Set myResponse = Nothingrn Set myServer = Nothingrn Set mySession = Nothingrn Set myApplication = NothingrnEnd Subrnrn''定义属性============================================rnPublic Property Get Sclass() As Stringrn Sclass = strSclassrnEnd PropertyrnPublic Property Let Sclass(ByVal newValue As String)rn strSclass = newValuernEnd PropertyrnPublic Property Get Bclass() As Integerrn Bclass = intBclassrnEnd PropertyrnPublic Property Let Bclass(ByVal newValue As Integer)rn intBclass = newValuernEnd PropertyrnPublic Property Get Pid() As Integerrn Pid = intPidrnEnd PropertyrnPublic Property Let Pid(ByVal newValue As Integer)rn intPid = newValuernEnd Propertyrnrn''属性定义完毕=========================================rnrnPublic Function OpenDB() As ADODB.Connectionrn Set Conn = New ADODB.Connectionrn Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & myServer.MapPath("/dfgdrgrh/eragerterg.mdb")rn Conn.Openrn Set OpenDB = ConnrnEnd Functionrnrnrnrn''=========================================================rnrnrn在页面里这样测试:rn Set wtype=Server.CreateObject("Xmbiz.WType")rn wtype.Sclass="Sclass的值被赋予了"rn Response.Write(wtype.Sclass)rn wtype.OpenDB()rn Set wtype=nothingrnrnrnrnrn运行的结果就是:rnrnXmbiz (0x800A005B)rn未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em> <em>变量</em>rn/dll.asp, 第 13 行rnrnrn''===========================另外各位兄弟有没有《ASP组件开发指南》一书分享一下,网上有个地方找到但是要解压密码!·#¥%……—rnrnrn我的QQ是278812478rn
“未设置对象变量或With Block变量
我在设计一个ocx控件。当调用我自己写的过程时,经常出现提示:“未<em>设置</em><em>对象</em><em>变量</em>或With Block<em>变量</em>”。害得我不得不把好多代码写在一个过程里。rn这是为什么呀。应该如何解决呢?rn
VB-sql server编程“对象变量或with块变量设置
今天在做数据库编程中遇到了几次相同的<em>问题</em>:<em>对象</em><em>变量</em>或with块未<em>设置</em>。该错误主要是在连接数据库时出了错。既然数据库链接有<em>问题</em>就应该先检查数据源的<em>设置</em>是否正确,方法是在控制面板里找性能和维护——管理工具——数据源,然后进行添加数据源再检查一下ConnectionString属性的"fileDSN=;User_id=;PassWord="是否正确,注意链接数据库时的用户名和密码。再有就
设置对象变量或with block 变量
用金蝶K3,打开主控台,双击里面的子功能和明细功能的时候,提示未<em>设置</em><em>对象</em><em>变量</em>或with <em>block</em> <em>变量</em>,错误代码:91(5BH)rnSource :KDSvrMgrClient.Connect.1rnrn谁能详细地解释一下。
实时错误91,对象变量或with块变量设置,如何解决?
Private Sub Command1_Click() Dim part As Object Dim strfilename As String Dim longstatus As Long Dim d1 As Integer Dim d2 As Integer Dim h As Single If Dir(strfilename) = "" Then    MsgBox ("文
VB读取excel文件
该小程序可以实现VB对<em>excel</em>文档的调用,并且可以实现多次读取<em>excel</em>文档,而不会出现"<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>"的实时错误。
dll调用问题“未设置对象变量或With block变量
我在一个dll中编写了两个class,其中一个用到asp中的<em>对象</em>和属性因此引入rnPublic Sub OnStartPage(PassedScriptingContext As ScriptingContext) rnSet MyScriptingContext = PassedScriptingContext rnSet MyApplication = MyScriptingContext.Application rnSet MyRequest = MyScriptingContext.Request rnSet MyResponse = MyScriptingContext.Response rnSet MyServer = MyScriptingContext.Server rnSet MySession = MyScriptingContext.Session rnEnd Sub rn而且编写了一个函数a(),函数体中调用了以上<em>对象</em>的方法rn而我在另一个class中的函数b()中调用这个a()rn在asp页面测试是老是出现以下错误“未<em>设置</em><em>对象</em><em>变量</em>或With <em>block</em><em>变量</em>”rn请指点!谢谢!
ObjectControl接口与“未设置对象变量或 With block 变量”的问题
最近的项目在.NET(C#)中使用合作方从前开发的COM组件,在调用其方法时遇到了“未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em> <em>变量</em>”错误。这个组件已经使用了很长一段时间,但这是第一次用于.NET环境。我搜索了一些相关的文章,大抵有以下几种情况会引起该错误:rnrn1、在COM组件开发时“将<em>变量</em>设为公有,或使用了晚绑定”。rn由于该组件已经应用了很长时间,所以应该不会是这个<em>问题</em>。况且即便这里有<em>问题</em>,修改它的可能性也不大。rnrn2、在应用该组件的时候“使用了晚绑定”。rn应用该组件的客户代码我可以控制,没有用晚绑定。rnrn网上大部分描述或“解决”该<em>问题</em>的文章我都看过了,用处不大。该组件本身不太可能出现<em>问题</em>,最接近的应该是下面这个原因rnrn3、MTS的<em>问题</em>,确切说是ObjectControl接口的<em>问题</em>。rn由于这个原因导致<em>问题</em>的可能性比较大。MSDN上有一篇文章讨论这个<em>问题</em>,但仍是针对COM组件本身的实现。包括组件要实现ObjectControl接口、在Activate方法中调用GetObjectContext方法获取<em>对象</em>的上下文等等。该文档在http://support.microsoft.com/?scid=http%3a%2f%2fask.support.microsoft.com%2fkb%2f250309%2f。rn我研究了一下这个组件,其中的类应该实现了ObjectControl接口。rnrn是否还有其它原因?rnrn那么在客户代码中应该怎样使用这样的类型?假设COM组件中有类型名为SQLCall,其中有方法名为GetProductEntry()。那么是否需要在客户代码中为其<em>设置</em>上下文环境?还是需要在机器上配置COM+服务的某些<em>设置</em>?rnrn谢谢!
金蝶K3修复
金蝶K3修复 打开软件主界面后出现错误: 未<em>设置</em><em>对象</em><em>变量</em>或WITH BLOCK <em>变量</em> 代码:91(5bh) source:EBCGLVIEW 点确定后,再点明细<em>操作</em>时出现错误提示 'NT AUTHORITY\NETWORK SERVICE' 登录失败
关于“运行时错误91,未设置对象变量或with block变量
我在win2000下并装有vb6.0下运行程序是正常的。而在没有装vb6.0系统下运行时,就出现“运行时错误91,未<em>设置</em><em>对象</em><em>变量</em>或with <em>block</em><em>变量</em>“。我将所有的dll和ocxrn文件都包含进去了,<em>问题</em>也没有得解决。我在程序中只要用的<em>对象</em>是:rndim ado1 as new rescordsetrn....rnrnSet db = New Connectionrn db.CursorLocation = adUseClientrn db.Open "PROVIDER=MSDASQL;driver=SQL Server;server=" + servername + ";uid=" + entername + ";pwd=" + enterpass + ";database=" + databasename + ";"rn rn Set adoPrimaryRS = New Recordsetrn Set adoenter = New Recordsetrn adoPrimaryRS.Open "select 学号,密码 from " + tablename + "", db, adOpenStatic, adLockOptimisticrn rn adoenter.Open "select 学号,密码 from " + tablename + "", db, adOpenStatic, adLockOptimisticrn rn rn Set ado1= adoPrimaryRSrn请各位帮帮我吧!定给高分。
设置对象变量或 With block 变量 急急急!!!
我在把类模块编译成DLL,而后用ASP调用时出现这样的<em>问题</em>,向高手请教。rnrn工程名:Z1rn类模块:A1和类模块A2rnrnA1内容:rnPrivate Context As ScriptingContextrnPrivate Application As ApplicationrnPrivate Response As ResponsernPrivate Request As RequestrnPrivate Session As SessionrnPrivate Server As ServerrnPublic Sub OnStartPage(PassedScriptContext As ScriptingContext)rnSet Context = PassedScriptContext 'Asp运行环境<em>对象</em>rnSet Application = Context.Application 'Asp 五大<em>对象</em>rnSet Request = Context.RequestrnSet Response = Context.ResponsernSet Server = Context.ServerrnSet Session = Context.SessionrnEnd SubrnPublic Function tt1()rntt1 = "这是A1中的<em>对象</em>"rnEnd FunctionrnPublic Sub tt2()rnResponse.write "这是A1中直接写的内容"rnEnd SubrnrnA2内容:rnPrivate Context As ScriptingContextrnPrivate Application As ApplicationrnPrivate Response As ResponsernPrivate Request As RequestrnPrivate Session As SessionrnPrivate Server As ServerrnPrivate c1 As New z7.a1rnrnPublic Sub OnStartPage(PassedScriptContext As ScriptingContext)rnSet Context = PassedScriptContext 'Asp运行环境<em>对象</em>rnSet Application = Context.Application 'Asp 五大<em>对象</em>rnSet Request = Context.RequestrnSet Response = Context.ResponsernSet Server = Context.ServerrnSet Session = Context.SessionrnEnd SubrnPublic Sub tt1()rnResponse.write c1.tt1rnEnd SubrnPublic Sub tt2()rnc1.tt2rnEnd Subrnrn使用ASP调用的代码:rnrnrn出现错误:rnz7 (0x800A005B)rn未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em> <em>变量</em>rn/Airline/2.asp, 第 3 行rnrnrn估计是类A2调A1时出现的错误,我尝试用以下几种方法rn1、private c1 As New z7.a1rn2、private C1 as new a1rn3、set c1=new a1rn4、set c1 =new z7.a1rn上面四种方法都不能成功,出现以上错误,请求高手指点,谢谢。
怎么老是报错:未设置对象变量或with block变量???
Private Sub Form_Load()rnDim abc As New Example.HelloworldrnSet abc = New Example.HelloworldrnCall abc.LoginrnSet abc = NothingrnEnd Subrnrn我实在是在工程中引用了example.dll文件的这个类模块!!!rn
设置对象变量或 With block 变量该怎样解决?
我用vb写了一个连接数据库的组件如下:rn工程名:dataAsp 类名:ConnectionsrnPrivate myscriptingcontext As ScriptingContextrnPrivate myapplication As ApplicationrnPrivate myrequest As RequestrnPrivate myresponse As ResponsernPrivate myserver As ServerrnPrivate mysession As SessionrnrnPublic Sub onstartpage(passedscriptingcontext As ScriptingContext)rn Set myscriptingcontext = passedscriptingcontextrn Set myapplication = myscriptingcontext.Applicationrn Set myrequest = myscriptingcontext.Requestrn Set myresponse = myscriptingcontext.Responsern Set myserver = myscriptingcontext.Serverrn Set mysession = myscriptingcontext.SessionrnEnd SubrnrnPublic Sub onendpage()rn Set myscriptingcontext = Nothingrn Set myapplication = Nothingrn Set myrequest = Nothingrn Set myresponse = Nothingrn Set myserver = Nothingrn Set mysession = NothingrnEnd SubrnrnrnPublic Function Conn() As ADODB.Connectionrn Dim strConn As Stringrn Dim strData As Stringrn Dim myConn As ADODB.Connectionrn Dim i As Stringrn strData = "E:\data\test.mdb"rn strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatarn myConn.Open strConnrn lawerConn = myConnrnEnd Functionrnrn在asp中调用:rndim myConn,connrnset myConn=server.createobject("dataAsp.Connections")rnconn=myconn.Conn()rnrn提示错误:rn错误类型:rndataAsp (0x800A005B)rn未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em> <em>变量</em>rnrn请问该怎样解决?rn
细说vb91错误
相信大家都再敲学生或是机房的时候都会出现:“”“91”错误的吧 那么我在这里简单的介绍一下这个错误出现的原因: 第一:与数据库连接出了<em>问题</em>,这个是比较麻烦的。 1,需要我们检查数据库管理器2.检查odbc是否连接正确。3.检查连接数据库的一系列<em>操作</em>,解决它需要耐心啊。 第二:vb的格式错误 1,所需要在
运行时错误,91, 未设置对象变量或with block 变量
我的论文学生管理系统数据库连接那块,代码如下:rn Dim WithEvents adoPrimaryRS As Recordsetrn Dim mbChangedByCode As Booleanrn Dim mvBookMark As Variantrn Dim mbEditFlag As Booleanrn Dim mbAddNewFlag As Booleanrn Dim mbDataChanged As Booleanrn rn Private Sub Form_Load()rn '连接数据库rn Dim db As Connectionrn Set db = New Connectionrn db.CursorLocation = adUseClientrn db.Open "PROVIDER=MSDASQL;dsn=studentinfo.dsn;uid=;pwd=;"rn rn '连接字段rn Set adoPrimaryRS = New Recordsetrn adoPrimaryRS.Open "select UserID,password from user_Info", db, adOpenStatic, adLockOptimisticrn rn Dim oText As TextBoxrn '绑定文本框到数据提供者rn For Each oText In Me.txtFieldsrn Set oText.DataSource = adoPrimaryRSrn Nextrn rn mbDataChanged = Falsern End Subrn rn Private Sub Form_Resize()rn On Error Resume Nextrn '设计仿ADO控件的按钮位置rn lblStatus.Width = Me.Width - 1500rn cmdNext.Left = lblStatus.Width + 700rn cmdLast.Left = cmdNext.Left + 340rn End Subrn rn Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)rn If mbEditFlag Or mbAddNewFlag Then Exit Subrn rn Select Case KeyCodern Case vbKeyEscapern cmdClose_Clickrn Case vbKeyEndrn cmdLast_Clickrn Case vbKeyHomern cmdFirst_Clickrn Case vbKeyUp, vbKeyPageUprn If Shift = vbCtrlMask Thenrn cmdFirst_Clickrn Elsern cmdPrevious_Clickrn End Ifrn Case vbKeyDown, vbKeyPageDownrn If Shift = vbCtrlMask Thenrn cmdLast_Clickrn Elsern cmdNext_Clickrn End Ifrn End Selectrn End Subrn rn Private Sub Form_Unload(Cancel As Integer)rn Screen.MousePointer = vbDefaultrn End Subrn rn Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)rn '为这个 recordset 显示当前记录位置rn lblStatus.Caption = "Record: " & CStr(adoPrimaryRS.AbsolutePosition)rn End Subrn rn Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)rn '验证代码置于此处rn '下列动作发生时该事件被调用rn Dim bCancel As Booleanrn rn Select Case adReasonrn Case adRsnAddNewrn Case adRsnClosern Case adRsnDeletern Case adRsnFirstChangern Case adRsnMovern Case adRsnRequeryrn Case adRsnResynchrn Case adRsnUndoAddNewrn Case adRsnUndoDeletern Case adRsnUndoUpdatern Case adRsnUpdatern End Selectrn rn If bCancel Then adStatus = adStatusCancelrn End Subrn rn Private Sub cmdAdd_Click() '“新增记录”按钮代码rn On Error GoTo AddErrrn With adoPrimaryRSrn If Not (.BOF And .EOF) Thenrn mvBookMark = .Bookmarkrn End Ifrn .AddNewrn lblStatus.Caption = "添加记录"rn mbAddNewFlag = Truern SetButtons Falsern End Withrn rn Exit SubrnAddErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdDelete_Click() '“删除记录”按钮代码rn On Error GoTo DeleteErrrn With adoPrimaryRSrn .Deletern .MoveNextrn If .EOF Then .MoveLastrn End Withrn Exit SubrnDeleteErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdRefresh_Click() '“刷新数据库”按钮代码rn '只有多用户应用程序需要rn On Error GoTo RefreshErrrn adoPrimaryRS.Requeryrn Exit SubrnRefreshErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdEdit_Click() '“编辑记录”按钮代码rn On Error GoTo EditErrrn rn lblStatus.Caption = "编辑记录"rn mbEditFlag = Truern SetButtons Falsern Exit Subrn rnEditErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdCancel_Click() '“取消修改”按钮代码rn On Error Resume Nextrn rn SetButtons Truern mbEditFlag = Falsern mbAddNewFlag = Falsern adoPrimaryRS.CancelUpdatern If mvBookMark > 0 Thenrn adoPrimaryRS.Bookmark = mvBookMarkrn Elsern adoPrimaryRS.MoveFirstrn End Ifrn mbDataChanged = Falsern rn End Subrn rn Private Sub cmdUpdate_Click() '“确定修改”或“更新修改”按钮代码rn On Error GoTo UpdateErrrn rn adoPrimaryRS.UpdateBatch adAffectAllrn rn If mbAddNewFlag Thenrn adoPrimaryRS.MoveLast '移到新记录rn End Ifrn rn mbEditFlag = Falsern mbAddNewFlag = Falsern SetButtons Truern mbDataChanged = Falsern rn Exit SubrnUpdateErr:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdClose_Click()rn Unload Mern End Subrn rn Private Sub cmdFirst_Click() '“第一条记录”按钮代码rn On Error GoTo GoFirstErrorrn rn adoPrimaryRS.MoveFirstrn mbDataChanged = Falsern rn Exit Subrn rnGoFirstError:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdLast_Click() '“最后一条记录”按钮代码rn On Error GoTo GoLastErrorrn rn adoPrimaryRS.MoveLastrn mbDataChanged = Falsern rn Exit Subrn rnGoLastError:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdNext_Click() '“下一条记录”按钮代码rn On Error GoTo GoNextErrorrn rn If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNextrn If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Thenrn Beeprn '已到最后返回rn adoPrimaryRS.MoveLastrn End Ifrn '显示当前记录rn mbDataChanged = Falsern rn Exit SubrnGoNextError:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub cmdPrevious_Click() '“上一条记录”按钮代码rn On Error GoTo GoPrevErrorrn rn If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePreviousrn If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Thenrn Beeprn '已到最后返回rn adoPrimaryRS.MoveFirstrn End Ifrn '显示当前记录rn mbDataChanged = Falsern rn Exit Subrn rnGoPrevError:rn MsgBox Err.Descriptionrn End Subrn rn Private Sub SetButtons(bVal As Boolean) '按钮代码显示设计rn cmdAdd.Visible = bValrn cmdEdit.Visible = bValrn cmdUpdate.Visible = Not bValrn cmdCancel.Visible = Not bValrn cmdDelete.Visible = bValrn cmdClose.Visible = bValrn cmdRefresh.Visible = bValrn cmdNext.Enabled = bValrn cmdFirst.Enabled = bValrn cmdLast.Enabled = bValrn cmdPrevious.Enabled = bValrn End Subrnrn执行时老是显示:运行时错误,91, 未<em>设置</em><em>对象</em><em>变量</em>或with <em>block</em> <em>变量</em>
运行时错误 91 未设置对象变量或 with block 变量
程序在VB里面调试的时候没发现有<em>问题</em>rnrn但是生成 .exe 运行这个.exe就会提示"运行时错误 91 未<em>设置</em><em>对象</em><em>变量</em>或 with <em>block</em> <em>变量</em>"rnrn用到的是 WebBrowser控件rnrn(现在没什么分 等以后有了分 我会多给一点的 谢谢)
adodc 运行时错误91 未设置对象变量或WITH BLOCK变量???
请教各位,adodc 运行时错误91 未<em>设置</em><em>对象</em><em>变量</em>或WITH BLOCK<em>变量</em>??? rn这是怎么回事? 我用adodc控件连接access数据库,程序在装有vb6.0的机器上运行没有<em>问题</em>。但是到另外一台电脑上,没有安装vb,就出现这个<em>问题</em>了。然后程序就 关掉了。请教各位大虾,这是怎么回事?不胜感激。
急!运行时错误91:未设置对象变量或WITH BLOCK 变量
Option ExplicitrnPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongrnrnrnPublic OK As Booleanrn'记录确定次数rnDim miCount As IntegerrnPrivate Sub Form_Load()rn Dim sBuffer As Stringrn Dim lSize As Longrnrnrn sBuffer = Space$(255)rn lSize = Len(sBuffer)rn Call GetUserName(sBuffer, lSize)rn If lSize > 0 Thenrn txtUserName.Text = ""rn rn Elsern txtUserName.Text = vbNullStringrn End Ifrn rnrn OK = Falsern miCount = 0rnEnd SubrnrnrnrnPrivate Sub cmdCancel_Click()rn OK = Falsern Me.HidernEnd SubrnrnrnPrivate Sub cmdOK_Click()rn Dim txtSQL As Stringrn Dim mrc As ADODB.Recordsetrn Dim MsgText As Stringrn 'ToDo: create test for correct passwordrn 'check for correct passwordrn rn UserName = ""rn If Trim(txtUserName.Text = "") Thenrn MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"rn Set mrc = ExecuteSQL(txtSQL, MsgText)rn If mrc.EOF = True Thenrn MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenrn OK = Truern mrc.Closern Me.Hidern UserName = Trim(txtUserName.Text)rn Elsern MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"rn txtPassword.SetFocusrn txtPassword.Text = ""rn End Ifrn End Ifrn End Ifrn rn miCount = miCount + 1rn If miCount = 3 Thenrn Me.Hidern End Ifrn Exit SubrnEnd Subrnrn请各位高手帮帮忙看看哪里的错呀~~谢谢拉!rn
设置对象变量或 With block 变量_愁啊
小弟用vb编写了ActiveX DLL 控件,作用是访问数据库. 然后我在asp中调用之.rnrn在vb中 小弟编写了一个函数,在asp中向vb控件传递了几个参数(查询条件)rnrn可是在执行时经常出现 未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em> <em>变量</em> 的错误提示.rnrn小弟用的连接字符串rnProvider=SQLOLEDB.1;Network Library=DBMSSOCN;Persist Security Info=False;User ID=swyd;password=swyd;Initial Catalog=SWYD1;Data Source=serverrnrn然后小弟将返回值导到文本文件中,发现rnrnconn.open  返回错误值0rn执行查询语句 返回错误值 0rn得到的 res.RecordCount 值为 -1 (小弟将导出册查询语句放到sql查询分析器中,明明可以查到记录)rn总之返回的错误值都是0rn但是,在asp页面中却出现了"未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em> <em>变量</em>" 的提示rnrn小弟又将 ActiveX DLL 加了一个窗口改成exe程序,然后<em>设置</em>一个按钮调用那个函数,一切正常.rnrn这是怎么回事啊????? rn
adodc运行时错误91未设置对象变量或WITH BLOCK变量
adodc运行时错误91未<em>设置</em><em>对象</em><em>变量</em>或WITH BLOCK<em>变量</em>, 请教各位,怎么回事啊?
[VB]未设置对象变量或 With block 变量
最近要用VB写成一个DLL文件,引入了数据库<em>对象</em>。要取得所有的数据表信息,我用了下面这个函数rnrn[code=VBScript]rnPrivate Function getTables()rn rn Dim gettblrn Set tbls = conn.OpenSchema(20)rn rn tbls.MoveFirstrn If Not tbls.EOF Thenrn rn Do Until tbls.EOFrn If tbls("TABLE_TYPE") = "TABLE" Thenrn gettbl = gettbl & "," & tbls("TABLE_NAME")rn End Ifrn Looprn rn End Ifrn getTables = gettblrnEnd FunctionrnrnPublic Function tb()rn Dim gtbrn gtb = getTables()rn Response.Write gtbrnEnd Functionrn[/code]rnrnrn然后调用的时候就出现这个错误:rnrndata '800a005b' rnrn未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em> <em>变量</em> rnrnrnrnrnrn有没有哪位知道是为什么啊?
打开Office时出现“运行时错误91”问题的解决办法
打开Office时出现“运行时错误91”<em>问题</em>的解决办法!
对象变量或WITH变量设置
以前用VB写了个小程序调用office97中的Excel生成一个新的Excel表rnDim Excel as Excel.ApplicationrnSet Excel97=new Excel.Application rn....rn在Excel97中编译通过能运行且正确,现在在Excel2003中编译运行时,在Set Excel97=new Excel.Application 这一行提示<em>对象</em><em>变量</em>或WITH<em>变量</em>未<em>设置</em>,引用中也将Microsoft Excel11 object Lib 这一项钩上了,不知是什么原因,请各位大侠帮帮忙!
设置对象变量或With 块变量
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadrn If Not IsPostBack Thenrn Label1.Text = "请输入邮件发送地址:"rn Label2.Text = "请输入邮件目的地址:"rn Label3.Text = "请输入邮件抄送地址:"rn Label4.Text = "请输入邮件密送地址:"rn Label5.Text = "请输入邮件主题:"rn Label6.Text = "请输入邮件主体:"rn Label7.Text = "请加入附件名称:"rn Label8.Text = "使用ASP.NET发送电子邮件"rn Label9.Text = "编写日期:2009年2月"rn Button1.Text = "发送"rn End Ifrn End Subrnrn Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickrn Dim MailObj As New MailMessagern MailObj.From = TextBox1.Textrn MailObj.To = TextBox2.Textrn MailObj.Cc = TextBox3.Textrn MailObj.Bcc = TextBox4.Textrn MailObj.Subject = TextBox5.Textrn MailObj.BodyFormat = MailFormat.Textrn MailObj.Priority = MailPriority.Normalrn MailObj.Body = TEXTAREA1.Valuern Dim filename As Stringrn filename = Emailfile.postedfile.filenamern If filename <> "" Thenrn MailObj.Attachments.Add(New MailAttachment(filename))rn SmtpMail.SmtpServer = ""rn SmtpMail.Send(MailObj)rn Panel1.Visible = Falsern Panel2.Visible = Truern End Ifrn End SubrnEnd Classrn代码如上:rnemailfile这里未声明
对象变量或With块变量设置
[code=VB]rnPrivate Function AynsURL()rn Dim Body As Stringrn Dim lnks As Variantrn rn WebBrowser1.Visible = Falsern WebBrowser1.navigate "http://www.78.com"rn rn rn MsgBox WebBrowser1.Document.getElementsByTagName("a")(0).href '此行出错rn rnEnd Functionrn[/code]rnrnrn上面的代码.为什么会报实时错误"91" <em>对象</em><em>变量</em>或WITH 块<em>变量</em>未<em>设置</em>?
对象变量或with变量设置
MSFlexGrid1 控件,出现此错误提示:<em>对象</em><em>变量</em>或with<em>变量</em>未<em>设置</em>。rnPublic cmd As ADODB.CommandrnrnSet cmd = New ADODB.Commandrn With cmdrn .ActiveConnection = cnrn .CommandText = sql1 '"Select * from ruzhang "rn .Prepared = Truern .CommandType = adCmdTextrn End Withrn' Set hflxgrdProc.DataSource = cmd.ExecuternrnSet rs = cmd.ExecuternSet hflxgrdProc.DataSource = rsrnrnconnection已经打开了,rnrs也是一样的,rn但是错误停止在这一行rnSet hflxgrdProc.DataSource = rsrn
对象变量或 with块变量设置
第一次执行 timer1.timerd的时候不出错 第二次eventIE_NavigateComplete Call Timer1_Timer 到 wangye = doc.body.innerHtml 这句的时候就出错 <em>对象</em><em>变量</em>或 with块<em>变量</em>未<em>设置</em> 求教 rnrnrnOption Explicitrn rnrnDim dWinFolder As New ShellWindowsrnDim WithEvents eventIE As WebBrowser_V1rn rnPrivate Sub eventIE_NavigateComplete(ByVal URL As String)rn Text1.Text = Text1.Text + Chr(13) + Chr(10) + URLrn Timer1.Enabled = Truern Call Timer1_TimerrnEnd SubrnrnPrivate Sub Timer1_Timer()rn Dim objIE As Objectrn Dim doc As Objectrn Dim wangye As Stringrn rn' On Error Resume Nextrn rn For Each objIE In dWinFolderrn If InStr(objIE.Document.Title, "xxx公司") <> 0 And objIE.ReadyState = READYSTATE_COMPLETE Thenrn Set eventIE = objIErn Set doc = objIE.Documentrn rn Print objIE.Document.Titlern wangye = ""rn [color=#FF0000]wangye = doc.body.innerHtml[/color] ' 第一次执行 timer1.timerd的时候不出错 第二次eventIE_NavigateComplete Call Timer1_Timer 到这句的时候就出错 <em>对象</em><em>变量</em>或 with块<em>变量</em>未<em>设置</em> 求教 rn Text2.Text = ""rn Text2.Text = wangyern Timer1.Enabled = Falsern Exit Forrn End Ifrn NextrnEnd Sub
对象变量或 With 块变量设置
我是初学者,按照书本上的方法去学习和试验rnrn书本内容如下:rnrn rnrn在Visual Basic的应用程序中,还可以通过编写代码来建立一个数据库文件,以及对数据库进行索引、查询等许多<em>操作</em>。这样就需要用到几个心的<em>对象</em>,如“DataBase”、“TableDef”、“Field”等,这些被统称为数据库存取<em>对象</em> DAO(Data Access Object)。DBEngine是DAO的最高层接口,在它下面可以生成一个Workspace<em>对象</em>**,可以利用某一个Workspace<em>对象</em>的CreateDatabase方法建立心的数据库文件。首先要定义<em>对象</em><em>变量</em>,例如:rnrndim ws as workspacerndim DB as database '指明用WS代表DBEngine生成的哪个 Workspace 。rnset WS=DBEngine.workspace(0)rnrn在上列中将工作环境定义为使用 DBEngine 的 Workspace (0) <em>对象</em>,实际这个<em>对象</em>是缺省值,不定义也将使用该<em>对象</em>,但当使用其他<em>对象</em>时,如 Workspace (1) ,就必须重新定义。rnrn利用Workspace的 CreateDatabase方法来创建数据库文件,其语法格式为:rnrnSet database = Workspace.CreateDatabase(name,local[,Option])rnrn其中,Database 为已定义的数据库类型<em>变量</em>,代表新建立的数据库<em>对象</em>。rnWorkspace 为已定义 Workspace 类型<em>变量</em>,表示所使用的工作环境,包含新的数据库<em>对象</em>。rnname 为将要新建的数据库文件路径和名称。rnLocal 该表达式用来指定字符串比较的规则,一般按英文字母顺序比较,可以指定为 dbLanggeneral 。rnoption 该项为可选项,用来指定数据格式的版本及数据库是否解密,一般情况下,可以不指定此项。rnrn例如,要在 D 盘 tsgl 目录下建立一个名为 xxjs_book的数据库文件,可采用如下代码来实现:rnrndim WS as Workspacerndim DB as Databasernset DB = WS.CreateDatabase("D:\tsgl\xxjs_book",dblanggeneral)rnrn******************书本内容结束*********************rnrn但是我做了,却提示错误,后来引用了 microsoft DAO 3.6 object library rnrn又提示:<em>对象</em><em>变量</em>或 With 块<em>变量</em>未<em>设置</em>rnrn弄多了,有时候提示 :vb 找不到可安装的 ISAMrnrnrn希望有人能帮我解决,非常感谢..
设置对象变量或 With 块变量
有一数据表,字段包括标题(title)、新增日期(opdate)等,rn我想实现的功能是:用datagrid绑定取出的符合条件的记录,同时,对"新增日期"在最近一个月的记录,能显示一个NEW的图片。rn我现在的做法是:在页面上放了一个DATAGRID1,其中有一个模板列,放有一image控件,该控件的ID为imgnew;rndatagrid1的OnItemDataBound="DataGrid1_ItemDataBound"。rn下面是DataGrid1_ItemDataBound中的代码:(注:txtdateflag.text里存的是year(today()*10000+month(today())*100+day(today()))rn Sub DataGrid1_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)rn If Year(e.Item.DataItem("opdate")) * 10000 + Month(e.Item.DataItem("opdate")) * 100 + Day(e.Item.DataItem("opdate")) >= CInt(txtDateFlag.Text) Thenrn e.Item.FindControl("imgnew").Visible = Truern Elsern e.Item.FindControl("imgnew").Visible = Falsern End Ifrn End Subrnrn测试时,一直出错:“未<em>设置</em><em>对象</em><em>变量</em>或 With 块<em>变量</em>”。rn请问有没有哪位老大知道是什么原因,或可用什么其他方法实现???急!在线等!
对象变量或WITH块变量设置
我想用VB做一个库存月报表,程序如下:但系统报错,"<em>对象</em><em>变量</em>或WITH块<em>变量</em>未<em>设置</em>"请大家帮忙看一下<em>问题</em>在那?谢谢rn我用的是ADODC连接的数据库。rnPublic adoCon As New ADODB.Connection rnPublic adoRs As New ADODB.Recordset rnPublic adoRs1 As New ADODB.Recordset rnrnPublic Name1 As StringrnPublic StrNums As IntegerrnPublic Temps 'rnrnPublic Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongrnPublic rtnrnPublic TWidth As LongrnPublic THeigth As LongrnrnPublic Sub main() rnDim temp As Stringrntemp = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ck;Data Source=liuping-727f568“rnadoCon.Open (temp)rnEnd Sub ####应该也不会有<em>问题</em>,我别的窗体也调用了的,正常!####rn-----------------------------------------------rnrnrnPrivate Sub Command1_Click()rnCall main 《模块的里的公用函数》rnDim fx As IntegerrnrnrnAdodc1.CommandType = adCmdTextrnAdodc1.RecordSource = "select 料号,sum( 出入数量)as 返修入库数 from cryd where datediff(m, 出入时间,getdate())rnSet DataGrid1.DataSource = Adodc1rnAdodc1.RefreshrnrnrnEnd Subrnrnrnrn
对象变量或with块变量设置????
做数据库时有以下一部分login代码:rnOption ExplicitrnPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongrnrnrnPublic OK As Booleanrn'记录确定次数rnDim miCount As IntegerrnPrivate Sub Form_Load()rn Dim sBuffer As Stringrn Dim lSize As Longrnrnrn sBuffer = Space$(255)rn lSize = Len(sBuffer)rn Call GetUserName(sBuffer, lSize)rn If lSize > 0 Thenrn txtUserName.Text = ""rn rn Elsern txtUserName.Text = vbNullStringrn End Ifrn rnrn OK = Falsern miCount = 0rnEnd SubrnrnrnrnPrivate Sub cmdCancel_Click()rn OK = Falsern Me.HidernEnd SubrnrnrnPrivate Sub cmdOK_Click()rn Dim txtSQL As Stringrn Dim mrc As ADODB.Recordsetrn Dim MsgText As Stringrn 'ToDo: create test for correct passwordrn 'check for correct passwordrn rn UserName = ""rn If Trim(txtUserName.Text = "") Thenrn MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"rn Set mrc = ExecuteSQL(txtSQL, MsgText)rn If mrc.EOF = True Thenrn MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenrn OK = Truern mrc.Closern Me.Hidern UserName = Trim(txtUserName.Text)rn Elsern MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"rn txtPassword.SetFocusrn txtPassword.Text = ""rn End Ifrn End Ifrn End Ifrnrn错误提示:rn<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>rn If mrc.EOF = True Thenrn行出错rn如何解决,谢谢!!!~~~
学生信息管理系统之—对象变量或者with变量设置错误
在这几天弄学生信息管理系统中,遇到了很多麻烦,刚开始尤其是这个<em>对象</em><em>变量</em>或者是with<em>变量</em>未<em>设置</em>,出现这个错误让我很揪心,我上网上查了查,其根本原因是数据库链接出现<em>问题</em>,因为任何对数据库的<em>操作</em>都必须建立在连接的基础上,以下是我出现的错误和解决方法。        1  ADO<em>对象</em>库没有引用      在弄数据库之前,首先要将Microsoft   ActiveX date Obje
实时错误‘91’:对象变量或With块变量设置——学生系统调错总结二
上一篇博客,我总结了由于粗心而不该犯的一些错误:    点击打开链接 今天来总结一下,在调错过程中我们经常碰见的一些错误。      一. .实时错误‘91’:<em>对象</em><em>变量</em>或With块<em>变量</em>未<em>设置</em>         1.  在运行程序之前没有配置ODBC数据源或者ODBC数据源配置错误,当然前提得是SQL Server执行了相关的SQL代码(学生系统中用到的stude
实时错误91,对象变量或with块变量设置
<em>问题</em>: 在添加用户信息的过程中,执行到while(mrc.EOF=False)的时候,提示如下错误,<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em> 当把光标放到set mrc=executesql(txtsql,msgtext)上面的时候,会发现mrc返回值为Nothing.mrc的值为空,所以就会提示<em>对象</em><em>变量</em>未<em>设置</em>这样的错误提示。 解决办法:
VB中 对象变量或with块变量设置
 调式代码发现,是因为<em>对象</em><em>变量</em>为<em>设置</em>成了Nothing值。 网上资料(http://msdn.microsoft.com/zh-cn/library/5szkzs17(VS.80).aspx)总结的如下情况分类:确保<em>对象</em><em>变量</em>引用有效的<em>对象</em>,并为该<em>对象</em>指定或重新指定一个引用。确保没有使用<em>设置</em>为 Nothing 的<em>对象</em><em>变量</em>。 确保已在 Add Ref
【VBA编程】13.Workbook对象的事件
Workbook事件用于响应对Workbook<em>对象</em>所进行的<em>操作</em>。 【BeforeClose事件】 BforeClose事件用于响应窗口关闭的<em>操作</em> 在工程资源器中,双击“ThisWorkbook”<em>对象</em>,弹出&quot;ThisWorkbook&quot;窗口,并且选择Workbook,BeforeClose 并在窗口中写下如下代码:【代码区域】 Private Sub Workbook_BeforeC...
第一次机房收费-运行时错误'91'
在机房收费系统的过程中前期的配置完毕后登录总是出现运行时错误’91’:未<em>设置</em><em>对象</em><em>变量</em>或 With <em>block</em><em>变量</em> 解决<em>问题</em>的过程 1、重新配置之前的ODBC和注册控件 2、百度查找分析,服务器挂起(密码的<em>问题</em>) 3、重做以上两个步骤 4、询问同伴,修改sa密码,出现新的Bug 一、服务器挂起的解决 1、win+R调出运行框输入:‘services.msc’(Windows系统中用
OC 重点block-------2-------block内部访问外部变量问题
1).在<em>block</em> 代码块的内部,可以取定义在外部的<em>变量</em>的值,定义在外部的局部<em>变量</em>和全局<em>变量</em>         2).在<em>block</em>代码块中可以修改全局<em>变量</em>的值,但是不能修改定义在外部的局部<em>变量</em>的值。(如果希望定义的的局部<em>变量</em>,可以允许<em>block</em>代码的内部去修改,那么就在局部<em>变量</em>加上一个__<em>block</em>)   #import typedef void
关于block访问外部变量的一些小注意点
Block类型是一个C级别的语法和运行机制。它与标准的C函数类似,不同之处在于,它除了有可执行代码以外,它还包含了与堆、栈内存绑定的<em>变量</em>。因此,Block<em>对象</em>包含着一组状态数据,这些数据在程序执行时用于对行为产生影响。    你可以用Block来写一些可以传到API中的函数语句,可选择性地存储,并可以使用多线程。作为一个回调,Block特别的有用,因为<em>block</em>既包含了回调期间的代码,又包含了执
运行时错误91问题汇总
在总账中,查询管理费用时报"7-内存溢出"或“未<em>设置</em><em>对象</em><em>变量</em>,运行时91错误”。 此<em>问题</em>请检查机器环境: 机器名是否含特殊字符或中文,登陆<em>操作</em>系统的<em>操作</em>员名是否含特殊字符或中文,其权限是否为超级管理员或高级用户. 重新注册软件的所有组件,可使用通网站服务工具中的维护通2.0中的三十九号工具进行注册. 清空系统临时文件夹,路径:   C:\Documents and Settings\Adm
Block变量,被__block修饰的变量称作Block变量。 基本类型的Block变量等效于全局变量、或静态变量
Block<em>变量</em>,被__<em>block</em>修饰的<em>变量</em>称作Block<em>变量</em>。 基本类型的Block<em>变量</em>等效于全局<em>变量</em>、或静态<em>变量</em>。
VB中对象变量或with块变量错误(91号错误)解决方法
兄弟最近被这<em>问题</em>困搅,最后终于解决!   1.你连接数据库时可能出错了,检查一下connectstring这句语句,是否写正确,或者把他该成connectstring ="file name=你保存的DNS的路径".注意的是在odbc源中选择dns文件哦!2.你的sql语句有没有写正确,查看方法是把你的语句放到sql server中的查询分析器中去运行一下,看看有没有什么<em>问题</em>!有<em>问题</em>就改一
设置innerHTML时出现"未知的运行时错误
在Ajax里经常会通过innerHTML来改变界面,这个比使用DOM要简单一些。比如:element.innerHTML = "something"不过,在IE中,有时候会出现"未知的运行时错误(unknown runtime error)",而在firefox里不会。这主要是IE在对innerHTML进行写<em>操作</em>的时候会检查element是否具备做为这些内容中html<em>对象</em>容器的要求,比如如果你是在
【iOS】block作为属性时候的坑
今天在开发LemonBest开源项目的时候,写了一个小demo,遇到一个大坑,在LemonBestItem中我采用属性的方式进行保存一个回调<em>block</em>,在点击之后调用这个<em>block</em>,发现crash了,怎么办呢?开始解决
给初学者:VB如何操作WEB页的浏览提交———四:如果是已经打开的IE页怎么办?
很简单,获取它就可以了,不是通过句柄等<em>操作</em>方法,应该是COM?以下在模块首先在工程中加入对Microsoft Internet Controls的引用指定浏览器<em>对象</em>的DocumentPublic mDocument As Object参数为网页标题Public Sub mComGetIEWindows(ByVal IETitle As String)浏览器<em>对象</em>集合(包含IE也包
对象变量设置
我做了一个小项目,在自己的机器上用时好用,再另一台机器上打包运行了,调试好了。再换一台机器,就出现“<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>”<em>问题</em>。很奇怪啊,不清楚错在什么地方。希望有经验的前辈指点一下rn我是要ACCESS数据库的
对象变量设置?
有一段代码rnrnrn没有global.asa 文件,也就是没有Session_OnStart函数 rnrn应该说,Account = "" ,但是却提示"<em>对象</em><em>变量</em>未<em>设置</em>"rnrn请问为什么??
对象变量设置??
在类模块中声明:rnrnOption ExplicitrnPrivate mdtmCreated As DatarnrnPrivate Sub Class_Initialize()rn mdtmCreated = Now rnEnd Subrnrn语句 mdtmCreated = Now 错误!rn错误:      rn      实时错误‘91’rn      <em>对象</em><em>变量</em>未<em>设置</em>rn该怎么解决??
Block原理,为什么block能捕获变量 -- 原理篇
主要参考了这些文章 , 有删改 :  http://www.jianshu.com/p/ee9756f3d5f6 https://www.jianshu.com/p/c99f4974ddb5   https://www.jianshu.com/p/8865ff43f30e                         前言 Blocks是C语言的扩充功能,而Apple 在OS X S...
设置变量或with block变量"">点击Treeview出错,"未设置变量或with block变量"
我点击TREEVIEW1的代码是rnPublic Scfl As StringrnPrivate Sub TreeView1_Click()rnScfl = TreeView1.SelectedItem.TextrnIf Scfl = "所有" Then '所有是表头 rnScfl = ""rnExit SubrnEnd IfrnScfl = TreeView1.SelectedItem.Textrnend subrn我在同一个程序里前面那个TREEVIEW乱点时 总选定了表头“所有”这项。rn但是在新的这个TREEVIEW1里 只要点不中NODE 就会"未<em>设置</em><em>变量</em>或with <em>block</em><em>变量</em>" 出错 rn真是难死新人了 请有空的老师指点下 谢谢
vb封装 报800a005b 未设置变量或with block对象
我是把ASP封装成DLL用的。如果没有记录集或者数据库,那就没有<em>问题</em>。rn我引用了active server page liberaryrnMicrosoft activex data 2.5rn还有一个带recordset的。rnrnrnrn代码如下:rn[code=VB]rnrnoption ExplicitrnrnPrivate Context As ScriptingContextrnPrivate Application As ApplicationrnPrivate Response As ResponsernPrivate Request As RequestrnPrivate Session As SessionrnPublic conn As ADODB.ConnectionrnPublic rs As ADODB.RecordsetrnPrivate Server As ServerrnPrivate key As StringrnrnrnPublic Sub OnStartPage(PassedscriptContext As ScriptingContext)rnSet Context = PassedscriptContextrnSet Application = Context.ApplicationrnSet Request = Context.RequestrnSet Response = Context.ResponsernSet Server = Context.ServerrnSet Session = Context.SessionrnEnd SubrnrnrnrnrnPublic Function setKey(key_)rn key = key_rnEnd FunctionrnrnPublic Function getKey()rn getKey = keyrnEnd Functionrnrnrnrn'==========================rn' connect to databasern'==========================rnPublic Function DbConn()rn Dim connstr As Stringrn Dim conn As New ADODB.Connectionrn Set conn = Server.CreateObject("adodb.connection")rn connstr = "driver=mysql odbc 3.51 driver;database=biran;uid=root;password=7321203;server=localhost;stmt=set names 'gbk'"rn conn.Open connstrrn If Err <> 0 Thenrn Err.Clearrn End Ifrn DbConn = connrnEnd FunctionrnrnPublic Function getData()rn Dim con As ADODB.Connectionrn con = test.DbConn()rn Dim rs As New ADODB.Recordsetrn rn Set rs = Server.CreateObject("adodb.recordset")rn rs.Open "select * from aa", conn, 1, 1rn If Not rs.EOF Thenrn Do While Not rs.EOFrn rn Response.Write rs("name") & " "rn rn rs.MoveNextrn Looprn rn Elsern Response.Write "NO Data"rn End Ifrn rs.Closern Set rs = Nothingrn rn rn rnrnEnd FunctionrnrnPublic Sub OnEndPage()rnSet Application = NothingrnSet Request = NothingrnSet Response = NothingrnSet Server = NothingrnSet Session = NothingrnSet Context = NothingrnEnd Subrnrnrn[/code]
block 捕获外部变量解析
先看一张全图 在上面的图片中可以看到: <em>block</em> 内部不可以修改自动<em>变量</em>的值,但是加上__<em>block</em>以后就可以 <em>block</em> 内部可以修改<em>对象</em>属性的值,但是不可以修改<em>对象</em>的指向 接下来会逐个分析1. 全局<em>变量</em> 编译前 编译后 可以发现编译后是直接复制的,没有特殊<em>操作</em> 原因:全局<em>变量</em>是存放在全局符号表里面的,在整个 app 生命周期
运行时出现“对象变量或With对象变量设置
rnrnrn运行时出现“<em>对象</em><em>变量</em>或With<em>对象</em><em>变量</em>未<em>设置</em>“rn代码如下:rnPrivate Sub Command1_Click()rnDim mrc As ADODB.Recordsetrntxtsql = "select uname from use where uname='" & Trim(Text1.Text) & "'"rnSet mrc = ExecuteSQL(txtsql)rnIf mrc.EOF = True Then这里出错,“<em>对象</em><em>变量</em>或With<em>对象</em><em>变量</em>未<em>设置</em>“rn MsgBox " 用户名错误或密码错误!", vbExclamation + vbOKOnly, "警告"rn Text1.SetFocusrn Text1.SelStart = 0rn Text1.SelLength = Len(Text1.Text)rn Exit SubrnEnd Ifrnuname = mrc.Fields(0)rntxtsql = "select uname from use where password='" & Trim(Text2.Text) & "'"rnSet mrc = ExecuteSQL(txtsql)rnIf mrc.EOF = True Thenrn MsgBox " 用户名错误或密码错误!", vbExclamation + vbOKOnly, "警告"rn Text2.SetFocusrn Text2.SelStart = 0rn Text2.SelLength = Len(Text2.Text)rn Exit SubrnEnd If MDIForm1.ShowrnUnload MernEnd SubrnPublic Function ExecuteSQL(ByVal sql As String) As ADODB.RecordsetrnDim mycon As ADODB.ConnectionrnDim rst As ADODB.RecordsetrnSet mycon = New ADODB.Connectionrnmycon.ConnectionString = connstringrnmycon.OpenrnDim stokens() As StringrnOn Error GoTo exectuesql_errorrnstokens = Split(sql)rnIf InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Thenrn mycon.Execute sqlrnElsern Set rst = New ADODB.Recordsetrn rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimisticrnSet ExecuteSQL = rstrnEnd Ifrnexectuesql_exit:rn Set rst = Nothingrn Set mycon = Nothingrn Exit Functionrnexectuesql_error:rn Resume exectuesql_exitrnEnd Functionrnrn请多多指教
关于对象变量或with块变量设置 问题。。。。
[code=VB]Private Sub Form_Load()rnDim i As IntegerrnrnCall Connent '调用模块连接数据库rnCombo1.ClearrnCombo2.Clearrn rn '把值检索出来赋值给combo1控件,rnIf Adodc2.Recordset.RecordCount > 0 Then (★★程序提示此行代码有误★★rn提示内容为“<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>”。)rnrn Adodc2.Recordset.MoveFirstrnFor i = 0 To Adodc2.Recordset.RecordCount - 1rn Combo1.AddItem Adodc2.Recordset.Fields(0).Valuern Combo2.AddItem Adodc2.Recordset.Fields(1).Valuern Adodc2.Recordset.MoveNextrnNextrnEnd IfrnCombo1.ListIndex = 0rnCombo2.ListIndex = 0rnEnd Sub[/code]rnrn我想问下应该是怎么解决?为什么会产生这个<em>问题</em>?rn谢谢
对象变量或with块变量设置问题
Private Sub AddUser_Click() '将密码写入数据库rn On Error GoTo errhrn Set rs = New ADODB.Recordsetrn Set rs = CN.Execute("select * From User")rn rs.MoveFirstrn Dorn If rs.Fields("ID") = txtID.Text Thenrn If Me.txtName.Text <> "" Thenrn If Me.txtUserName.Text <> "" Thenrn If Me.txtPassword.Text <> "" Thenrn If Me.txtTel.Text <> "" Thenrn Set rs = New ADODB.Recordsetrn MakeConnectionrn rs.LockType = adLockOptimisticrn rs.CursorType = adOpenKeysetrn rs.Open "用户", CN, , , adCmdTablern rs.AddNewrn rs.Fields("Name").Value = Me.txtName.Textrn rs.Fields("UserName").Value = Me.txtUserName.Textrn rs.Fields("Password").Value = Me.txtPassword.Textrn rs.Fields("Tel").Value = Me.txtTel.Textrn rs.Updatern delConnection '断开连接数据库rn Me.Hidern MsgBox "恭喜您!您已注册成功!"rn Elsern MsgBox "用户的电话号码不能为空,请输入您的电话号码!"rn End Ifrn Elsern MsgBox "用户的密码不能为空,请输入您的密码!"rn End Ifrn Elsern MsgBox "用户昵称不能为空,请输入您的昵称!"rn End Ifrn Elsern MsgBox "用户真实姓名不能为空,请输入您的真实姓名!"rn End Ifrn End Ifrn rs.MoveNextrn Loop Until rs.EOFrn If rs.EOF Then '用户ID不存在时rn MsgBox "对不起!你输入的ID不存在!", , "Login"rn txtID.SetFocusrn End Ifrn Exit Subrnerrh: '出错处理rn MsgBox Err.DescriptionrnEnd Subrnrn这段代码运行时总出现“<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>”的错误提示,请问是什么<em>问题</em>?
新手问题,提示对象变量或WITH块变量设置
我是新手,刚刚用VB6.0编的一个小程序,新建记录和删除都正常,就是选中表中的一条数据,点编辑按钮就提示“实时错误‘91’<em>对象</em><em>变量</em>或WITH块<em>变量</em>未<em>设置</em>”rnVB程序文件在http://www.redfoxcn.com/vb.rarrn哪位大哥帮忙解决下啊
对象变量或With块变量设置问题!!
我要模拟抽奖系统,两个按钮一个Label或TextBox,点击开始按钮,就是让数据库中的号码不停地在窗体上多行滚动,点击停止按钮,就停下来。但不能重复抽!!!rn在下是个菜鸟只能想到如下:rn Dim CN As ADODB.Connectionrn Dim StartLoop As Booleanrn Dim SqlStr As Stringrn rn Private Sub Form_load()rn CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\...\db1.mdb;Persist Security Info=False"rn CN.Openrn End Subrn rn Private Sub CommandButton1_Click()rn Dim starTime As Singlern Dim rs As ADODB.Recordsetrn StartLoop = Truern SqlStr = "select call_no from pd_users where 1=1"rn Set rs = CN.Execute(SqlStr)rn rs.MoveFirstrn Do While StartLooprn starTime = Timerrn Do While Timer - starTime < 0.1rn DoEventsrn If StartLoop = False Then Exit Dorn Looprn TextBox1 = rs("call_no")rn rs.MoveNextrn On Error Resume Nextrn If rs.EOF Thenrn rs.MoveFirstrn Elsern rs.MoveNextrn End Ifrn Looprn rs.Closern End Subrn rn Private Sub CommandButton2_Click()rn StartLoop = Falsern End Subrn系统提示说:<em>对象</em><em>变量</em>或With块<em>变量</em>未<em>设置</em>,并指向这句“Set rs = CN.Execute(SqlStr)”请大家帮忙看看;rn还有,我在SQL语句查询后在多一步<em>操作</em>,将查询处的call_no的state字段的值改为1rn应该怎么改!!谢谢大家!!rn
[求助]实时错误91,对象变量
原文地址:[求助]实时错误91,<em>对象</em><em>变量</em>或with块<em>变量</em>未<em>设置</em>作者:芒果<em>对象</em><em>变量</em>或 With 块<em>变量</em>没有<em>设置</em>(错误 91) 创建<em>对象</em><em>变量</em>有两个步骤。第一,必须先声明<em>对象</em><em>变量</em>。然后必须用 Set 语句将一个正确的引用赋值给<em>对象</em><em>变量</em>。同样地,With...End With 块必须先用 With 语句进入点来执行初始化。此错误有以下的原因和解决方法: 试图使用的<em>对象</em><em>变量</em>,还没有用一个正确<em>对象</em>的引用
你真的理解__block修饰符的原理么?
开篇自测在本文的开头,提出两个简单的<em>问题</em>,如果你不能从根本上弄懂这两个<em>问题</em>,那么希望你阅读完本文后能有所收获。 为什么<em>block</em>中不能修改普通<em>变量</em>的值? __<em>block</em>的作用就是让<em>变量</em>的值在<em>block</em>中可以修改么? 如果有的读者认为,<em>问题</em>太简单了,而且你的答案是: 因为编译器会有警告,各种教程也都说了不能修改。 应该是的吧。 那么我也建议你,抽出宝贵的几分钟时间阅读完本文吧。在开始揭开__<em>block</em>
关于未赋值的变量,是真是假
1、
block(3) - 变量与__block修饰符
__<em>block</em>修饰<em>变量</em>的时候时候 1、__<em>block</em>修饰本地<em>变量</em>转为cpp的样子 //用__<em>block</em>修饰的本地<em>变量</em>b多了这个结构体 struct __Block_byref_b_0 { //直译为本地<em>变量</em>b在<em>block</em>中是通过引用的 void *__isa; __Block_byref_b_0 *__forwar...
MATLAB数据过大,无法保存
如果matlab提示如下警告: 警告: 未保存<em>变量</em> ‘**’。对于大于 2GB 的<em>变量</em>,请使用 MAT-file 版本 7.3 或更高版本。 解决方案如下: 进入matlab主页,点击“布局”旁边的预设按钮,点击常规,点击MAT-File,选择第一个MAT-file保存格式,点击确定即可。 ...
iOS block截获变量
<em>block</em>截获<em>变量</em>是什么意思?我们先来看一段代码:int i = 10; void (^<em>block</em>)(void) = ^{ NSLog(@&quot;In <em>block</em>, i = %d&quot;, i); }; i = 200; <em>block</em>(); NSLog(@&quot;i = %d&quot;, i);这段代码的输出结果是什么呢?控制台输出结果为:有人肯定会想,在 <em>block</em> 执行之前已经把<em>变量</em> i 的值改成 20 了,为什...
对象变量或with未设置,这怎么改?
提示:实时报错“91”,<em>对象</em><em>变量</em>或with未<em>设置</em>,这怎么改?谢谢!rn[code=VB.NET]Private Sub cmdOK_Click()rnDim txtSQL As StringrnDim rstLogin As ADODB.RecordsetrnDim flag As StringrngUserName = ""rngUserKind = ""rnIf Trim(txtUserName.Text = "") Thenrn MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrnElsern txtSQL = "select * from tbUser where UserId = '" & txtUserName.Text & "'"rn flag = ExecuteSQL(txtSQL, rstLogin, False)rn [color=#FF0000] If rstLogin.EOF = True Then[/color]rn MsgBox "没有这个用户,请重新输入!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern If Trim(rstLogin.Fields(1)) = Trim(txtPassword.Text) Thenrn gUserName = Trim(txtUserName.Text)rn gUserKind = Trim(rstLogin.Fields(2))rn gLoginSucceeded = Truern rstLogin.Closern Me.Hidern frmMain.Showrn Elsern MsgBox "密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"rn txtPassword.SetFocusrn txtPassword.Text = ""rn End Ifrn End IfrnEnd IfrnmiCount = miCount + 1rnIf miCount = 3 ThenrnMe.HidernExit SubrnEnd IfrnEnd Sub[/code]
ASP组件错误:没有设置对象变量或with Block变量
Vb组件代码:rnPrivate obj As ScriptingContextrnPrivate objserver As serverrnPrivate response As responsernrnPublic Function responsetest()rnSet response = obj.responsern response.Write "a"rnEnd FunctionrnASP调用:rnrn可能是Response<em>对象</em>没有实例化,但我不知道怎么才可实例化rndim response as new response 这种形式是错误的。
对象变量 或with块未设置
<em>对象</em><em>变量</em> 或with块未<em>设置</em> ,什么原因啊,说代码错误所在行是 rn Dim email As Integerrn email = WebBrowser1.Document.body.innertext 说这行有错误 如何改正啊 ,在关闭窗口是提示这个错误。有时候运行还正常
iOS block中的全局变量释放问题
经过测试第一种和第二种正确的写法,当页面离开时,都会进入下面的dealloc中。 而第三种错误的写法,当页面离开时,不会进入下面的dealloc中。 这就引出了。第一种和第二种写法正确性分析,简言之,他们都是self的属性,当self(当前页面消失时),他的属性<em>变量</em>也就跟着消失了,而不会出现不释放的情况。 - (void)dealloc { _webView.delegate
解决 MacTeX 找不到参考文献的问题
<em>问题</em>场景 首先使用下面语句添加参考文献: \addbibresource{bib/thesis.bib} 发现下列语句无效: %% 参考资料 \printbibliography[heading=bibintoc, title={参考文献}] 无法显示参考文献,并且文章内引用后,编译出现警告 undefined。 解决方案 使用 biber 命令,为文...
Block用法---局部变量和全局变量在Block中的使用
一、局部<em>变量</em>与<em>block</em>块 先看下面代码: [objc] view plain copy int number=100;  void (^TestBlock)(int)=^(int x){  number=number+x;  };  TestBlock(100);   你会发现 这么写编译器会报错误。错误截图如下: 所以,对于一个局部<em>变量</em>,bl
mathtype 6.7编辑的公式在word2010显示不全
把公式所在行的行距改为“单倍行距”,切记不能用“固定行距”。 具体步骤: 光标到公式行,右键,选择“段落”,出现如图: 选择”单倍行距“
惊喜----------加强版下载
这个是给女朋友很好的惊喜 有代码 可修改 相关下载链接:[url=//download.csdn.net/download/a3701/1968382?utm_source=bbsseo]//download.csdn.net/download/a3701/1968382?utm_source=bbsseo[/url]
华为的数据通信基础教材下载
华为的数据通信基础教材 1.数据通信网络概述 2.TCP/IP协议 3.常用网络设备 4.移动IP技术 相关下载链接:[url=//download.csdn.net/download/yx1767683/1989707?utm_source=bbsseo]//download.csdn.net/download/yx1767683/1989707?utm_source=bbsseo[/url]
BW500中文使用说明书下载
西门子BW500使用说明书 BW500 BW500 相关下载链接:[url=//download.csdn.net/download/LWEIY/2079188?utm_source=bbsseo]//download.csdn.net/download/LWEIY/2079188?utm_source=bbsseo[/url]
文章热词 机器学习教程 Objective-C培训 交互设计视频教程 颜色模型 设计制作学习
相关热词 mysql关联查询两次本表 native底部 react extjs glyph 图标 java学习变量 java变量学习
我们是很有底线的