批量导入数据库

我的yyy123

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

.子程序 批量导入数据库, , , 批量导入数据库
.局部变量 i, 整数型
.局部变量 索引, 整数型

搜索图片 ()
打开 (取运行目录 () ＋ “\仓库.edb”, , , , , , )
到首记录 ()
.计次循环首 (取数组成员数 (文件名数组), i)
    索引 ＝ 超级列表框1.插入表项 (, , , , , )  
    超级列表框1.置标题 (索引, 0, 图片编号 [i])  
    超级列表框1.置标题 (索引, 1, 图片数量 [i])
    超级列表框1.置标题 (索引, 2, 图片名称 [i])
    加空记录 ()  
    跳到 (i)
    写 (“货品编号”, 图片编号 [i])
    写 (“货品数量”, 图片数量 [i])
    写 (“货品说明”, 图片名称 [i])
    写 (“显示标记”, 1)
    写 (“图片数量”, 1)
    写 (“图片1”, 读入文件 (“E:\仓库零件\货架编号图片\” ＋ 文件名数组 [i]))  
.计次循环尾 ()
调试输出 (“导入完成”)

这个数据库，一起 写()  数据库正常，前面5个  写()  一起，数据库也正常。前面5个  写()  先屏蔽，单独批量导入第6个 写 (“图片1” , 数据库正常。
如果我先写前面5个，第6个  写 (“图片1”,  屏蔽，写完后，在屏蔽前面5个，在单独批量第6个 写 (“图片1”,   完成后，提示数据库错误-21，其他数据库软件也打不开。
上面是批量写入，
但是，前面5个批量完成后，单独给第6个  写 (“图片1”  一个一个的添加数据，完成后数据库是可以正常读写的，这是什么原因啊。

xf702

图片也一并写到数据库吗？不建议。单独放在一个文件夹，和超列行数据对应，列表框单击事件触发弹出图片。。

我的yyy123

xf702 发表于 2024-4-18 08:51
意思是一起写库，都没问题；单独写图片不行？第6个要取文件名？对应一下字段的类型。。。 ...

因为加图片后好几个G，写入要等的有点久，所以先不写入图片，其他全部写入，调试正常后，在导入图片，所以前面已经写入的就全部屏蔽，专门写入图片，写入后就提示错误，基本上就是损坏了，但是一个一个写入图片，是没有问题的。

xf702

意思是一起写库，都没问题；单独写图片不行？第6个要取文件名？对应一下字段的类型。。。

我的yyy123

xf702 发表于 2024-4-17 21:14
看不懂，上库。。。

.版本 2

.子程序 创建或打开数据库
.局部变量 重复, 整数型, 静态
.局部变量 索引, 整数型
.局部变量 i, 整数型
.局部变量 ii, 整数型

字段信息 [1].名称 ＝ “货品编号”
字段信息 [1].类型 ＝ 10
字段信息 [2].名称 ＝ “货品数量”  ' 20240408-用文本型算了，整数型，超级列表框读取又要转换，
字段信息 [2].类型 ＝ 3
字段信息 [2].最大文本长度 ＝ 20
字段信息 [3].名称 ＝ “货品名称”
字段信息 [3].类型 ＝ 10
字段信息 [3].最大文本长度 ＝ 20
字段信息 [4].名称 ＝ “货品说明”
字段信息 [4].类型 ＝ 10
字段信息 [4].最大文本长度 ＝ 1024
字段信息 [5].名称 ＝ “显示标记”  ' 20240408-如果图片1是主显示，当时间长了以后，需要更换这个图片，可以用图片2作主显示，而图片1用作以后cha询。
字段信息 [5].类型 ＝ 3
字段信息 [6].名称 ＝ “图片数量”
字段信息 [6].类型 ＝ 3
字段信息 [7].名称 ＝ “坐标数量”
字段信息 [7].类型 ＝ 3
字段信息 [8].名称 ＝ “记录数量”
字段信息 [8].类型 ＝ 3
.计次循环首 (100, i)
    .如果真 (i ≤ 10)
        字段信息 [i ＋ 8].名称 ＝ “图片” ＋ 到文本 (i)
        字段信息 [i ＋ 8].类型 ＝ 11
        .计次循环首 (10, ii)
            字段信息 [i ＋ 19].名称 ＝ “坐标” ＋ 到文本 (i) ＋ “-” ＋ 到文本 (ii)
            字段信息 [i ＋ 19].类型 ＝ 10
            字段信息 [i ＋ 19].最大文本长度 ＝ 300
            字段信息 [i ＋ 119].名称 ＝ “坐标图片” ＋ 到文本 (i) ＋ “-” ＋ 到文本 (ii)
            字段信息 [i ＋ 119].类型 ＝ 11
        .计次循环尾 ()
    .如果真结束
    字段信息 [i ＋ 220].名称 ＝ “记录” ＋ 到文本 (i)
    字段信息 [i ＋ 220].类型 ＝ 10
    字段信息 [i ＋ 220].最大文本长度 ＝ 1024

.计次循环尾 ()

.如果真 (文件是否存在 (取运行目录 () ＋ “\人员表2.edb”) ＝ 假)
    .如果真 (创建 (取运行目录 () ＋ “\人员表2.edb”, 字段信息))
        信息框 (“创建数据库成功！”, 0, , )
    .如果真结束

.如果真结束
.如果真 (打开 (取运行目录 () ＋ “\人员表2.edb”, , , , , , ) ＝ 假)
    信息框 (“打开数据库失败，错误代码：” ＋ 到文本 (取错误码 ()) ＋ “，错误信息：” ＋ 取错误信息 (), 16, “错误”, )
    返回 ()

xf702

看不懂，上库。。。