VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: 19900603

Vb6版 SQLite3[3.8.7.2] 源码

  [复制链接]
发表于 2015-1-8 13:41:00 | 显示全部楼层
非常感谢楼主的分享。
回复 支持 反对

使用道具 举报

发表于 2015-1-10 23:18:59 | 显示全部楼层
正要用到,下载看看
回复 支持 反对

使用道具 举报

发表于 2015-1-11 10:24:49 | 显示全部楼层
正在找这方面资料。。。看一下。。。谢谢分享
回复 支持 反对

使用道具 举报

发表于 2015-1-13 16:51:10 | 显示全部楼层
我把sqlite.dll考出来,创建vb工程测试,提示 实时错误 53  ,文件未找到 SQLite
回复 支持 反对

使用道具 举报

发表于 2015-1-13 23:49:25 | 显示全部楼层
学习一下。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-1-14 07:45:49 | 显示全部楼层
gaofan628 发表于 2015-1-13 16:51
我把sqlite.dll考出来,创建vb工程测试,提示 实时错误 53  ,文件未找到 SQLite

什么测试环境?
回复 支持 反对

使用道具 举报

发表于 2015-1-14 10:13:51 | 显示全部楼层
19900603 发表于 2015-1-14 07:45
什么测试环境?

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

使用道具 举报

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

你查询代码错了吧
回复 支持 反对

使用道具 举报

发表于 2015-1-14 12:16:58 | 显示全部楼层
19900603 发表于 2015-1-14 10:58
你查询代码错了吧

不可能,select * from table,,  这不可能错吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-1-14 17:59:00 | 显示全部楼层
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
复制代码
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-5-22 21:25

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表