给大家分享一个SQLite的插件和查询例子（兼容性好）

weizijingbo

zpy2 发表于 2022-3-31 17:08
这方面我不太懂。一般都是抓包吧。

谷歌的selenium

这个是VBA写法吗，能不能给个例子看看，这个JS怎么注入，我是抓的源码，乱掉了，应该是要运行某个JS来排序。

zpy2

weizijingbo 发表于 2022-3-31 17:15
这个是VBA写法吗，能不能给个例子看看，这个JS怎么注入，我是抓的源码，乱掉了，应该是要运行某个JS来排 ...

https://www.jianshu.com/p/b10604ba1a55

opiona

opel-wong 发表于 2022-3-31 09:50
循环就不说了，如果工作表有10万行 * 50列数据，循环需要多长时间？
我的意思是这样的一次性导入，

1.     Rem 一次性将Excel数据添加到数据库
   
2.     Set SHX = Worksheets("数据")
   
3.     Rem INSERT INTO [表格名] ([栏位1],[栏位2], ...) SELECT [栏位1],[栏位2], ... FROM [表格名2]
   
4.     StrSQL = ""
   
5.     StrSQL = StrSQL & "INSERT INTO "
   
6.     Rem  联合查询的SQLite语句
   
7.     StrSQL = StrSQL & " [odbc;Driver={Devart ODBC Driver for SQLite};Database=" & ThisWorkbook.Path & "\SQLITEDB_01.db]"
   
8.     StrSQL = StrSQL & ".[人员信息表]"     '//数据库内的数据表名
   
9.     StrSQL = StrSQL & " ([姓名],[体重],[出生日期],[年龄])"   '//数据表的字段名
   
10.     Rem Excel的查询语句
    
11.     StrSQL = StrSQL & " SELECT  [姓名],[体重],[出生日期],[年龄]"
    
12.     StrSQL = StrSQL & " FROM [数据$]"   '//[数据$]"  '//
    
13.    
    
14.     Str_coon = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES';Persist Security Info=False;"
    
15.     INTX = AddDelMove(StrSQL, Str_coon)

复制代码

opiona

https://club.excelhome.net/forum ... ead&tid=1605118

morpheus126

zpy2 发表于 2022-3-31 05:48
Dim lb As Long
    lb = LoadLibrary(App.Path & "\sqlite3.dll")
   

哥，这个动态注册DLL请教一下，我的代码有问题吗，失败了
停留在createobject行，提示：运行时错误'429,ActiveX部件不能创建对象
win10 64位系统，64位OFFICE 365
谢谢，望赐教。。。。DLL是有的，路径也是对的

1. Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
   
2. Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
   
3. Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
   
4. Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
   
5. 
   
6. Sub testSQLite()
   
7.     Dim lb As Long
   
8.     lb = LoadLibrary("D:\Program Files\SQLite\sqlite3.dll")
   
9.    
   
10.     Dim oDB As Object
    
11.     Set oDB = CreateObject("LiteX.LiteConnection")
    
12.     Debug.Print oDB.Version
    
13. End Sub

复制代码

morpheus126

opiona 发表于 2022-3-31 00:03

请问您这个情况的解决方式是？谢谢，我也遇到了。

morpheus126

请问，手动引用DLL的时候显示“不能添加引用到指定文件”如何解决

weizijingbo

Office版本M365我也没试过，可以参考三楼的动态引用试试。也可能不兼容。只能OFFICE低版本使用。具体我没测试过，2010,2007可以的

morpheus126

weizijingbo 发表于 2022-4-1 13:01
Office版本M365我也没试过，可以参考三楼的动态引用试试。也可能不兼容。只能OFFICE低版本使用。具体我没测 ...

3楼的动态引用我也试了，还是报错。。。审核代码还没过
不过如果安装ODBC驱动的方式倒是没问题

Yalishanda30

weizijingbo 发表于 2022-4-1 13:01
Office版本M365我也没试过，可以参考三楼的动态引用试试。也可能不兼容。只能OFFICE低版本使用。具体我没测 ...

两种方式都报错，win10 64位。office 2019 64位