VB连接SQLITE的问题

vissalan 2011-03-20 01:41:46

vb版本：6.0企业版
sqlite版本：SQLite 3.7.5

看了很多资料，先注册一个dll文件，文件是从http://hi.baidu.com/jt09/blog/item/35f557ae27245cc77dd92aae.html下载的

根据例子做连接，怎么也连不上，以下是代码，dll在本机已经注册过了，看文章貌似很简单的东西，怎么到我这儿就这么难呢，请知情者帮助一下：



Private Sub ConnectionDB()



Dim odb As Object

Set odb = CreateObject("LiteX.LiteConnection")



On Error GoTo errorhandler



odb.Open (App.Path & "\InPData.db")



dbConnected = True



errorhandler:

  MsgBox "无法连接数据库！"

  dbConnected = False

End Sub

...全文

319 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

QQQ 2011-08-16

打赏
举报

Private Sub ConnectionDB()

Dim odb As Object
Set odb = CreateObject("LiteX.LiteConnection")

On Error GoTo errorhandler

odb.Open (App.Path & "\InPData.db")

dbConnected = True
'*****************************在此加上一句
exit sub '****成功后退出过程，要不然程序不管结果对不对每次都会报错
errorhandler:
MsgBox "无法连接数据库！"
dbConnected = False
End Sub