外部数据库链接sqlserver 获取表内容到超级列表框 那位大佬给个例子，不胜感激

wang22099

外部数据库链接sqlserver 获取表内容到超级列表框   那位大佬给个例子，不胜感激

wang22099

坐等大佬

xfriend360

  

变量名	类 型	静态	数组	备 注
类_MSSQL	类_ODBC数据库
返回记录集	整数型
UserId	文本型
i	整数型
局_索引	整数型

如果 (类_MSSQL.连接SQLServer (“数据库地址,1433”, “数据库名称”, “sa”, “123456”) ＝ 真)
调试输出 (“连接成功”)
调试输出 (“连接失败”)
返回记录集 ＝ 类_MSSQL.查询 (“SELECT UserId FROM User”)
超级列表框1.全部删除 ()
计次循环首 (10, i)
UserId ＝ 类_MSSQL.读字段文本 (返回记录集, “UserId”)
局_索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
超级列表框1.置标题 (i － 1, 1, UserId)
类_MSSQL.到下一条 (返回记录集)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .局部变量 类_MSSQL, 类_ODBC数据库<br /> .局部变量 返回记录集, 整数型<br /> .局部变量 UserId, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 局_索引, 整数型<br /> <br /> .如果 (类_MSSQL.连接SQLServer (“数据库地址,1433”, “数据库名称”, “sa”, “123456”) ＝ 真)<br />     调试输出 (“连接成功”)<br /> .否则<br />     调试输出 (“连接失败”)<br /> .如果结束<br /> 返回记录集 ＝ 类_MSSQL.查询 (“SELECT UserId FROM User”)<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (10, i)<br />     UserId ＝ 类_MSSQL.读字段文本 (返回记录集, “UserId”)<br />     局_索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />     超级列表框1.置标题 (i － 1, 0, 到文本 (i))<br />     超级列表框1.置标题 (i － 1, 1, UserId)<br /> <br />     类_MSSQL.到下一条 (返回记录集)<br /> .计次循环尾 ()

wang22099

xfriend360 发表于 2022-12-4 11:08
[e=0].版本 2
.支持库 spec
.支持库 iext

.版本 2

.如果真 (编辑框7.内容 ＝ “” 或 编辑框9.内容 ＝ “” 或 编辑框8.内容 ＝ “”)
    信息框 (“服务器名、数据库密码、用户名不能为空。”, 0, “温馨提示”, )
    返回 ()
.如果真结束
服务器 ＝ 删首尾空 (编辑框7.内容)
用户名 ＝ 删首尾空 (编辑框8.内容)
密码 ＝ 删首尾空 (编辑框9.内容)
.如果 (类_MSSQL.连接SQLServer (“编辑框7.内容”, “”, “编辑框8.内容”, “编辑框9.内容”) ＝ 真)



大佬，我这样不对，打不开

xfriend360

wang22099 发表于 2022-12-4 13:02
.版本 2

.如果真 (编辑框7.内容 ＝ “” 或 编辑框9.内容 ＝ “” 或 编辑框8.内容 ＝ “”)

加精易模块了吗

wang22099

xfriend360 发表于 2022-12-5 09:59
加精易模块了吗

搞定了，谢谢大佬，不过目前有个问题，是关于sqlserver 修改语句问题，不知大佬会不，，，
数据库连接1.执行SQL (“update 表 set 段='” ＋ 编辑框数值.内容 ＋ “' where 名字='” ＋ 编辑框名字.内容 ＋ “'”, )  
这是直接修改的，有没有可以再原数值上增加的，好比如现有 300  我直接加200    就是500      而不是修改500

xfriend360

UPDATE tbl_user SET age = age + 1 WHERE (name = 'aaai')
建议你去看下 sql 基础教程