vb程序运行后报错：连接无法用于执行此操作，在此上下文中它可能已被关闭或无效．

问题描述

如题　　代码如下：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"年度不能为空！",vbOKOnly+vbExclamation,"警告"ExitSubEndIfSetadoPrimaryRS=NewADODB.Recordseta=Text1.TextadoPrimaryRS.Open"select*fromgzpjinfowhere年度='"&a&"'",db,adOpenStatic,adLockOptimistic　↑上面语句为报错语句IfadoPrimaryRS.EOFThenSetadoPrimaryRS1=NewADODB.RecordsetadoPrimaryRS1.Open"select*fromygInfo",db,adOpenStatic,adLockOptimisticadoPrimaryRS1.MoveFirstDoWhileNotadoPrimaryRS1.EOFadoPrimaryRS.AddNewadoPrimaryRS.Fields("员工编号")=adoPrimaryRS1.Fields("员工编号")adoPrimaryRS.Fields("考核等级")="合格"adoPrimaryRS.Fields("备注")="无"adoPrimaryRS.Fields("年度")=aadoPrimaryRS1.MoveNextLoopadoPrimaryRS.UpdateElseMsgBox"该年的考核评价表已经创建，确认开始浏览！",vbOKOnly+vbExclamation,"警告"EndIfadoPrimaryRS.CloseadoPrimaryRS.Open"selectgzpjinfo.员工编号,mang.姓名,gzpjinfo.考核等级,gzpjinfo.年度,gzpjinfo.备注fromgzpjinfo,mangwheregzpjinfo.员工编号=yginfo.员工编号andgzpjinfo.年度='"&a&"'",db,adOpenStatic,adLockOptimisticWithmyFlexGrid.Rows=2.CellAlignment=4.TextMatrix(1,0)="员工编号".TextMatrix(1,1)="姓名".TextMatrix(1,2)="考核等级".TextMatrix(1,3)="年度".TextMatrix(1,4)="备注"adoPrimaryRS.MoveFirstDoWhileNotadoPrimaryRS.EOF.Rows=.Rows+1.CellAlignment=4Forj=0ToadoPrimaryRS.Fields.Count-1.TextMatrix(.Rows-1,j)=adoPrimaryRS.Fields(j)NextjadoPrimaryRS.MoveNextLoopEndWithCommand3.Enabled=TrueEndSub

解决方案

解决方案二：
各位高手帮帮忙啊.!
解决方案三：
VB6的代码？去VB6的板块问问吧创建一个新的实例看看另外，不要用SetPS：.NET的数据库访问也变成ADO.NET，放弃ADO吧

时间： 2024-12-03 15:16:05

vb程序运行后报错：连接无法用于执行此操作，在此上下文中它可能已被关闭或无效．的相关文章

android-求大神解决，Android程序运行后报错，有的时候又能运行一会儿，然后报错

问题描述 求大神解决,Android程序运行后报错,有的时候又能运行一会儿,然后报错 04-16 17:34:04.873 7126-7699/com.example.administrator.junshithreeapplication A/MobUncaughtExceptionHandler: null 04-16 17:34:04.873 7126-7699/com.example.administrator.junshithreeapplication A/MobUncaughtEx

vc ado-VC 通过ADO链接sql，原本运行良好的程序迁移后报错

问题描述 VC 通过ADO链接sql,原本运行良好的程序迁移后报错 VC6.0 添加了两个文件ado.h ado.cpp,通过ADO链接sql.在我的台式机上运行良好,在我的本上报错 error C2146: syntax error : missing ';' before identifier 'ConflictTables' f:新建文件夹 (2)农产品物流管理debugmsjro.tlh(100) : error C2501: '_RecordsetPtr' : missing stor

注册表-mfc单文档文件嵌入word的文档，运行后报错

问题描述 mfc单文档文件嵌入word的文档,运行后报错 我是按照这个链接做的.https://support.microsoft.com/zh-cn/kb/238611 但运行后就出现了未能创建新对象,请确保对象已输入注册表的错误. 我用的是vs2012和office2013 请问各位大牛该如何解决这个问题

求助大神进来看下ios程序运行报错如何解决

问题描述 求助大神进来看下ios程序运行报错如何解决 解决方案 自己研究研究找找百度 解决方案二: [subDict objectForKey: removeObjectForKey:key]; 看不懂,哪有这个方法啊.

404错误-win2003 iis6 配置完后 放上去的.net程序运行报错The resource cannot be found.

问题描述 win2003 iis6 配置完后 放上去的.net程序运行报错The resource cannot be found. 安装了framework4.0 iis服务扩展都 允许了 确认程序没问题,数据库连接代码没问题,页面都存在(程序在另一个空间 好着直接 复制过来的) 求教还会有什么问题,网上搜了一大堆 都试过了还是报找不到文件,我直接在iis点击index.aspx预览的 :整一天了 求帮助 Server Error in '/' Application. The resourc

win32-eclipse中File类程序运行报错

问题描述 eclipse中File类程序运行报错 程序如下: package nmd; import java.io.File; public class FileHello { public static void main(String[] args) { try { Runtime ec=Runtime.getRuntime(); File file=new File("file.txt"); ec.exec(file.getAbsolutePath()); } catch (E

winform-引用.net中的System.speech包,但是在程序运行时报错。

问题描述 引用.net中的System.speech包,但是在程序运行时报错. C# Winform项目中,利用Windows类库,引用.net中的System.speech语音控制包. 在程序运行执行到"SRE.SetInputToDefaultAudioDevice();"报错,提示"值不在预期的范围内.". 但是将工程中Program.cs文件的Main()方法上面的[STAThread] 这个关键字去掉,程序正常运行.但是将[STAThread]去掉会导致本

mfc-MFC程序运行第一次完全正常 第二次执行出错

问题描述 MFC程序运行第一次完全正常 第二次执行出错 10C 下面是代码 目的是要求出交通网中最短时间到达的最优路径 构造了时间树 这个只是MFC求最少时间的模块 其他的没有贴出来 第一次运行的时候正常 第二次就会出现图片的错误 查了好久 大多说是指针错误 看调用堆栈我也不太会看 而且调用堆栈里面还说user32.dll未加载符号 不知道是怎么回事 希望你们能给些建议 谢谢你们 分不多 可是我就只有这么多了 typedef struct QNode{ int adjvex; struct QN

C# WINFORM程序运行报错,有的计算机上运行不会出错

问题描述 C#程序运行在某台计算机上出现这样的问题.其他的计算机都能运行无错..那台计算机操作系统是winxp2报错如下:一点击运行应用程序,就弹出对话框提示:遇到问题需要关闭.我们对此引起的不便表示抱歉.如果您正处于进程当中,信息有可能丢失.现象如图所示:http://120.img.pp.sohu.com/images/blog/2007/12/10/12/22/1175e7fccee.jpg搞了好久都没解决,期待大家的智慧给予帮助 解决方案 解决方案二:装．NET 2．0试试看解决方案三: