:229.697KB : :1 :2019-12-14 09:44:58
.子程序 执行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)
02-17飓风填表模块例子,改自队长模块
02-17会员管理插件源码
02-17懒人内存修改CE复制一键生成E代码
02-17环形进度条,大恩环形模块
02-1613位EAN码批量生成,无任何模块
02-16鹦鹉记账软件,SQLite数据库版
10-03Excel中加载数据分析模块
11-20Excel中的表格数据导入数据库中
11-13Excel数据导入到Access数据库中
11-11Access数据库修改保存位置
11-11access数据库设置姓名字段为必填字段
11-11Access数据库字段设置成无重复索引
11-10Access数据库修改报表微标