VB使用Sqlite3

概述国内现在用VB好像很少了，一个项目用到Sqlite3，发现相关资料比较凌乱，也有很多不同使用方法。需要注意的是，Vb调用Sqlite3可使用附件里的dll，官方网站下载的不好用（注册老是失败）。特把使用方法记录在这里。 1.添加附件的类模块 cCDECL.cls 2.添加附件的模块 mDeclarations.bas,mSqlite.bas 3. Private Sub checkHistory(

国内现在用VB好像很少了，一个项目用到sqlite3，发现相关资料比较凌乱，也有很多不同使用方法。需要注意的是，Vb调用sqlite3可使用附件里的dll，官方网站下载的不好用（注册老是失败）。特把使用方法记录在这里。

1.添加附件的类模块cCDECL.cls

2.添加附件的模块mDeclarations.bas,msqlite.bas

3.

Private Sub checkHistory()    Dim sPath As String    sPath = App.path & "\..\data\"    If msqlite.sqlite3_initialize(sPath) <> sqlITE_OK Then        DeBUG.Print "error"        Exit Sub    End If        If msqlite.sqlite3_open(sPath & "data.sqlite",f_lsqlite) <> sqlITE_OK Then        DeBUG.Print "error"        Exit Sub    End If         If msqlite.sqlite3_prepare_v2(f_lsqlite,"SELECT ID,flag,send_username,send_cop,send_mail,send_phone,cmbType,cmbW,cmbC,cmbH FROM history WHERE flag=0",f_lStatement,0) = sqlITE_OK Then        Dim send_username As String,send_cop As String,send_mail As String,send_phone As String        Dim cmbType As String,cmbW As Integer,cmbC As Integer,cmbH As Integer        ' add lasttime                do while msqlite.sqlite3_step(f_lStatement) = sqlITE_ROW            DeBUG.Print msqlite.sqlite3_column_int(f_lStatement,0)            DeBUG.Print msqlite.sqlite3_column_text(f_lStatement,1)            send_username = msqlite.sqlite3_column_text(f_lStatement,2)            send_cop = msqlite.sqlite3_column_text(f_lStatement,3)            send_mail = msqlite.sqlite3_column_text(f_lStatement,4)            send_phone = msqlite.sqlite3_column_text(f_lStatement,5)            cmbType = msqlite.sqlite3_column_text(f_lStatement,6)            cmbW = msqlite.sqlite3_column_int(f_lStatement,7)            cmbC = msqlite.sqlite3_column_int(f_lStatement,8)            cmbH = msqlite.sqlite3_column_int(f_lStatement,9)            generate send_username,cmbH            msqlite.sqlite3_exec f_lsqlite,"UPDATE history set flag=1 WHERE ID=" & msqlite.sqlite3_column_int(f_lStatement,0)        Loop    Else        DeBUG.Print msqlite.sqlite3_errmsg(f_lsqlite)    End If    Call msqlite.sqlite3_finalize(f_lStatement)        '// Close DB handle    Call msqlite.sqlite3_close(f_lsqlite)        '// Terminate wrapper    Call msqlite.sqlite3_shutdownEnd Sub

我的项目目录结构是：

data

---data.sqlite

vb

---

自己使用的时候要注意修改数据库路径。

--没找到上传附件的地方，放到下载资源里了。这里直接使用别人的程序，感谢原作者：

点击到下载页

总结

以上是内存溢出为你收集整理的VB使用Sqlite3全部内容，希望文章能够帮你解决VB使用Sqlite3所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。