二个数据库连接问题》》》》》》》》

fswblm

[e=0].版本 2
.支持库 eDB
.支持库 iext
.程序集 窗口程序集1
.程序集变量 IP, 文本型
.程序集变量 数据库名, 文本型
.程序集变量 用户名, 文本型
.程序集变量 密码, 文本型
.子程序 __启动窗口_创建完毕
.如果 (文件是否存在 (取运行目录 () ＋ “\config.ini”) ＝ 真)
    IP ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “config”, “sjip”, )
    数据库名 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “config”, “sjkm”, )
    用户名 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “config”, “sjzh”, )
    密码 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “config”, “sjmm”, )
    .如果 (数据库连接1.连接SQLServer (IP, 数据库名, 用户名, 密码) ＝ 真)
        连接标签.标题 ＝ “连接成功”
        查看1 ()
        .如果 (数据库连接1.连接Access (取运行目录 () ＋ “\hmd\hmd.mdb”, “”) ＝ 真)
            黑名单连接标签.标题 ＝ “黑名单连接成功”
            查看2 ()
        .否则
            黑名单连接标签.标题 ＝ “黑名单连接失败”
            返回 ()
        .如果结束
    .否则
        连接标签.标题 ＝ “连接失败”
        返回 ()
    .如果结束
.否则
    信息框 (“缺少可执行文件，确定后退出程序！”, 0, “提示”)
    返回 ()
.如果结束

.子程序 查看1
.局部变量 姓名, 文本型
.局部变量 卡状态, 文本型
.局部变量 余额, 文本型
.局部变量 证件号, 文本型
.局部变量 索引, 整数型
****
.子程序 查看2
.局部变量 ID, 文本型
.局部变量 姓名, 文本型
.局部变量 ***, 文本型
.局部变量 备注, 文本型
.局部变量 索引, 整数型
*********
.子程序 _刷新按钮_被单击
刷新显示 ()
查看1 ()
查看2 ()

.子程序 _查询旺旺编辑框_内容被改变




****号 部分不用理会 暂时替代用


补充内容 (2016-1-10 22:13):
本想发完整源码的 但发不了  老提示 什么安全  现在只能发这点了

补充内容 (2016-1-10 22:14):
.子程序 查看1
.局部变量 姓名, 文本型
.局部变量 卡状态, 文本型
.局部变量 余额, 文本型
.局部变量 证件号, 文本型
.局部变量 索引, 整数型

清除 ()
会员列表框.全部删除 ()
记录集1.置连接 (数据库连接1)
记....

wekupage

用那5精币当令箭啊

fswblm

wekupage 发表于 2016-1-10 22:22
用那5精币当令箭啊

什么？？   偶笨人  不理解你啥意思

wekupage

发帖这么久 哪有人理你

runbaobao

完全看不懂您的

fswblm

现在以算是解决  虽不完美 但在没有答案的前提下只能用这方法了  

原来的问题 是   连接二个数据库  一个是SQL2000  一个是ACC的    在窗口上只有一个 数据库连接1和记录集1

同时用来连接二个数据库  窗口启动时没事 内容也正常显示  但操作其它时如 刷新   就会出错   

现在的办法是  用二个 数据库连接1 和2    二个记录集 1和2    分开对应连接数据库   这样 不过我是刷新 查询都好   都没有提示出错