【例子】eSqlite3 2.0Beta - 易语言史上功能最全、效率最高的 Sqlite3 接口模块

legewudi

解决有文档 无实例
内含有增（删除、改都是一样的）、事务增加，查
https://bbs.125.la/forum.php?mod=viewthread&tid=14361253&highlight=sqlite

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. .程序集变量 数据库路径, 文本型
   
6. .程序集变量 数据库句柄, 整数型
   
7. .程序集变量 数据表句柄, 整数型
   
8. .程序集变量 创建缓冲指针, 整数型
   
9. .程序集变量 code, 整数型
   
10. .程序集变量 sql, 文本型
    
11. 
    
12. .子程序 日志打印
    
13. .参数 打印内容, 文本型
    
14. 
    
15. 详细信息.加入文本 (时间_到文本 (, 1, 3) ＋ “>” ＋ 打印内容 ＋ #换行符)
    
16. 
    
17. .子程序 __启动窗口_创建完毕
    
18. 
    
19. 数据库路径 ＝ 取运行目录 () ＋ “/zh.db”
    
20. 
    
21. ' 取数据库句柄
    
22. 数据库句柄 ＝ 数据库打开S3 (数据库路径, #打开方式_允许创建S3, , , , code)
    
23. 
    
24. .如果真 (code ＝ 0)
    
25. 
    
26.     日志打印 (“打开本地数据库文件，如果存在直接打开并允许读写访问，如果不存在就创建新数据库”)
    
27. .如果真结束
    
28. 
    
29. 
    
30. .子程序 __启动窗口_将被销毁
    
31. 
    
32. 数据库关闭S3 (数据库句柄)
    
33. 
    
34. .子程序 _按钮1_被单击
    
35. 
    
36. .如果 (数据库对象是否存在S3 (数据库句柄, “zh”, #对象存储类型_数据表S3) ＝ 假)
    
37. 
    
38. .否则
    
39. 
    
40. .如果结束
    
41. 
    
42. ' 创建新表
    
43. 创建缓冲指针 ＝ 数据表新表创建缓冲S3 (数据库句柄, “main.zh”)
    
44. 
    
45. .如果真 (创建缓冲指针 ≠ 0)
    
46. 
    
47.     日志打印 (“获取到创建缓冲指针”)
    
48. 
    
49.     .如果真 (数据表新表添加字段S3 (创建缓冲指针, “name”, #文本型, ))
    
50. 
    
51.         日志打印 (“添加字段name成功”)
    
52. 
    
53.         .如果真 (数据表新表完成创建S3 (创建缓冲指针, , , , , , , , , , , sql))
    
54. 
    
55.             日志打印 (“执行” ＋ sql ＋ “成功”)
    
56.         .如果真结束
    
57.         日志打印 (数据库错误文本S3 (数据库句柄))
    
58.     .如果真结束
    
59.     日志打印 (数据库错误文本S3 (数据库句柄))
    
60. .如果真结束
    
61. 日志打印 (数据库错误文本S3 (数据库句柄))
    
62. 日志打印 (数据库错误文本S3 (数据库句柄))
    
63. 
    
64. .子程序 _按钮2_被单击
    
65. .局部变量 处理文本行, 文本型
    
66. 
    
67. ' 调试输出 (数据表生成S3 (数据库句柄, “main.zh”, “select * from zh”))
    
68. 
    
69. ' 调试输出 (数据表打开S3 (数据库句柄, “main.zh”))
    
70. 处理文本行 ＝ “sdsad”
    
71. 调试输出 (记录集打开S3 (数据库句柄, “INSERT INTO zh VALUES ('” ＋ 处理文本行 ＋ “')”, 真))
    
72. ' 调试输出 (记录集取回语句S3 (记录集打开S3 (数据库句柄, “INSERT INTO zh VALUES ('” ＋ 处理文本行 ＋ “')”, 真), 真))
    
73. ' 日志打印 (到文本 (数据表句柄))
    
74. 
    
75. ' 调试输出 (数据表编辑进入S3 (数据表句柄, #编辑类型_插入记录S3))
    
76. 
    
77. 
    
78. 
    
79. .子程序 _按钮3_被单击
    
80. .局部变量 t, 整数型
    
81. 
    
82. 
    
83. ' 调试输出 (数据库是否自动提交S3 (数据库句柄))  ' 真
    
84. 
    
85. t ＝ 取启动时间 ()
    
86. 
    
87. 调试输出 (数据库事务开始S3 (数据库句柄, “sdda”, ))
    
88. 
    
89. ' 判断是否属于事务
    
90. ' 调试输出 (数据库是否自动提交S3 (数据库句柄))  ' 假
    
91. 
    
92. .计次循环首 (1000000, )
    
93. 
    
94.     数据库执行语句S3 (数据库句柄, “insert into zh values('” ＋ 文本_取随机字符 (6) ＋ “')”)
    
95.     ' * 11922.000000
    
96. .计次循环尾 ()
    
97. ' 全局格式化语句S3 ()
    
98. ' 数据库事务回滚S3 ()
    
99. ' not an error
    
100. 调试输出 (数据库事务提交S3 (数据库句柄, “sdda”))
     
101. 
     
102. 调试输出 (取启动时间 () － t)
     
103. 日志打印 (数据库错误文本S3 (数据库句柄))
     
104. 
     
105. 
     
106. 
     
107. .子程序 _按钮4_被单击
     
108. .局部变量 记录集句柄, 整数型
     
109. .局部变量 字段数据, 文本型
     
110. 
     
111. 记录集句柄 ＝ 记录集打开S3 (数据库句柄, “select distinct name from zh”, 真)
     
112. 
     
113. .判断循环首 (记录集尾记录后S3 (记录集句柄) ＝ 假)
     
114. 
     
115.     字段数据 ＝ 记录集读字段值S3 (记录集句柄, 0, #文本型)
     
116. 
     
117.     记录集到下一条S3 (记录集句柄)
     
118. 
     
119.     调试输出 (字段数据)
     
120. 
     
121. .判断循环尾 ()
     
122. 
     
123. 记录集关闭S3 (记录集句柄)
     

复制代码

legewudi

模块是精易和他的sqlite3加上sqlite3.dll

辽阳小哲

感谢楼主~

zhanghong770

一帆风顺SEO

运行你的  dome了  发现 .db文件里没有数据。用sqllitestudio3.11打开的

legewudi

woshisheiwo4 发表于 2020-6-3 01:12
不能上传源码么 这样看起来太不方便了

安排上了

woshisheiwo4

不能上传源码么 这样看起来太不方便了

legewudi

这里啊啊啊