易语言怎么向EXECL中添加数据?想用EXECL做数据库存数据。
答案:1 悬赏:70 手机版
解决时间 2021-04-11 03:36
- 提问者网友:半生酒醒
- 2021-04-10 21:07
易语言怎么向EXECL中添加数据?想用EXECL做数据库存数据。
最佳答案
- 五星知识达人网友:街头电车
- 2021-04-10 22:37
利用易语言编程环境创建一个“Windows窗口程序”。点击菜单“工具”->“支持库配置”项。
在打开的窗口中,找到并勾选“通用对象支持库 2.0版”,并点击“确定”以添加“超级列表框”组件。
接下来在“启动窗口”中绘制如图所示的界面,其中包括一个“外部数据库”和一个“超级列表框”(从扩展面板中可以找到)组件。
然后利用Excel创建一个名为“jiance.xls”的Excel文件。其内容如图所示:
注:将该文件与易语言程序本身放置在同一目录下。
5、确保选中“启动窗口”,然后为其添加“创建完毕”事件。接着输入如图所示的易语言代码:
.版本 2
.支持库 iext
.如果真 (外部数据库1.打开 (“ODBC;DBQ=” + 取当前目录 () + “\jiance.xls;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) = 假)
信息框 (“数据库连接失败!”, #错误图标, )
返回 ()
.如果真结束
查询语句 = “select * from [Sheet1$]”
记录集 = 外部数据库1.查询 (查询语句)
.如果真 (记录集 = 0)
信息框 (“查询失败!”, #错误图标, )
返回 ()
.如果真结束
外部数据库1.到首记录 (记录集)
局部_计次 = 1
超级列表框1.插入列 (, “序号”, 80, , , )
超级列表框1.插入列 (, “姓名”, 80, , , )
超级列表框1.插入列 (, “性别”, 80, , , )
超级列表框1.插入列 (, “年龄”, 80, , , )
.判断循环首 (外部数据库1.尾记录后 (记录集) = 假)
局部_临时A = 外部数据库1.读 (记录集, 1)
局部_临时B = 外部数据库1.读 (记录集, 2)
局部_临时C = 到文本 (外部数据库1.读 (记录集, 3))
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (局部_计次))
超级列表框1.置标题 (索引, 1, 局部_临时A)
超级列表框1.置标题 (索引, 2, 局部_临时B)
超级列表框1.置标题 (索引, 3, 局部_临时C)
外部数据库1.到后一记录 (记录集)
局部_计次 = 局部_计次 + 1
.判断循环尾 ()
外部数据库1.关闭记录集 ()
在打开的窗口中,找到并勾选“通用对象支持库 2.0版”,并点击“确定”以添加“超级列表框”组件。
接下来在“启动窗口”中绘制如图所示的界面,其中包括一个“外部数据库”和一个“超级列表框”(从扩展面板中可以找到)组件。
然后利用Excel创建一个名为“jiance.xls”的Excel文件。其内容如图所示:
注:将该文件与易语言程序本身放置在同一目录下。
5、确保选中“启动窗口”,然后为其添加“创建完毕”事件。接着输入如图所示的易语言代码:
.版本 2
.支持库 iext
.如果真 (外部数据库1.打开 (“ODBC;DBQ=” + 取当前目录 () + “\jiance.xls;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) = 假)
信息框 (“数据库连接失败!”, #错误图标, )
返回 ()
.如果真结束
查询语句 = “select * from [Sheet1$]”
记录集 = 外部数据库1.查询 (查询语句)
.如果真 (记录集 = 0)
信息框 (“查询失败!”, #错误图标, )
返回 ()
.如果真结束
外部数据库1.到首记录 (记录集)
局部_计次 = 1
超级列表框1.插入列 (, “序号”, 80, , , )
超级列表框1.插入列 (, “姓名”, 80, , , )
超级列表框1.插入列 (, “性别”, 80, , , )
超级列表框1.插入列 (, “年龄”, 80, , , )
.判断循环首 (外部数据库1.尾记录后 (记录集) = 假)
局部_临时A = 外部数据库1.读 (记录集, 1)
局部_临时B = 外部数据库1.读 (记录集, 2)
局部_临时C = 到文本 (外部数据库1.读 (记录集, 3))
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (局部_计次))
超级列表框1.置标题 (索引, 1, 局部_临时A)
超级列表框1.置标题 (索引, 2, 局部_临时B)
超级列表框1.置标题 (索引, 3, 局部_临时C)
外部数据库1.到后一记录 (记录集)
局部_计次 = 局部_计次 + 1
.判断循环尾 ()
外部数据库1.关闭记录集 ()
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯