Vb6版 SQLite3[3.8.7.2] 源码

ieplayboy

非常感谢楼主的分享。

gaofan628

正要用到，下载看看

铁头张

正在找这方面资料。。。看一下。。。谢谢分享

gaofan628

我把sqlite.dll考出来，创建vb工程测试，提示 实时错误 53  ，文件未找到 SQLite

flysnow82

学习一下。

19900603

gaofan628 发表于 2015-1-13 16:51
我把sqlite.dll考出来，创建vb工程测试，提示 实时错误 53  ，文件未找到 SQLite

什么测试环境？

gaofan628

19900603 发表于 2015-1-14 07:45
什么测试环境？

XP SP3 ,昨天自己那vs2010重新编译了个dll，不报这个错误了，但是，查询的时候返回值一直是 21，查询失败，不知道是什么问题，是不是我编译的dll又问题？

19900603

gaofan628 发表于 2015-1-14 10:13
XP SP3 ,昨天自己那vs2010重新编译了个dll，不报这个错误了，但是，查询的时候返回值一直是 21，查询失败 ...

你查询代码错了吧

gaofan628

19900603 发表于 2015-1-14 10:58
你查询代码错了吧

不可能，select * from table,,  这不可能错吧

19900603

gaofan628 发表于 2015-1-14 12:16
不可能，select * from table,,  这不可能错吧

只要能打开数据库 应该就没问题。。 看看你代码吧。。 下面一个例子

1. Private Sub Command1_Click()
   
2.     Dim hstmt As Long
   
3.     Dim Script As String
   
4.     Dim pReturn As SQLITE_RETURN
   
5.     Dim hdb As Long
   
6.     Dim i  As Long
   
7.     Dim iCount As Long
   
8.     Dim Table_count As Long
   
9.     Dim Char As String
   
10.     Call sqlite_open("Test.sqlite", hdb)
    
11.     Rem 获取选中表的总条目数
    
12.     Script = "select count(*) from StdItems where Idx>0"
    
13.     pReturn = sqlite_prepare(hdb, Script, hstmt)
    
14.     If pReturn = SQLITE_OK And sqlite_next(hstmt) Then
    
15.         iCount = sqlite_column_int(hstmt, 0)
    
16.         sqlite_step hstmt
    
17.         sqlite_finalize hstmt
    
18.     End If
    
19.     Rem 获取选中表 Idx > 0 的条目信息
    
20.     '   Script = "select * from StdItems where Idx > 0"
    
21.     Rem 获取选中表 Idx > 0 的条目信息    并按Idx进行由低到高排序（ 加上desc 由高到低排序)
    
22.     Script = "select * from StdItems  where Idx > 0 order by Idx"
    
23.     pReturn = sqlite_prepare(hdb, Script, hstmt)
    
24.     If pReturn = SQLITE_OK Then
    
25.         Debug.Print "[" & iCount & "]"
    
26.         Debug.Print "{"
    
27.         Table_count = sqlite_column_count(hstmt)
    
28.         ' For I = 0 To Table_count - 1
    
29.         '    Debug.Print sqlite3_column_name(hstmt, I)
    
30.         ' Next
    
31.         Do While sqlite_next(hstmt)
    
32.             Char = ""
    
33.             For i = 0 To Table_count - 1
    
34.                 Char = Char & sqlite_column_text(hstmt, i) & " "
    
35.             Next
    
36.             Debug.Print Char
    
37.         Loop
    
38.         sqlite_step hstmt
    
39.         sqlite_finalize hstmt
    
40.     End If
    
41.     Rem 列出指定条目
    
42.     Script = "select * from StdItems where Idx = 5"
    
43.     pReturn = sqlite_prepare(hdb, Script, hstmt)
    
44.     If pReturn = SQLITE_OK Then
    
45.         Table_count = sqlite_column_count(hstmt)
    
46.         If sqlite_next(hstmt) Then
    
47.             Char = ""
    
48.             For i = 0 To Table_count - 1
    
49.                 Char = Char & sqlite_column_text(hstmt, i) & " "
    
50.             Next
    
51.             Debug.Print "}"
    
52.             Debug.Print Char
    
53.         End If
    
54.         sqlite_step hstmt
    
55.         sqlite_finalize hstmt
    
56.     End If
    
57.     sqlite_close hdb
    
58. End Sub

复制代码