急!! 数据库连接问题,请大家帮忙~~
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里了
请大家帮忙看一下问题出在哪里,谢谢了
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操作中的视图与索引进阶技巧,帮助大数据开发者优化查询性能。详细介绍了视图的创建、修改与删除方法,以及索引的最佳实践和性能优化策略,特别适用于处理复杂查询和大规模数据分析场景。
Hive高级操作总结(一)
一、视图的创建、查看、删除 二、索引的创建 三、hive中的分区操作 四、桶操作
广东屈臣氏饮料制造项目-全专业-20240508.nwd
广东屈臣氏饮料制造项目_全专业-20240508.nwd
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
PHP 代码加密工具 源码保护与站点授权
把 PHP 源码加密成不可直接阅读、难以还原的形式:变量名与控制流被打散重写,载荷带完整性自校验,改一个字节就停止运行。提供编码型 / 混淆型 / 重构型 / 底层型 / 虚拟机型五档保护强度,并可叠加按域名与期限的网站注册授权。


数据库(包含打印,安装,报表)
