关于sqlite数据库问题

落月无痕

按这个方式写不能全部写进去，只有写入数据1子程序成功了
.版本 2
.支持库 sqlite3
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 数据库, Sqlite数据库
.程序集变量 表, Sqlite表

.子程序 _按钮1_被单击

数据库.打开 (取运行目录 () ＋ “\测试.db”, )
表.打开 (“测试”, 数据库)
启动线程 (&写入数据1, , )
延时 (10)
启动线程 (&写入数据2, , )
延时 (10)
启动线程 (&写入数据3, , )


.子程序 写入数据1
.局部变量 计次, 整数型

数据库.开始事务 ()
表.到尾记录 ()
.计次循环首 (100, 计次)
    表.插入 ()
    表.写字段值 (1, “一号数据” ＋ 到文本 (计次))
    表.到下一记录 ()
    .如果真 (表.提交 () ＝ 假)
        调试输出 (“一号数据” ＋ 到文本 (计次))
    .如果真结束

.计次循环尾 ()
数据库.提交事务 ()

.子程序 写入数据2
.局部变量 计次, 整数型

数据库.开始事务 ()
表.到尾记录 ()
.计次循环首 (100, 计次)
    表.插入 ()
    表.写字段值 (1, “二号数据” ＋ 到文本 (计次))
    表.到下一记录 ()
    .如果真 (表.提交 () ＝ 假)
        调试输出 (“二号数据” ＋ 到文本 (计次))
    .如果真结束

.计次循环尾 ()
数据库.提交事务 ()

.子程序 写入数据3
.局部变量 计次, 整数型

数据库.开始事务 ()
表.到尾记录 ()
.计次循环首 (100, 计次)
    表.插入 ()
    表.写字段值 (1, “三号数据” ＋ 到文本 (计次))
    表.到下一记录 ()
    .如果真 (表.提交 () ＝ 假)
        调试输出 (“三号数据” ＋ 到文本 (计次))
    .如果真结束

.计次循环尾 ()
数据库.提交事务 ()

寒潮

落月无痕 发表于 2020-4-24 08:58
我的意思是多线程或多用户能同时写入数据库

sqlite3好像不支持多线程吧。如果多线程或者多用户操作，还是用mysql等网络数据库吧

落月无痕

源码.......

sunchun10

.版本 2
.支持库 sqlite3
.支持库 iext

.程序集 数据库程序集
.程序集变量 数据库, Sqlite数据库
.程序集变量 数据库_表, Sqlite表
.程序集变量 数据库_记录集, Sqlite记录集
.程序集变量 数据库_字段信息, Sqlite字段信息, , "5"

.子程序 数据库操作
.参数 类型, 文本型
.参数 文件名称, 文本型, 可空
.参数 文件大小, 文本型, 可空
.参数 文件时间, 文本型, 可空
.参数 文件源路径, 文本型, 可空
.参数 文件现路径, 文本型, 可空
.参数 超级列表框, 超级列表框, 可空
.参数 透明标签, 透明标签, 可空
.参数 是否文件夹, 逻辑型, 可空
.局部变量 计次, 整数型
.局部变量 索引, 整数型
.局部变量 临时文本, 文本型

.判断开始 (数据库.打开 (运行目录 ＋ “fydb.db”, 真) ＝ 真)
    .判断开始 (类型 ＝ “添加”)
        .判断开始 (是否文件夹 ＝ 假)
            .判断开始 (数据库.表是否存在 (“db_file”) ＝ 假)
                数据库_字段信息 [1].名称 ＝ “name”
                数据库_字段信息 [2].名称 ＝ “kb”
                数据库_字段信息 [3].名称 ＝ “time”
                数据库_字段信息 [4].名称 ＝ “spatch”
                数据库_字段信息 [5].名称 ＝ “npatch”
                连续赋值 (#备注型, 数据库_字段信息 [1].类型, 数据库_字段信息 [2].类型, 数据库_字段信息 [3].类型, 数据库_字段信息 [4].类型, 数据库_字段信息 [5].类型)
                数据库.创建表 (“db_file”, 数据库_字段信息)
                数据库.执行SQL语句 (“insert into db_file(” ＋ “name,time,kb,spatch,npatch)values('” ＋ 文件名称 ＋ “','” ＋ 文件大小 ＋ “','” ＋ 文件时间 ＋ “','” ＋ 文件源路径 ＋ “','” ＋ 文件现路径 ＋ “')”)
            .默认
                数据库.执行SQL语句 (“insert into db_file(” ＋ “name,time,kb,spatch,npatch)values('” ＋ 文件名称 ＋ “','” ＋ 文件大小 ＋ “','” ＋ 文件时间 ＋ “','” ＋ 文件源路径 ＋ “','” ＋ 文件现路径 ＋ “')”)
                数据库_表.打开 (“db_file”, 数据库)
            .判断结束

        .判断 (数据库.表是否存在 (“db_filex”) ＝ 假)
            数据库_字段信息 [1].名称 ＝ “name”
            数据库_字段信息 [2].名称 ＝ “time”
            数据库_字段信息 [3].名称 ＝ “spatch”
            数据库_字段信息 [4].名称 ＝ “npatch”
            数据库_字段信息 [5].名称 ＝ “ok”
            连续赋值 (#备注型, 数据库_字段信息 [1].类型, 数据库_字段信息 [2].类型, 数据库_字段信息 [3].类型, 数据库_字段信息 [4].类型, 数据库_字段信息 [5].类型)
            数据库.创建表 (“db_filex”, 数据库_字段信息)
            数据库.执行SQL语句 (“insert into db_filex(” ＋ “name,time,spatch,npatch,ok)values('” ＋ 文件名称 ＋ “','” ＋ 文件时间 ＋ “','” ＋ 文件源路径 ＋ “','” ＋ 文件现路径 ＋ “','” ＋ 到文本 (是否文件夹) ＋ “')”)
        .默认
            数据库.执行SQL语句 (“insert into db_filex(” ＋ “name,time,spatch,npatch,ok)values('” ＋ 文件名称 ＋ “','” ＋ 文件时间 ＋ “','” ＋ 文件源路径 ＋ “','” ＋ 文件现路径 ＋ “','” ＋ 到文本 (是否文件夹) ＋ “')”)
            数据库_表.打开 (“db_filex”, 数据库)
        .判断结束
        数据库.关闭 ()
    .判断 (类型 ＝ “读取”)
        超级列表框.全部删除 ()
        .判断开始 (是否文件夹 ＝ 假)
            数据库_表.打开 (“db_file”, 数据库)
            数据库_表.到首记录 ()
            读取结束 ＝ 假
            处理事件 ()
            .判断开始 (日志窗口关闭 ＝ 假)
                透明标签.标题 ＝ “记录：读取中...”
            .默认
                返回 ()
            .判断结束

            .判断循环首 (数据库_表.尾记录后 () ＝ 假 且 日志窗口关闭 ＝ 假)
                处理事件 ()
                .判断开始 (日志窗口关闭 ＝ 假)
                    索引 ＝ 超级列表框.插入表项 (-1, , , , , )
                .默认
                    返回 ()
                .判断结束

                数据库_表.读字段值 (“name”, 临时文本)
                .判断开始 (日志窗口关闭 ＝ 假)
                    超级列表框.置标题 (索引, 0, 临时文本)
                .默认
                    返回 ()
                .判断结束
                数据库_表.读字段值 (“kb”, 临时文本)
                .判断开始 (日志窗口关闭 ＝ 假)
                    超级列表框.置标题 (索引, 2, 临时文本)
                .默认
                    返回 ()
                .判断结束
                数据库_表.读字段值 (“time”, 临时文本)
                .判断开始 (日志窗口关闭 ＝ 假)
                    超级列表框.置标题 (索引, 1, 临时文本)
                .默认
                    返回 ()
                .判断结束
                数据库_表.读字段值 (“spatch”, 临时文本)
                .判断开始 (文件是否存在 (临时文本))
                    .判断开始 (日志窗口关闭 ＝ 假)
                        超级列表框.置标题 (索引, 5, “真”)
                    .默认
                        返回 ()
                    .判断结束

                .默认
                    .判断开始 (日志窗口关闭 ＝ 假)
                        超级列表框.置标题 (索引, 5, “假”)
                    .默认
                        返回 ()
                    .判断结束

                .判断结束
                .判断开始 (日志窗口关闭 ＝ 假)
                    超级列表框.置标题 (索引, 3, 临时文本)
                .默认
                    返回 ()
                .判断结束
                数据库_表.读字段值 (“npatch”, 临时文本)


                .判断开始 (文件是否存在 (临时文本))
                    .判断开始 (日志窗口关闭 ＝ 假)
                        超级列表框.置标题 (索引, 6, “真”)
                    .默认
                        返回 ()
                    .判断结束

                .默认
                    .判断开始 (日志窗口关闭 ＝ 假)
                        超级列表框.置标题 (索引, 6, “假”)
                    .默认
                        返回 ()
                    .判断结束


                .判断结束

                .判断开始 (日志窗口关闭 ＝ 假)
                    超级列表框.置标题 (索引, 4, 临时文本)
                .默认
                    返回 ()
                .判断结束

                数据库_表.到下一记录 ()
                .判断开始 (日志窗口关闭 ＝ 假)
                    超级列表框.刷新显示 ()
                .默认
                    返回 ()
                .判断结束

                处理事件 ()
            .判断循环尾 ()
            处理事件 ()
            读取结束 ＝ 真
            .判断开始 (日志窗口关闭 ＝ 假)
                透明标签.标题 ＝ “记录：” ＋ 到文本 (超级列表框.取表项数 ()) ＋ “条”
            .默认
                返回 ()
            .判断结束


            数据库_表.关闭 ()
        .默认

        .判断结束

    .判断 (类型 ＝ “删除源文件”)
        .判断开始 (是否文件夹 ＝ 假)
            .判断开始 (数据库.执行SQL语句 (“delete from db_file where spatch='” ＋ 文件源路径 ＋ “'”))
                透明标签.标题 ＝ “记录：” ＋ 到文本 (超级列表框.取表项数 ()) ＋ “条”
            .默认

            .判断结束

        .判断 (数据库.执行SQL语句 (“delete from db_filex where spatch='” ＋ 文件源路径 ＋ “'”))
            透明标签.标题 ＝ “记录：” ＋ 到文本 (超级列表框.取表项数 ()) ＋ “条”
        .默认

        .判断结束
        数据库.关闭 ()
    .判断 (类型 ＝ “清空”)
        .判断开始 (是否文件夹 ＝ 真)
            .判断开始 (数据库.清空表 (“db_filex”))
                超级列表框.全部删除 ()
            .默认

            .判断结束

            透明标签.标题 ＝ “记录：” ＋ 到文本 (超级列表框.取表项数 ()) ＋ “条”
        .判断 (数据库.清空表 (“db_file”))
            超级列表框.全部删除 ()
            透明标签.标题 ＝ “记录：” ＋ 到文本 (超级列表框.取表项数 ()) ＋ “条”
        .默认

        .判断结束

        数据库.关闭 ()
    .判断 (类型 ＝ “删除目标文件”)
        .判断开始 (是否文件夹 ＝ 假)
            .判断开始 (数据库.执行SQL语句 (“delete from db_file where npatch='” ＋ 文件现路径 ＋ “'”))
                透明标签.标题 ＝ “记录：” ＋ 到文本 (超级列表框.取表项数 ()) ＋ “条”
            .默认

            .判断结束

        .判断 (数据库.执行SQL语句 (“delete from db_filex where npatch='” ＋ 文件现路径 ＋ “'”))
            透明标签.标题 ＝ “记录：” ＋ 到文本 (超级列表框.取表项数 ()) ＋ “条”
        .默认

        .判断结束
        数据库.关闭 ()
    .默认

    .判断结束

.默认

.判断结束

我都这样写的。能读能写

落月无痕

sunchun10 发表于 2020-4-22 19:52
.版本 2
.支持库 sqlite3
.支持库 iext

我的意思是多线程或多用户能同时写入数据库