创建edb数据库

曼巴精神8

如果没有  xxx.edb文件  则创建一个xxx.edb文件  （创建一个新的edb数据库）


如何完成，请问大佬~

wang22099

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

判断 (文件是否存在 (取当前目录 () ＋ “\123.edb”) ＝ 假)
编辑框_日志.加入文本 (“数据库不存在，即将自动创建” ＋ #换行符 )
创建数据库 ()
打开数据库 ()

子程序名	返回值类型	公开	备 注
创建数据库

变量名	类 型	静态	数组	备 注
数据库	字段信息		12

数据库 [1].名称 ＝ “序号”
数据库 [1].类型 ＝ #文本型
数据库 [1].最大文本长度 ＝ 512
数据库 [2].名称 ＝ “ItemIndex”
数据库 [2].类型 ＝ #文本型
数据库 [2].最大文本长度 ＝ 512
数据库 [3].名称 ＝ “RealName”
数据库 [3].类型 ＝ #文本型
数据库 [3].最大文本长度 ＝ 512
判断 (创建 (取当前目录 () ＋ “\123.edb”, 数据库) ＝ 真)
编辑框_日志.加入文本 (“数据库创建成功” ＋ #换行符 )

编辑框_日志.加入文本 (“数据库创建失败” ＋ #换行符 )

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .判断开始 (文件是否存在 (取当前目录 () ＋ “\123.edb”) ＝ 假)<br />     编辑框_日志.加入文本 (“数据库不存在，即将自动创建” ＋ #换行符)<br />     创建数据库 ()<br />     打开数据库 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 创建数据库<br /> .局部变量 数据库, 字段信息, , "12"<br /> <br /> 数据库 [1].名称 ＝ “序号”<br /> 数据库 [1].类型 ＝ #文本型<br /> 数据库 [1].最大文本长度 ＝ 512<br /> <br /> <br /> 数据库 [2].名称 ＝ “ItemIndex”<br /> 数据库 [2].类型 ＝ #文本型<br /> 数据库 [2].最大文本长度 ＝ 512<br /> <br /> 数据库 [3].名称 ＝ “RealName”<br /> 数据库 [3].类型 ＝ #文本型<br /> 数据库 [3].最大文本长度 ＝ 512<br /> <br /> .判断开始 (创建 (取当前目录 () ＋ “\123.edb”, 数据库) ＝ 真)<br /> <br />     编辑框_日志.加入文本 (“数据库创建成功” ＋ #换行符)<br /> <br /> .默认<br />     编辑框_日志.加入文本 (“数据库创建失败” ＋ #换行符)

mgut

https://bbs.125.la/forum.php?mod ... 14803069&extra=

wang22099

.版本 2  .子程序 __启动窗口_创建完毕  .判断开始 (文件是否存在 (取当前目录 () ＋ “\123.edb”) ＝ 假)     编辑框_日志.加入文本 (“数据库不存在，即将自动创建” ＋ #换行符)     创建数据库 ()     打开数据库 () .默认  .判断结束   .子程序 创建数据库 .局部变量 数据库, 字段信息, , "12"  数据库 [1].名称 ＝ “序号” 数据库 [1].类型 ＝ #文本型 数据库 [1].最大文本长度 ＝ 512   数据库 [2].名称 ＝ “ItemIndex” 数据库 [2].类型 ＝ #文本型 数据库 [2].最大文本长度 ＝ 512  数据库 [3].名称 ＝ “RealName” 数据库 [3].类型 ＝ #文本型 数据库 [3].最大文本长度 ＝ 512  .判断开始 (创建 (取当前目录 () ＋ “\123.edb”, 数据库) ＝ 真)      编辑框_日志.加入文本 (“数据库创建成功” ＋ #换行符)  .默认     编辑框_日志.加入文本 (“数据库创建失败” ＋ #换行符)

无痕雨

之前问答区做的一个demo 可以看看是不是你需要的