VB6.0连接SQL Server2008 实时错误3709 请求的操作需要OLE DB会话对象,而当前的提供的程序不支持此对象

图片说明
图片说明

Public SqlConn As New ADODB.Connection
Public SqlRs As New ADODB.Recordset
Public SqlCmd As New ADODB.Command
Public Function DBConnect(strtype As String) As Boolean
Dim ConnStr As String
If SqlConn.State <> adSrareOpen Then
If strtype = "U" Then
SqlConn.Open ("FILE Name = " & App.Path & "\dbconn.udl")
Else
ConnStr = "Provider = SQLOLLEDB.1;Data Source = LAPTOP-ND06FMEL;User ID = sa;" & "Password = 12345678;Initial Catalog = StudentDB"
     SqlConn.Open (ConnStr)
End If
End If
  SqlCmd.ActiveConnection = SqlConn
DBConnect = True
End Function
Public Function ExecSQL(ByVal sql As String) As ADODB.Recordset
If SqlConn.State <> adStateOpen Then
DBConnect ("U")
End If
SqlCmd.CommandText = sql
Set ExecSQL = SqlCmd.Execute
End Function

1个回答

看下你前面SqlConn那两个条件不满足的情况下,是不是根本没有Open

weixin_43930678
宇霸霸 好像是SQL Conn 没有Open dbconn.udl 这个怎么写啊?
8 个月之前 回复
weixin_43930678
宇霸霸 额。。具体弄?
8 个月之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
VB6.0连接数据库问题,运行错误3709。

Public Sub updata() Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\access\tycs.mdb" rs.Open "select * from YJCS , cnn, adOpenKeyset, adLockOptimistic" (调试显示上面这个位置出错3709) re.MoveFirst Do While Not rs.EOF X11 = rs.Fields("X1") Y11 = rs.Fields("Y1") lx = rs.Fields("TYPE") Select Case lx Case 1 Call byq(X11, Y11, 1, 1, False) Case 2 Call dy(X11, Y11, 1, False) End Select Loop rs.Close End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim x1 As Integer Dim x2 As Integer Dim y1 As Integer Dim y2 As Integer If moveflag = ture Then Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset x1 = x2: y1 = y2 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\access\tycs.mdb" rs.Open "select * from YJCS ", cnn, adOpenKeyset, adLockOptimistic xnow = rs.Fields("X1") ynow = rs.Fields("Y1") rs.Fields("X1") = xnow + x2 - x1 rs.Fields("Y1") = ynow + y2 - y1 x2 = X: y2 = Y rs.Update rs.Close Picture1.Cls Call updata End If End Sub

VB6.0连接SQL 2008 R2数据库时遇到问题,求解决

我从网上下载了,VB的学生档案管理系统,![图片说明](https://img-ask.csdn.net/upload/201903/28/1553763685_937980.png)在还原了附带的spl数据库后,![图片说明](https://img-ask.csdn.net/upload/201903/28/1553764975_9313.png) 运行VB系统一直描述数据库连接失败。![图片说明](https://img-ask.csdn.net/upload/201903/28/1553765288_326162.png)以及这是系统报的调整的地方,![图片说明](https://img-ask.csdn.net/upload/201903/28/1553765837_238351.png)这是书上连接的呢一部分的代码![图片说明](https://img-ask.csdn.net/upload/201903/28/1553766077_325724.png) 1. 1. ![图片说明](https://img-ask.csdn.net/upload/201903/28/1553766481_230131.png)![图片说明](https://img-ask.csdn.net/upload/201903/28/1553766488_576457.png),求大神帮帮忙,还需要哪里的截图我会尽快回复!谢谢了!

VB6无法远程连接SQL2008数据库

我的VB6,可以在局域网连接SQL2008数据库,并且可以读写数据,但是远程连接总是提示,连接失败,请高手指点迷津,可以加QQ远程操作,谢**谢! ![图片说明](https://img-ask.csdn.net/upload/201606/21/1466442188_522121.png) ![图片说明](https://img-ask.csdn.net/upload/201606/21/1466442199_91355.png)

vb如何连接sql数据库?用代码

环境是server2003,sql为2008r2,VB连接数据库,用代码连接

VB6.0(运行时错误“424” 要求对象

有台工控机,VB6.0写的脚本,换台新电脑后显示本标题所描述的错误,现急寻高手共同解决此问题,可远程协助,价格电议;13771130835,谢谢

vb6.0如何实现与数据库的连接?

用VB做了一个程序,在登录基本信息这一界面的时候要把信息保存在数据库里

VB6.0 发布程序的时候,打包错误

问题:VB6.0 发布程序的时候,用外接程序管理器打包错误 ![图片说明](https://img-ask.csdn.net/upload/201906/09/1560053263_286396.jpg) 求帮忙啊

vs2015的VB与VB6.0的VB有什么区别?

听说vs可以写C程序和VB程序,我果断把原来的VB6.0和VC卸了。安装了最新的vs2015。可是在编VB程序时,我发现vs里面的VB跟VB6.0的VB的语法相差很大。请问他们都是同一种编程语言吗?

SQl server 2008与ODBC的连接问题

请问各位高手,现在我在一台电脑上安装了SQL Server2008作为数据库,并与这台电脑的ODBC进行连接。 1.如果我想用这台电脑作为公共数据库源,让其他电脑访问这台电脑SQL Server2008中的数据,其他电脑如何通过ODBC进行配置呢? 2.除了ODBC之外,还有没有其他方法?

VB6.0不同的form连接统一个数据库的问题,请大神解决。

错误为子程序或函数中的属性无效 form1中: Public j As Integer Private Sub Form1_Load() Public cnn As New ADODB.Connection Public rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "E\VB工程\access\tycs.MDB" rs.Open "select * from YJCS", cnn, adOpenKeyset, adLockOptimistic Set MSHFlexGrid1.DataSource = rs MSHFlexGrid.colWidth(0) = 100 'i = 1 '第一个原件编号 End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) xnow = X: ynow = Y If moveflag = True Then Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\access\tycs.mdb" rs.Open "select * from YJCS where 编号=" & j, cnn, adOpenKeyset, adLockOptimistic xnow = rs.Fields("X1") ynow = rs.Fields("Y1") 'xz = rs.Fields("XZFLAG") x2 = X: y2 = Y rs.Fields("X1") = xnow + x2 - x1 rs.Fields("Y1") = ynow + y2 - y1 'If xz = False Then rs.Fields("XLEFT") = xnow + x2 - x1 rs.Fields("YLEFT") = ynow + y2 - y1 - 100 rs.Fields("YRIGHT") = ynow + y2 - y1 + 100 rs.Fields("XRIGHT") = xnow + x2 - x1 + 1300 'Else 'rs.Fields("XLEFT") = xnow + x2 - x1 - 100 ' rs.Fields("YLEFT") = ynow + y2 - y1 ' rs.Fields("YRIGHT") = ynow + y2 - y1 + 1300 'rs.Fields("XRIGHT") = xnow + x2 - x1 + 100 'End If x1 = x2: y1 = y2 rs.Update rs.Close Picture1.Cls Call updata End If End Sub form2中 Public j As Integer Private Sub Command1_Click() Public cnn As New ADODB.Connection(调试错误指示位置) Public rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\access\tycs.mdb" rs.Open "select * from YJCS where 编号=" & j, cnn, adOpenKeyset, adLockOptimistic If rs.EOF = False Then rs.Fields("额定容量") = Form2.Text1.Text rs.Fields("额定频率") = Form2.Text2.Text rs.Fields("高压侧电压") = Form2.Text3.Text rs.Fields("低压侧电压") = Form2.Text4.Text rs.Fields("一次额定电流") = Form2.Text5.Text rs.Fields("二次额定电流") = Form2.Text6.Text rs.Fields("名称") = Form2.Text7.Text rs.Fields("二次额定电流") = Form2.Text8.Text rs.Fields("空载损耗") = Form2.Text11.Text rs.Fields("短路电压百分比") = Form2.Text12.Text rs.Fields("短路损耗") = Form2.Text13.Text rs.Fields("空载电流百分比") = Form2.Text14.Text rs.Fields("额定容量") = Form2.Text1.Text rs.Update rs.Close End Sub

vb如何连接使用sql server Compact Edition数据库.sdf文件

vb如何连接使用sql server Compact Edition数据库.sdf文件,达到查阅编辑的功能。我以前用的VB+access,现在改用vb+sql server Compact Edition,不知如何连接该数据库

VB6.0条件判断运算符,eqv的作用和使用的场合

VB6.0条件判断运算符,eqv的作用和使用的场合?一般写程序什么时候才会用到eqv?请大神讲解

用VB.NET连接MYSQL或SQL SERVER连接超时卡死程序的问题

我需要每隔30秒去连接一次目标机器的MYSQL或SQL SERVER数据库,当网络不中断或数据库运行正常时没问题,一旦与目标数据库网络中断,就会存在连接超时,程序就会卡在那里不动,我把连接字符串Connection Timeout设成1秒也没用,当网络中断,一旦用mysql_conn.Open()就会卡死,请问大家用什么办法吗!?有人说用多线程,或者用什么方法可以更高效的判断数据库是否能连接 连接字符串 Const mSqlServer_ConnectionString As String = "server=192.168.1.1;" _ & "database=DB_test;" _ & "user id=root;" _ & "password=123456;" _ & "Connection Timeout=1" 连接对象 Public mysql_conn As New MySql.Data.MySqlClient.MySqlConnection(mSqlServer_ConnectionString) mysql_conn.Open() ``` ```

VB 连接DB(sqlserver)报错(偶尔) 3709

有三个定时任务 都要连同一个DB 其他两个不会错 代码如下 Sub GetPcrpInfo(lastEndTime) Dim objCon, objCmd, objRs, strSQL Dim ErrNumber, ErrMsg Dim key, pcrpStatus, transportOrderFlg Set objCon = CreateObject("ADODB.Connection") Set objCmd = CreateObject("ADODB.Command") Set objRs = CreateObject("ADODB.Recordset") On Error Resume Next objCon.ConnectionString = cdbPicRASConStr objCon.Open objCmd.CommandType = 1 'adCmdText objCmd.ActiveConnection = objCon objCmd.CommandTimeout = 0 ErrNumber = Err.Number ErrMsg = Err.Description On Error GoTo 0 If ErrNumber <> 0 Then Call LogWrite("ERROR", "PicRASに接続失敗" & " [ErrNumber]:" & ErrNumber & " [ErrMsg]:" & ErrMsg ) Set objRs = Nothing Set objCon = Nothing Set objCmd = Nothing Call GotoEND End If 都是在服务器上执行的 应该不是网络问题

VB6.0一个从Text拿值的问题的解释

VB6.0一个从Text拿值的问题的解释 Dim s$ $s=Text1,请问这两行代码什么意思

VB6.0与新浪云sae服务器连接

我们在新浪云sae上面建立了数据库。我想本地用vb6.0读取数据库上面的文本文件,然后本地计算,计算完毕后将结果上传到新浪云sae服务器上。

VB6.0用Rnd生成随机数的一个bug

为什么VB6.0的随机数函数Rnd在Windows 7电脑公司Ghost64版上每次生成的都是相同的,是VB6的bug么?

VB 6.0关于Set和Dim的区别的问题

VB 6.0关于Set和Dim的区别的问题,Set s$=Text1为什么就不可以,但是Set s=Text1就可以呢?

VB 6.0语言系统的控件缺少一些接口或者事件的问题

能不能在VB 6.0 中添加一个新的事件接口到一个现有的控件中?事件能不能进行自定义呢?

大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了

大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

Java基础知识面试题(2020最新版)

文章目录Java概述何为编程什么是Javajdk1.5之后的三大版本JVM、JRE和JDK的关系什么是跨平台性?原理是什么Java语言有哪些特点什么是字节码?采用字节码的最大好处是什么什么是Java程序的主类?应用程序和小程序的主类有何不同?Java应用程序与小程序之间有那些差别?Java和C++的区别Oracle JDK 和 OpenJDK 的对比基础语法数据类型Java有哪些数据类型switc...

我以为我学懂了数据结构,直到看了这个导图才发现,我错了

数据结构与算法思维导图

String s = new String(" a ") 到底产生几个对象?

老生常谈的一个梗,到2020了还在争论,你们一天天的,哎哎哎,我不是针对你一个,我是说在座的各位都是人才! 上图红色的这3个箭头,对于通过new产生一个字符串(”宜春”)时,会先去常量池中查找是否已经有了”宜春”对象,如果没有则在常量池中创建一个此字符串对象,然后堆中再创建一个常量池中此”宜春”对象的拷贝对象。 也就是说准确答案是产生了一个或两个对象,如果常量池中原来没有 ”宜春” ,就是两个。...

技术大佬:我去,你写的 switch 语句也太老土了吧

昨天早上通过远程的方式 review 了两名新来同事的代码,大部分代码都写得很漂亮,严谨的同时注释也很到位,这令我非常满意。但当我看到他们当中有一个人写的 switch 语句时,还是忍不住破口大骂:“我擦,小王,你丫写的 switch 语句也太老土了吧!” 来看看小王写的代码吧,看完不要骂我装逼啊。 private static String createPlayer(PlayerTypes p...

Linux面试题(2020最新版)

文章目录Linux 概述什么是LinuxUnix和Linux有什么区别?什么是 Linux 内核?Linux的基本组件是什么?Linux 的体系结构BASH和DOS之间的基本区别是什么?Linux 开机启动过程?Linux系统缺省的运行级别?Linux 使用的进程间通信方式?Linux 有哪些系统日志文件?Linux系统安装多个桌面环境有帮助吗?什么是交换空间?什么是root帐户什么是LILO?什...

Linux命令学习神器!命令看不懂直接给你解释!

大家都知道,Linux 系统有非常多的命令,而且每个命令又有非常多的用法,想要全部记住所有命令的所有用法,恐怕是一件不可能完成的任务。 一般情况下,我们学习一个命令时,要么直接百度去搜索它的用法,要么就直接用 man 命令去查看守冗长的帮助手册。这两个都可以实现我们的目标,但有没有更简便的方式呢? 答案是必须有的!今天给大家推荐一款有趣而实用学习神器 — kmdr,让你解锁 Linux 学习新姿势...

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

史上最全的 python 基础知识汇总篇,没有比这再全面的了,建议收藏

网友们有福了,小编终于把基础篇的内容全部涉略了一遍,这是一篇关于基础知识的汇总的文章,请朋友们收下,不用客气,不过文章篇幅肯能会有点长,耐心阅读吧爬虫(七十)多进程multiproces...

讲一个程序员如何副业月赚三万的真实故事

loonggg读完需要3分钟速读仅需 1 分钟大家好,我是你们的校长。我之前讲过,这年头,只要肯动脑,肯行动,程序员凭借自己的技术,赚钱的方式还是有很多种的。仅仅靠在公司出卖自己的劳动时...

女程序员,为什么比男程序员少???

昨天看到一档综艺节目,讨论了两个话题:(1)中国学生的数学成绩,平均下来看,会比国外好?为什么?(2)男生的数学成绩,平均下来看,会比女生好?为什么?同时,我又联想到了一个技术圈经常讨...

85后蒋凡:28岁实现财务自由、34岁成为阿里万亿电商帝国双掌门,他的人生底层逻辑是什么?...

蒋凡是何许人也? 2017年12月27日,在入职4年时间里,蒋凡开挂般坐上了淘宝总裁位置。 为此,时任阿里CEO张勇在任命书中力赞: 蒋凡加入阿里,始终保持创业者的冲劲,有敏锐的...

总结了 150 余个神奇网站,你不来瞅瞅吗?

原博客再更新,可能就没了,之后将持续更新本篇博客。

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

MySQL数据库面试题(2020最新版)

文章目录数据库基础知识为什么要使用数据库什么是SQL?什么是MySQL?数据库三大范式是什么mysql有关权限的表都有哪几个MySQL的binlog有有几种录入格式?分别有什么区别?数据类型mysql有哪些数据类型引擎MySQL存储引擎MyISAM与InnoDB区别MyISAM索引与InnoDB索引的区别?InnoDB引擎的4大特性存储引擎选择索引什么是索引?索引有哪些优缺点?索引使用场景(重点)...

新一代神器STM32CubeMonitor介绍、下载、安装和使用教程

关注、星标公众号,不错过精彩内容作者:黄工公众号:strongerHuang最近ST官网悄悄新上线了一款比较强大的工具:STM32CubeMonitor V1.0.0。经过我研究和使用之...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

大学一路走来,学习互联网全靠这几个网站,最终拿下了一把offer

大佬原来都是这样炼成的

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

为什么你不想学习?只想玩?人是如何一步一步废掉的

不知道是不是只有我这样子,还是你们也有过类似的经历。 上学的时候总有很多光辉历史,学年名列前茅,或者单科目大佬,但是虽然慢慢地长大了,你开始懈怠了,开始废掉了。。。 什么?你说不知道具体的情况是怎么样的? 我来告诉你: 你常常潜意识里或者心理觉得,自己真正的生活或者奋斗还没有开始。总是幻想着自己还拥有大把时间,还有无限的可能,自己还能逆风翻盘,只不是自己还没开始罢了,自己以后肯定会变得特别厉害...

什么时候跳槽,为什么离职,你想好了么?

都是出来打工的,多为自己着想

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

你期望月薪4万,出门右拐,不送,这几个点,你也就是个初级的水平

先来看几个问题通过注解的方式注入依赖对象,介绍一下你知道的几种方式@Autowired和@Resource有何区别说一下@Autowired查找候选者的...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

立即提问
相关内容推荐