Adodb可用性测试

一指禅62

    经常遇到用Adodb写的文件，发给对方测试，却反馈说运行不了，很是崩溃。
    留个文件在这儿，供对方先测试，免得走弯路。


          Adodb可用性测试.zip (1.27 MB, 下载次数: 21)

2022-3-12 13:33 上传

点击文件名下载附件

1. Sub 查询()
   
2.     Dim Shp As Shape, cnn As Object, SQL$, Name
   
3.     Set Shp = ActiveSheet.Shapes(Application.Caller)
   
4.     Name = Left(Shp.OLEFormat.Object.Caption, 2)
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     If Application.Version < 12 Then
   
7.         cnn.Provider = "Microsoft.jet.OLEDB.4.0"
   
8.     Else
   
9.         cnn.Provider = "Microsoft.ACE.OLEDB.12.0"
   
10.     End If
    
11.     cnn.Open ThisWorkbook.Path & "\database.accdb"
    
12.      With Sheets("查询")
    
13.         .Range("B1") = Name & "查询结果"
    
14.         .Range("A4:G1000").Clear
    
15.         
    
16.         SQL = "Select * From 出入库 Where [出/入库]='" & Name & "' Order By 日期"
    
17.         .Range("B4").CopyFromRecordset cnn.Execute(SQL)
    
18.         
    
19.         Range("B3").CurrentRegion.Borders.LineStyle = 1
    
20.     End With
    
21. End Sub

复制代码

morpheus126

我倒是想知道，如果运行不了应该怎么解决。

一指禅62

morpheus126 发表于 2022-3-12 20:06
我倒是想知道，如果运行不了应该怎么解决。

写N多句代码，遍历呗。
FOR
     IF  …………  THEN

     ELSE

     END IF
NEXT

morpheus126

一指禅62 发表于 2022-3-13 08:33
写N多句代码，遍历呗。
FOR
     IF  …………  THEN

我以为你说的运行不了是指缺少对象库

一指禅62

morpheus126 发表于 2022-3-13 10:56
我以为你说的运行不了是指缺少对象库

是的，就是您说的“缺少对象库”问题。

用WPS的用户，运行ADO引擎会有许多麻烦的。

游乐缘

感谢分享，留名学习

aails6543

学习了， 作个标记，谢谢老师

lilyhcn1

这个治标不治本，我现在是环境安装在服务器上，客户啥都不用安