易语言怎么对sql server相关语句 多库操作

陈云135

一个编辑框  一个按钮执行以下语句


update  clidoct.dbo.DoctClassesOrder set islock=0  
  where LockId in ( select LockId   from clinicregister.dbo.RegLockTab
  where isunlock=0  and DATEDIFF(n,SysTime,GETDATE())<15  and CaseNo='00')  
update clinicregister.dbo.RegLockTab set  isunlock=1
  where LockId in ( select LockId   from clinicregister.dbo.RegLockTab
  where isunlock=0  and DATEDIFF(n,SysTime,GETDATE())<15 CaseNo='00' )  

aoqingpiao

两段更新语录分两个sql执行，一前一后，

陈云135

aoqingpiao 发表于 2024-10-24 21:10
两段更新语录分两个sql执行，一前一后，

我用的SQL   连接模块只支持连接一个库，这个每段语句都涉及到了两个库  

kk4648

.版本 2

.支持库 shell
.支持库 数据库支持类
.支持库 ADO

.局部变量 conn_clidoct, 对象型
.局部变量 conn_clinicregister, 对象型
.局部变量 sql, 文本型

' 按钮点击事件
按钮1_被单击()
    ' 初始化数据库连接
    conn_clidoct ＝ 新建 (ADO连接)
    conn_clinicregister ＝ 新建 (ADO连接)
   
    ' 连接第一个数据库 clidoct
    conn_clidoct.创建 ("Provider=SQ噜阿噜EDB;Data Source=服务器地址;Initial Catalog=clidoct;User ID=用户名;Password=密码;")
    如果 (conn_clidoct.打开()) ＝ 假
        调试输出 (“连接 clidoct 数据库失败”)
        返回
    结束 如果

    ' 连接第二个数据库 clinicregister
    conn_clinicregister.创建 ("Provider=SQ噜阿噜EDB;Data Source=服务器地址;Initial Catalog=clinicregister;User ID=用户名;Password=密码;")
    如果 (conn_clinicregister.打开()) ＝ 假
        调试输出 (“连接 clinicregister 数据库失败”)
        返回
    结束 如果

    ' 获取用户输入的 SQL 语句
    sql ＝ 编辑框1.内容

    ' 开始执行 SQL 语句
    .如果 (conn_clidoct.执行SQL语句 (sql))
        调试输出 ("clidoct 数据库更新成功")
    .否则
        调试输出 ("clidoct 数据库更新失败")
    结束 如果

    .如果 (conn_clinicregister.执行SQL语句 (sql))
        调试输出 ("clinicregister 数据库更新成功")
    .否则
        调试输出 ("clinicregister 数据库更新失败")
    结束 如果
   
    ' 关闭连接
    conn_clidoct.关闭()
    conn_clinicregister.关闭()
结束 事件

陈云135

kk4648 发表于 2024-10-24 23:38
.版本 2

.支持库 shell

正在编译现行程序
正在检查重复名称...
正在预处理现行程序
错误(4): 没有找到名为“对象型”的数据类型。
还有老师就是Provider=SQ噜阿噜EDB;是什么意思