VB使用SQLite问题，出错“ActiveX 部件不能创建对象”，有点急。。

myhui 2009-08-12 05:11:39
想要VB使用SQLite
网上下载 的一段代码。。运行到中间出错
请问这是啥问题？
或者有其他方法在vb中使用SQLite。。。也可以。。。。

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare 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


Dim lb As Long
lb = LoadLibrary(App.Path & "\sqlite3.dll")

Dim oDB As Object
Set oDB = CreateObject("LiteX.LiteConnection") <————运行到这里，出错“ActiveX 部件不能创建对象”
TextSQLiteVersion.Text = oDB.Version
oDB.open (App.Path & "\test.db")

oDB.Execute ("insert into testtable values(2, 'laoma', 20)")

TextSQLiteChanges.Text = oDB.changes
TextSQLitePath.Text = oDB.Path


oDB.Close
...全文
875 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
cameo69217717 2011-05-24
  • 打赏
  • 举报
 回复
我前段时间也碰到过这个问题，是由于sqlite3.dll的问题。
网上下载的sqlite3.dll一般都不能注册，具体什么原因我还没搞清楚。我这里有个sqlite3.dll可以注册的，你如果需要的话，给我发邮件，cameo_001@163.com，我到时发给你。
myhui 2010-08-03
  • 打赏
  • 举报
 回复
后来我放弃了。。这是一个网友的解答。。也不知道有没有用。

此问题我已经解决 1、确定你的sqlite是litex封装的（链接http://www.assembla.com/wiki/show/litex） 2、动态调用请参考lingll写的VB不注册调用ActiveX Dll的系列教程

最后建议
litex的SQlite的最后编译时间是2008/4/16
使用的 SQLite3 数据库版本是 3.5.7.
已经相当时间没有更新

可以选择dhRichClient3哦并且是开源项目哦 o(∩_∩)o 哈哈
hshu2008 2009-11-27
  • 打赏
  • 举报
 回复
这个问题最后怎么解决的?
myhui 2009-08-12
  • 打赏
  • 举报
 回复
[Quote=引用 11 楼 slowgrace 的回复:]
是不是除了这个dll还有其他需要引用的？你到对象浏览器里看看有没有litex这个库？是不是有个叫litex的组件你还没注册啊？
[/Quote]
没有这个库。。。。，
如何注册。。。

原来在linux中的C++使用过 SQLite，觉得特别方便，包含几个.h .lib文件，就一个数据库文件就可以使用了。
现在在windows下也想达到这个效果，不用另外单独安装数据库就可以使用数据库，那就好了。
因为程序要装到其他机子上用，要多装东西就麻烦。。。所以想用动态引用的方式。。。，在代码中实现引用。。而 不需要额外安装或操作就好了。。
slowgrace 2009-08-12
  • 打赏
  • 举报
 回复
是不是除了这个dll还有其他需要引用的？你到对象浏览器里看看有没有litex这个库？是不是有个叫litex的组件你还没注册啊？
myhui 2009-08-12
  • 打赏
  • 举报
 回复
[Quote=引用 8 楼 slowgrace 的回复:]
另外，API函数调用常不报错，需要你自己检查返回值来确定是否有错。
[/Quote]
返回值非零。。。。零为出错
myhui 2009-08-12
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 slowgrace 的回复:]
如果这个dll没在system32下，则要包含完整路径，用双引号括起来。
[/Quote]

已复制
slowgrace 2009-08-12
  • 打赏
  • 举报
 回复
另外，API函数调用常不报错，需要你自己检查返回值来确定是否有错。
slowgrace 2009-08-12
  • 打赏
  • 举报
 回复
如果这个dll没在system32下，则要包含完整路径，用双引号括起来。
myhui 2009-08-12
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 slowgrace 的回复:]
另外，也可试试注册它，在运行里输入 regsvr32 sqlite3.dll按确定即可
[/Quote]
已加载，无法注册。。。诶。。。。
myhui 2009-08-12
  • 打赏
  • 举报
 回复
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare 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


Dim lb As Long
lb = LoadLibrary(App.Path & "\sqlite3.dll") <------这句也有问题，我把文件名改成
<------错误的sqlite333.dll,竟然
<------没有报错。。。。

Dim oDB As Object
Set oDB = CreateObject("LiteX.LiteConnection") <————运行到这里，出错“ActiveX 部件不能创建对象”
TextSQLiteVersion.Text = oDB.Version
oDB.open (App.Path & "\test.db")

oDB.Execute ("insert into testtable values(2, 'laoma', 20)")

TextSQLiteChanges.Text = oDB.changes
TextSQLitePath.Text = oDB.Path


oDB.Close
myhui 2009-08-12
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 slowgrace 的回复:]
在工程里引用“sqlite3.dll”了么？
[/Quote]
我引用了一下，但是它说“不能将引用加入到指定文件”

其实我想用的是动态引用，，

slowgrace 2009-08-12
  • 打赏
  • 举报
 回复
可参考这个帖子http://topic.csdn.net/t/20041022/17/3482411.html13楼。
slowgrace 2009-08-12
  • 打赏
  • 举报
 回复
另外，也可试试注册它，在运行里输入 regsvr32 sqlite3.dll按确定即可
slowgrace 2009-08-12
  • 打赏
  • 举报
 回复
在工程里引用“sqlite3.dll”了么？
解决vb6 Active不能创建对象的方法
解决vb6 Active不能创建对象的方法 rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\System32\dacui.dll rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\Catroot\icatalog.mdb regsvr32 /s comcat.dl
VB远程访问数据库
首先，安装SQL，虽然网上有人说Access也可以弄成网络数据库，不过本人不是很熟，本人只对SQL知道比较多一点，安装好以后，最好打补丁SP3，如果不打，我试过，有时不知道什么原因拒绝访问，安装好了，后主要设置如图所示：然后是权限，找到SQL SERVER——（Local）windows NT下的安全性，一般是sa，你可以添加用户或者添加密码，但是后面VB调用时记得对应一致就好了其次是vb
Windows Mobile下SQLite的Native C++嵌入式封装实践
SQLite作为轻量级嵌入式数据库，其核心价值在于资源受限环境下的确定性行为与ACID保障。在无MMU、低内存（64MB RAM）、弱网络的嵌入式系统中，托管层（如.NET CF）因JIT抖动、GC不可控及VFS抽象缺失，难以满足毫秒级写入与断电安全等硬实时需求。Native C++封装通过自研VFS、零拷贝结果集、TTL页缓存与电源感知刷盘等机制，实现对SQLite底层行为的完全掌控。本文聚焦Windows Mobile 6.5平台的真实工业场景，详解如何在ARM9+CE环境下达成<4ms插入延迟、3MB
通用所有数据库的插件，按键TC易语言VB,VC,DELPHI调用 ACTIVEX DLL
以按键精灵调用为例，以此类推 //按键插件调用方式 SQLite ret = Plugin.DL.ConnectMyDB("SQLite", "", "12345678", "", "D:\test.db", 0,"月卡卡号") If ret =1 Then s = Plugin.DL.GetTable("SELECT * FROM people limit 0,10 "...
.NET Framework 1.0到4.0演进中的真实技术契约与迁移避坑指南
.NET Framework 是 Windows 平台企业级应用的底层运行基石，其核心由 CLR 运行时、BCL 类库和配置模型共同构成。从 1.0 到 4.0 的演进并非简单功能叠加，而是经历了四次底层契约重写：泛型引入重构 JIT 行为、CAS 安全模型确立权限边界、WCF/WPF 等技术整合带来跨组件互操作约束，以及 CLR 4.0 的并行运行时机制。这些变更深刻影响着程序集加载、ViewState 序列化、WCF 配置兼容性与 GAC 版本共存等关键环节。尤其在遗留系统迁移中，.NET Framew
数据库(包含打印，安装，报表)

1,217

社区成员

55,950

社区内容

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印，安装，报表)
社区管理员
  • 数据库(包含打印，安装，报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章