易语言 组合框内容如何从SQL2000数据库读取

易语言 组合框内容如何从SQL2000数据库读取,第1张

索引=超级列表框插入表项()

超级列表框置标题(索引,0,编辑框内容)

超级列表框置标题(索引,1,组合框取项目文本(组合框现行选择项))

超级列表框置标题(索引,2,日期框今天)

写数据库可以用外数据库组件,也可以用数据库连接和记录集组件

记录集打开("insert

into

……",#sql语句)

自己看帮助吧,应该不是很难!

版本 2

支持库 eDB

支持库 iext

载入 (登陆窗口, _启动窗口, 假)

判断开始 (服务器名称 ≠ “” 且 管理员名称 ≠ “” 且 管理员密码 ≠ “”)

如果 (数据库连接1连接SQLServer (服务器名称, “”, 管理员名称, 管理员密码))

如果 (数据库连接1连接SQLServer (服务器名称, “”, 管理员名称, 管理员密码) = 真)

记录集1置连接 (数据库连接1)

如果 (记录集1打开 (“select [name] from [sysdatabases] order by [name]”, #SQL语句) = 真)

如果 (记录集1记录数量 > 1)

重定义数组 (数据库索引, 假, 记录集1记录数量)

计次循环首 (记录集1记录数量, 次数)

记录集1读文本 (“name”, 数据库名称)

记录集1到下一条 ()

数据库连接2连接SQLServer (服务器名称, 数据库名称, 管理员名称, 管理员密码)

记录集2置连接 (数据库连接2)

记录集2打开 (“select t[name] as tablename, s[name] as [schema] from systables as t,sysschemas as s where tschema_id = sschema_id ”, #SQL语句)

位置1 = 树型框1加入项目 (, 数据库名称, , , , , )

数据库索引 [次数] = 数据库名称 + 到文本 (位置1)

计次循环首 (记录集2记录数量, 次数2)

记录集2读文本 (“tablename”, 表名称)

记录集2读文本 (“schema”, 表架构)

记录集2到下一条 ()

位置2 = 树型框1加入项目 (位置1, 表名称 + “” + 表架构, , , 0, , )

加入成员 (表索引, 到文本 (次数) + “|” + 表名称 + “” + 表架构 + “|” + 到文本 (位置2))

计次循环尾 ()

计次循环尾 ()

数据库连接2关闭 ()

否则

如果结束

否则

如果结束

否则

如果结束

否则

如果结束

默认

自己建数据库连接1,记录集1,超级列表框1(显示你的内容),你具体数据库的字段名我不知道,只好用列名代替,你可以自己更改变你相应的字段名,代码如下:

版本 2

支持库 eDB

支持库 iext

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

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

局部变量 客户编号, 整数型

局部变量 客户名称, 文本型

局部变量 客户地址, 文本型

局部变量 索引, 整数型

如果 (数据库连接1连接SQLServer (SQL所在服务器IP地址, “客户信息”, “sa”, “”) = 真)

  记录集1置连接 (数据库连接1)

  记录集1打开 (“select from 表名 where 条件”, #SQL语句, )

  如果真 (记录集1记录数量 = 0)

      信息框 (“暂没找到你所需要的数据!”, 0, )

      返回 ()

  如果真结束

  超级列表框1全部删除 ()

  记录集1到首记录 ()

  判断循环首 (记录集1尾记录后 = 假)

      记录集1读整数 (“客户编号”, 客户编号)

      记录集1读文本 (“客户名称”, 客户名称)

      记录集1读文本 (“客户地址”, 客户地址)

      索引 = 超级列表框1插入表项 (-1, “”, , , , )

      超级列表框1置标题 (索引, 0, 到文本 (客户编号))

      超级列表框1置标题 (索引, 1, 客户名称)

      超级列表框1置标题 (索引, 2, 客户地址)

      记录集1到下一条 ()

  判断循环尾 ()

  记录集1关闭 ()

  数据库连接1关闭 ()

否则

  信息框 (“连接不成功”, 0, )

易语言删除数据库中的数据也是通过连接建立后执行删除的方法实现的。

举例:

1、初始化数据库连接

记录集=记录集1

数据库连接1连接Aess(取运行目录()+“\data\datamdb”,“”)

记录集1置连接(数据库连接)

记录集1打开(“信息”,#数据表名)

超级列表框1全部删除()

计次循环首(记录集1记录数量,索引)

记录集1读文本(“编号”,编号)

记录集1读文本(“账号”,账号)

记录集1读文本(“类型”,类型)

记录集1读文本(“等级”,等级)

记录集1读文本(“昵称”,昵称)

2、外部数据库1执行(“deletefrom信息whereId=超级列表框1取标题(超级列表框1现行选中项,0)”,)

这样就删除了id是选中的那条记录的值。

你的用法有误,帮你改造下代码你就明白了:

版本 2

支持库 iext

子程序 _窗口2_创建完毕

局部变量 索引, 整数型

局部变量 i, 整数型

打开 (取运行目录 () + “\1edb”, , , , , , )

到首记录 ()

计次循环首 (取记录数 (), i)

索引 = 超级列表框1插入表项 (, , , , , )

超级列表框1置标题 (索引, 0, 读字段 (1, ))

超级列表框1置标题 (索引, 1, 读字段 (2, ))

跳过 ()

计次循环尾 ()

以上就是关于易语言 组合框内容如何从SQL2000数据库读取全部的内容,包括:易语言 组合框内容如何从SQL2000数据库读取、用易语言读取数据表名的问题、易语言如何把从mssql数据库读出来的信息全部显示在超级列表框内等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/9453217.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-28
下一篇 2023-04-28

发表评论

登录后才能评论

评论列表(0条)

保存