操作数据库扩展界面支持库

易语言 2020-09-09 11:59:45

操作数据库扩展界面支持库

.如果 (服务端.启动 (8088, &服务, ))
_启动窗口.标题 = “服务器启动成功”
.如果 (数据库.连接Access (取运行目录 () + “\db1.mdb”, “”))
记录集.置连接 (数据库)
_启动窗口.标题 = _启动窗口.标题 + “-数据库连接成功”
.否则
_启动窗口.标题 = _启动窗口.标题 + “-数据库连接失败”
.如果结束

.否则
_启动窗口.标题 = “服务器启动失败”