|
本帖最后由 ‘一叶知秋 于 2014-1-16 02:55 编辑
懂的帮忙看看,我在添加记录的时候怎么添加不上去的,付上EDB数据库文件
tb.zip
(1.05 KB, 下载次数: 2)
[e]
.版本 2.支持库 iext.子程序 __启动窗口_创建完毕.局部变量 数据库路径, 文本型数据库路径 = 取运行目录 () + “\sj\tb.edb”.如果真 (打开 (数据库路径, , , , , , ) = 假) 信息框 (“连接数据库失败当前连接路径” + #换行符 + 数据库路径, #信息图标, “提示”) 结束 () 返回 ().如果真结束.子程序 _按钮1_被单击.如果真 (加记录 (0, 到数值 (q1.内容), q2.内容, q3.内容, q4.内容, q5.取项目数值 (q5.现行选中项), q6.内容, q7.取项目数值 (q7.现行选中项), q8.内容, 到整数 (q9.内容), q10.内容, q11.内容, q12.内容) = 假) 状态条1.置文本 (1, “数据添加失败!”) 返回 ().如果真结束编号 ()状态条1.置文本 (1, “数据添加成功!”).子程序 编号.局部变量 i, 整数型.计次循环首 (取记录数 (), i) 跳到 (i) 写 (“id”, i).计次循环尾 ()
[/e]
补充内容 (2014-1-17 03:32):
已经把源码打包在九楼 |
|