易语言怎么同时 *** 作两个EDB数据库？一个窗口执行2个软件，分别不同的数据库。

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

打开 (取运行目录 () ＋ “\数据库1.edb”, “数据库1”, , , , , )

打开 (取运行目录 () ＋ “\数据库2.edb”, “数据库2”, , , , , )

.子程序 _工具条1_被单击

.参数 按钮索引, 整数型

置当前库 (“数据库1”)

到首记录 ()

.子程序 _高级选择夹1_子夹被改变

置当前库 (“数据库2”)

到首记录 ()

打开2个数据库 *** 作的话，必须注意，只能有一个“当前数据库”

关闭的时候同样要切换“当前数据库”，具体参看说明书里关于数据库的方法。

你或者也可以这样。

打开数据库后，把数据读到内存，然后关闭。。再打开下一个，反正也就读一次。（这么做不适合数据库修改）

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 字段数, 整数型

.程序集变量 字段内容, 文本型

.子程序 _按钮1_被单击

.子程序 __启动窗口_创建完毕

.局部变量 记录数, 整数型

.局部变量 i, 整数型

这里只是给你一个思路，可以思考这个思路，然后在去实现你想要更好的效果，编程的答案是没有固定的，所以要学会借鉴思路，举一反三。

打开 (“C:\Users\Administrator\Desktop\123.edb”, , , , , , )  ' 这是数据库地址位置。这是第一个数据库。

字段数 ＝ 取字段数 ()

i ＝ 1

.计次循环首 (字段数, i)

  打开 (“C:\Users\Administrator\Desktop\123.edb”, , , , , , )

  字段内容 ＝ 读 (i)

  .如果真 (字段内容 ≠ “”)

      打开 (“C:\Users\Administrator\Desktop\456.edb”, , , , , , )  ' 这是第二个数据库，就是复制第一个数据库的内容。

      记录数 ＝ 取记录数 ()

      .如果 (记录数 ＝ 0)

          加空记录 ()

          写 (i, 字段内容)

          全部关闭 ()

      .否则

      .如果结束

      写 (i, 字段内容)

      全部关闭 ()

  .如果真结束

.计次循环尾 ()

---