易语言中 如何在一个超级列表框中显示edb数据库的全部内容

版本 2支持库 iext

打开 (“你要打开的数据库名字edb”, , , , , , )

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

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

位置 ＝ 超级列表框1插入表项 (, “0”, , , , )

超级列表框1置标题 (位置, 0, 到文本 (读 (1))) ‘数据库有多少个数据就填写多少个读（）

超级列表框1置标题 (位置, 1, 到文本 (读 (2)))

超级列表框1置标题 (位置, 2, 到文本 (读 (3)))

跳过 ()

计次循环尾 ()

添加组件：数据源、数据源提供者

=========================================

版本 2

程序集 窗口程序集1

程序集变量 i, 整数型

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

编辑框1是否允许多行 ＝ 真

数据库提供者1数据库文件名 ＝ “D:\123edb”

数据源1数据提供者 ＝ “数据库提供者1”

编辑框1加入文本 (“用户名  密码”)

计次循环首 (数据源1取行数 (), i)

编辑框1加入文本 (#换行符)

编辑框1加入文本 (数据源1取文本 (i, 1) ＋ “      ” ＋ 数据源1取文本 (i, 2))

计次循环尾 ()

需要两个 扩展组件、（先将易的支持库全选：工具-支持库配置-全选）

数据库连接、记录集

比如有一个数据库temp

那么易中要连接：

需要这样、

数据库连接1连接SQLServer (“”,"temp" ,"sa" ,"123" )

参数分别是 服务器、数据库名、用户名、密码，如果你SQL未设置，后面两参数去掉

该函数返回一个逻辑值，根据反馈回来的值判断是否成功

如果成功

就可以：

数据库连接1执行SQL ()

或

对一张数据表详细 *** 作

可以：

记录集1置连接 (“temp”)

记录集1读文本 ("某一字段")

用循环读取后面的记录：

计次循环首 (取记录集行数 (记录集句柄), 计次)

读字段值 (记录集句柄, “在线用户”, 账号ID)

调试输出 (账号ID)

到下一行 (记录集句柄)

计次循环尾 ()

想要表格快速将数据全部显示出来方法: 表格载入数据之前，在开头加上一句高级表格1可视=假，表格载入数据完成后，末尾加上高级表格1可视=真。此目的是让数据在后台内存完成，速度极快

版本 2

支持库 eExcel2000

Excel工作簿1置程序 (Excel程序1) ' 设置工作簿于excel程序领导之下

Excel工作簿1打开 (取当前目录 () ＋ “\” ＋ 年级数 ＋ “xls”) ' 本来可以加个文件名的,如果没有文件,则另存为吧

Excel工作簿1表格序号 ＝ 1 ' 设置第一张表为工作表

Excel程序1显示 ＝ 真

' 以下是把数据库中的查询结果放入excel程序里

tempnum ＝ 1 ' 第一条记录

tempnumtext ＝ 到文本 (tempnum)

外部数据库1到首记录 (记录集句柄1)

判断循环首 (外部数据库1尾记录后 (记录集句柄1) ＝ 假) ' 是不是已经到了尾记录了如果不是,继续

变量循环首 (1, 33, 1, loopnum) ' 共有33个字段,每行显示33段,在excel表中表示列tempnum表示为行

Excel工作簿1首单元格 ＝ 表列数组 [loopnum] ＋ tempnumtext

Excel工作簿1尾单元格 ＝ 表列数组 [loopnum] ＋ tempnumtext

Excel工作簿1内容格式 ＝ “@” ' 这代表是文本型的数据本行可读可写,你可以先设置好格式,然后读一下,显示是什么,再设置

Excel工作簿1内容 ＝ 外部数据库1读 (记录集句柄1, loopnum)

变量循环尾 ()

外部数据库1到后一记录 (记录集句柄1)

tempnum ＝ tempnum ＋ 1

tempnumtext ＝ 到文本 (tempnum)

判断循环尾 ()

' Excel工作簿1保存 (取当前目录 () ＋ “\” ＋ 年级数 ＋ “xls”)

' Excel工作簿1关闭 ()

' Excel程序1退出 ()

以上就是关于易语言中 如何在一个超级列表框中显示edb数据库的全部内容全部的内容，包括:易语言中 如何在一个超级列表框中显示edb数据库的全部内容、易语言里面怎么把数据库里面的数据读出来 放在编辑框里面、怎么用易语言实现SQL数据库导入导出，用SQL编写也可以，希望你能举几个例子，多多益善。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！