精易论坛

标题: 创建数据库不全 [打印本页]

作者: 我的yyy123    时间: 2024-4-11 14:18
标题: 创建数据库不全
创建的数据库,只有到图片10,后面就没有了,是什么情况。

.版本 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 + 120].名称 = “记录” + 到文本 (i)
    字段信息 [i + 120].类型 = 10
    字段信息 [i + 120].最大文本长度 = 1024

.计次循环尾 ()

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

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



作者: 447485268    时间: 2024-4-11 14:23
支持开源~!感谢分享
作者: a1372704087    时间: 2024-4-11 18:30
支持开源~!感谢分享
作者: 梦幻武神坛    时间: 2024-4-11 22:35
计次循环首100 里面的 如果真 改成 如果 试下呢
作者: ZHuanR    时间: 2024-4-12 04:17
新技能已get√
作者: 查过    时间: 2024-4-12 07:10
感谢楼主分享!
作者: 豆豆灰常开心    时间: 2024-4-12 07:15
已经顶贴,感谢您对论坛的支持!
作者: year1970    时间: 2024-4-12 07:57
发错版了?
作者: 396384183    时间: 2024-4-12 08:26
感谢分享,很给力!~
作者: 无名霸道    时间: 2024-4-12 08:54
感谢分享,很给力!~
作者: 一指温柔    时间: 2024-4-12 09:50
感谢分享,很给力!~
作者: hack315    时间: 2024-4-12 10:28
感谢分享,很给力!~
感谢分享,很给力!~

作者: 我的yyy123    时间: 2024-4-12 10:46
zl99585834 发表于 2024-4-11 22:35
计次循环首100 里面的 如果真 改成 如果 试下呢

一样的,后面的都没有。
作者: a358498501    时间: 2024-4-12 22:29
支持开源~!感谢分享
作者: 查过    时间: 2024-4-13 07:21
感谢楼主分享!
作者: 豆豆灰常开心    时间: 2024-4-13 07:26
全都是大佬~
作者: 396384183    时间: 2024-4-13 10:02
支持开源~!感谢分享
作者: bianyuan456    时间: 2024-4-13 12:00
已经顶贴,感谢您对论坛的支持!
作者: 小李吃不饱    时间: 2024-4-15 08:34
感谢分享,很给力!~
作者: moosoo    时间: 2024-4-16 22:01
做个空白的写出,或者用MDB简单稳定。EDB偶尔会出现找不到字段0,0就崩了,不折腾
作者: jysoft2022    时间: 2024-4-18 17:56
感谢分享
作者: ctry78985    时间: 2024-4-29 18:37
感谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4