如何用易语言，创建access数据库、表、字段。

181335249

如题  如何用易语言，创建access数据库、表、字段。

潇NO潇

  

子程序名	返回值类型	公开	备 注
数据库初始化
参数名	类 型	参考	可空	数组	备 注
数据库连接	数据库连接
记录集	记录集
数据库组件	外部数据库

变量名	类 型	静态	数组	备 注
aa	对象

如果 (取反 (文件是否存在 (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”)))  ' 判断数据库是否存在
aa.创建 (“ADOX.Catalog”, )
aa.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb;Jet OLEDB:Database Password=”)
aa.创建 (“Adodb.Connection”, )
aa.清除 ()
数据库组件.打开MDB数据库 (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”, , , , )
数据库组件.执行 (“CREATE TABLE 配置 (id TEXT , 类型 TEXT , 任务 TEXT , 账号 TEXT , 密码 TEXT , cookie TEXT , 上限 TEXT )”, )
数据库连接.连接Access (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”, “”)
记录集.置连接 (数据库连接)
记录集.打开 (“create table 采集 (id int identity(0,1),uid memo PRIMARY KEY,备注 TEXT,html TEXT,日期 TEXT,任务ID TEXT,账号 TEXT,密码 TEXT,cookie TEXT) ”, #SQL语句, )


数据库组件.打开MDB数据库 (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”, , , , )
数据库连接.连接Access (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”, “”)
记录集.置连接 (数据库连接)

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> .子程序 数据库初始化<br /> .参数 数据库连接, 数据库连接<br /> .参数 记录集, 记录集<br /> .参数 数据库组件, 外部数据库<br /> .局部变量 aa, 对象<br /> <br /> .如果 (取反 (文件是否存在 (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”)))  ' 判断数据库是否存在<br />     aa.创建 (“ADOX.Catalog”, )<br />     aa.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb;Jet OLEDB:Database Password=”)<br />     aa.创建 (“Adodb.Connection”, )<br />     aa.清除 ()<br />     数据库组件.打开MDB数据库 (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”, , , , )<br />     数据库组件.执行 (“CREATE TABLE 配置 (id TEXT , 类型 TEXT , 任务 TEXT , 账号 TEXT , 密码 TEXT , cookie TEXT , 上限 TEXT )”, )<br /> <br />     数据库连接.连接Access (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”, “”)<br />     记录集.置连接 (数据库连接)<br />     记录集.打开 (“create table 采集 (id int identity(0,1),uid memo PRIMARY KEY,备注 TEXT,html TEXT,日期 TEXT,任务ID TEXT,账号 TEXT,密码 TEXT,cookie TEXT) ”, #SQL语句, )<br /> .否则<br /> <br />     数据库组件.打开MDB数据库 (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”, , , , )<br />     数据库连接.连接Access (取运行目录 () ＋ “\” ＋ “数据库” ＋ “.mdb”, “”)<br />     记录集.置连接 (数据库连接)

hanyuhang1995

创建数据库可能不行吧，创建表和字段用sql语句应该可以

121132310

  

子程序名	返回值类型	公开	备 注
创建数据库			取运行目录 () ＋ “\Value-added tax\”

变量名	类 型	静态	数组	备 注
创建数据库	字段信息		8
数据库路径	文本型

全部关闭 ()
数据库路径 ＝ 取运行目录 () ＋ “\”
如果真 (文件是否存在 (数据库路径) ＝ 假)  ' 第2步检查（二个目录里是否有EDB数据库）并创建数据库
创建目录 (数据库路径)
如果真 (文件是否存在 (数据库路径 ＋ “数据库.edb”) ＝ 假)  ' 第3步判断（二个目录里是否有EDB数据库）如果没有并创建数据库【如果有数据库就不在重复创建，避免数据库记录数据清除】
创建数据库 [1].名称 ＝ “账号”  ' 给字段信息的三个成员变量赋值
创建数据库 [1].类型 ＝ #文本型
创建数据库 [1].最大文本长度 ＝ 400
创建数据库 [2].名称 ＝ “订单号”
创建数据库 [2].类型 ＝ #文本型
创建数据库 [2].最大文本长度 ＝ 200
创建数据库 [3].名称 ＝ “日期”
创建数据库 [3].类型 ＝ #文本型
创建数据库 [3].最大文本长度 ＝ 200
创建 (数据库路径 ＋ “数据库.edb”, 创建数据库)
如果真 (打开 (数据库路径 ＋ “数据库.edb”, , , , , , ) ＝ 假)
信息框 (“程序出现错误！”, 0, “提示”, )
结束 ()


全部关闭 ()

.版本 2<br /> <br /> .子程序 创建数据库, , , 取运行目录 () ＋ “\Value-added tax\”<br /> .局部变量 创建数据库, 字段信息, , "8"<br /> .局部变量 数据库路径, 文本型<br /> <br /> 全部关闭 ()<br /> 数据库路径 ＝ 取运行目录 () ＋ “\”<br /> <br /> .如果真 (文件是否存在 (数据库路径) ＝ 假)  ' 第2步检查（二个目录里是否有EDB数据库）并创建数据库<br />     创建目录 (数据库路径)<br /> <br /> .如果真结束<br /> .如果真 (文件是否存在 (数据库路径 ＋ “数据库.edb”) ＝ 假)  ' 第3步判断（二个目录里是否有EDB数据库）如果没有并创建数据库【如果有数据库就不在重复创建，避免数据库记录数据清除】<br />     创建数据库 [1].名称 ＝ “账号”  ' 给字段信息的三个成员变量赋值<br />     创建数据库 [1].类型 ＝ #文本型<br />     创建数据库 [1].最大文本长度 ＝ 400<br />     创建数据库 [2].名称 ＝ “订单号”<br />     创建数据库 [2].类型 ＝ #文本型<br />     创建数据库 [2].最大文本长度 ＝ 200<br />     创建数据库 [3].名称 ＝ “日期”<br />     创建数据库 [3].类型 ＝ #文本型<br />     创建数据库 [3].最大文本长度 ＝ 200<br />     创建 (数据库路径 ＋ “数据库.edb”, 创建数据库)<br />     .如果真 (打开 (数据库路径 ＋ “数据库.edb”, , , , , , ) ＝ 假)<br />         信息框 (“程序出现错误！”, 0, “提示”, )<br />         结束 ()<br />     .如果真结束<br /> <br /> <br /> .如果真结束<br /> <br /> 全部关闭 ()

补充内容 (2020-2-22 20:24):
窗口创建成功调用即可，检测根目录有无access数据库，没有即创建，有就不创建了。

寒潮

两种方法：
1、如果数    据    库内容固定，可以事先创建好数    据    库表和字段，然后把数据库文件放入资源中，然后启动时检测指定目录下数    据    库文件是否存在，不存在写出文件。可以不必执行再次创建表和字段。
2、如果数    据    库需要在执行过程中调整，则可以事先创建一个空的数    据    库文件，同样放入资源，在运行过程中通过SQL语句增加表和字段即可。但是Access执行对某些SQL语句可能不支持，事先应多做测试。