急!! 数据库连接问题,请大家帮忙~~

lovelyxiaoyu lovelyxiaoyu 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
Sub ConnectDB()
On Error GoTo errMsg
Dim objPIOWrk As Workspace
Set objPIOWrk = DBEngine.CreateWorkspace("PIO", "Admin", "")
Dim strDBPath As String
strDBPath = pstrPioPath + "\temp\pio.mdb"
Set pObjPIODB = objPIOWrk.OpenDatabase(strDBPath)

Dim objTogouWrk As Workspace
Set objTogouWrk = DBEngine.CreateWorkspace("TOGOU", "Admin", "")
strDBPath = pstrPioPath + "\temp\togou.mdb"
Set pObjTogouDB = objTogouWrk.OpenDatabase(strDBPath)

errMsg:
GiveMSG ("018")
End
End Sub

该方法连接数据库总是出错,运行时走到,errMsg里了
请大家帮忙看一下问题出在哪里,谢谢了
...全文

相关推荐

大数据实战指南:Hive表DDL操作进阶(视图与索引篇)

本文深入探讨了Hive表DDL操作中的视图与索引进阶技巧,帮助大数据开发者优化查询性能。详细介绍了视图的创建、修改与删除方法,以及索引的最佳实践和性能优化策略,特别适用于处理复杂查询和大规模数据分析场景。

爽shuang

Hive高级操作总结(一)

一、视图的创建、查看、删除 二、索引的创建 三、hive中的分区操作 四、桶操作

ywendeng

广东屈臣氏饮料制造项目-全专业-20240508.nwd

广东屈臣氏饮料制造项目_全专业-20240508.nwd

meslog

Python3 if多条件简写技巧

Python3支持极简if条件写法,简化冗余代码。链式比较:原生支持1<x<10,无需写成x>1 and x<10,可读性更强。三元表达式:适用于二分支逻辑,语法 结果A if 条件 else 结果B,适合单行赋值,禁止多层嵌套三元表达式,会大幅降低可读性。逻辑短路:and左侧为False直接终止判断,or左侧为True直接终止判断,可用于空值兜底,比如name = input_name or "匿名用户"。注意不要混用=和==,新手常误将赋值写在if判断内,Python3会直接抛出语法异常。 6thhosp-east.com 3wfuwu.com ajfcw.net www.ahdmhbkj.cn www.aiyouseo.com

2601_97221235

PHP 代码加密工具 源码保护与站点授权

把 PHP 源码加密成不可直接阅读、难以还原的形式:变量名与控制流被打散重写,载荷带完整性自校验,改一个字节就停止运行。提供编码型 / 混淆型 / 重构型 / 底层型 / 虚拟机型五档保护强度,并可叠加按域名与期限的网站注册授权。

穿透云
评论 9
收藏 已收藏
分享
返回顶部