SQLite类内存数据库操作模块源码

.子程序 执行SQL, 整数型, 公开, ExecuteSQL 无论是否成功且任何SQL语句都需要关闭记录集。
.参数 参数_SQL, 文本型, , SQL语句中的第一个“?”号对应“参数_数据1”的数据
.参数 参数_数据1, 字节集, 可空
.参数 参数_数据2, 字节集, 可空
.参数 参数_数据3, 字节集, 可空
.参数 参数_数据4, 字节集, 可空
.参数 参数_数据5, 字节集, 可空
.局部变量 局部_sql, 字节集
.局部变量 局部_返回值, 整数型
.局部变量 Sqlite3_stmt, 整数型

mProcAddr ＝ GetProcAddress (mMoudule, “sqlite3_prepare_v2”) ' 准备SQL语句
.如果真 (mProcAddr ＝ 0)
返回 (0)
.如果真结束
局部_sql ＝ Sqlit_AtoU8 (参数_SQL)
局部_返回值 ＝ 执行子程序_ (mProcAddr, mSqlite3, lstrcpy_bin (局部_sql, 局部_sql), 取字节集长度 (局部_sql), lstrcpy_int (Sqlite3_stmt, Sqlite3_stmt), 0)
.如果真 (局部_返回值 ≠ 0)
关闭记录集 (Sqlite3_stmt)
返回 (0)
.如果真结束

.如果真 (是否为空 (参数_数据1) ＝ 假)
mProcAddr ＝ GetProcAddress (mMoudule, “sqlite3_bind_blob”) ' 绑定参数
局部_返回值 ＝ 执行子程序_ (mProcAddr, Sqlite3_stmt, 1, lstrcpy_bin (参数_数据1, 参数_数据1), 取字节集长度 (参数_数据1), 0)
.如果真 (局部_返回值 ≠ 0)
返回 (Sqlite3_stmt)
.如果真结束
.如果真 (是否为空 (参数_数据2) ＝ 假)
局部_返回值 ＝ 执行子程序_ (mProcAddr, Sqlite3_stmt, 2, lstrcpy_bin (参数_数据2, 参数_数据2), 取字节集长度 (参数_数据2), 0)
.如果真 (局部_返回值 ≠ 0)
返回 (Sqlite3_stmt)
.如果真结束
.如果真 (是否为空 (参数_数据3) ＝ 假)
局部_返回值 ＝ 执行子程序_ (mProcAddr, Sqlite3_stmt, 3, lstrcpy_bin (参数_数据3, 参数_数据3), 取字节集长度 (参数_数据3), 0)
.如果真 (局部_返回值 ≠ 0)
返回 (Sqlite3_stmt)
.如果真结束
.如果真 (是否为空 (参数_数据4) ＝ 假)
局部_返回值 ＝ 执行子程序_ (mProcAddr, Sqlite3_stmt, 4, lstrcpy_bin (参数_数据4, 参数_数据4), 取字节集长度 (参数_数据4), 0)
.如果真 (局部_返回值 ≠ 0)
返回 (Sqlite3_stmt)
.如果真结束
.如果真 (是否为空 (参数_数据5) ＝ 假)
局部_返回值 ＝ 执行子程序_ (mProcAddr, Sqlite3_stmt, 5, lstrcpy_bin (参数_数据5, 参数_数据5), 取字节集长度 (参数_数据5), 0)
.如果真 (局部_返回值 ≠ 0)
返回 (Sqlite3_stmt)
.如果真结束

.如果真结束

.如果真结束

.如果真结束

.如果真结束

.如果真结束
mProcAddr ＝ GetProcAddress (mMoudule, “sqlite3_step”) ' 执行
局部_返回值 ＝ 执行子程序_ (mProcAddr, Sqlite3_stmt)
返回 (Sqlite3_stmt)