易语言 数据库连接组件和记录集组件应用
<p> 之前一直用edb，就是易语言自带的数据库，效率很慢于是开始学习access，结果还是有很多弊端，不过既然学了一下，就记录一下。</p><p> 数据库连接组件和记录集组件是一起用的。</p>
<p> 精易模块有“类_ODBC数据库”可以操作Access和SQLServer，原理和组件差不多，可以互相参考。</p>
<p> mdb可以有多个表，而edb只有一个表</p>
<p> 本文记录一下组件命令的应用，主要是数据库的，打开，关闭，读，写，改，查，删</p>
<p> <strong>assess数据库连接</strong></p>
<p> <span style="color: rgba(229, 51, 51, 1)"> </span><span style="color: rgba(229, 51, 51, 1)">数据库连接1.连接Access (取运行目录 () ＋ “\123.mdb”, “”)</span></p>
<p> 这个命令返回的是逻辑型，所以最好用如果真进行判断，数据库是否打开成功。</p>
<p> <span style="color: rgba(229, 51, 51, 1)">记录集1.置连接 (数据库连接1)</span></p>
<p> 这个命令是和上面命令一起（同时）使用，可以理解为，打开数据库后读入到记录集中。</p>
<p> <strong>数据库读取记录（读）</strong></p>
<p><span style="color: rgba(229, 51, 51, 1)"> </span><span style="color: rgba(229, 51, 51, 1)">记录集1.打开 (“select * from </span><span style="color: rgba(229, 51, 51, 1)">表名称</span><span style="color: rgba(229, 51, 51, 1)">”,</span><span style="color: rgba(229, 51, 51, 1)"> #SQL语句)</span><span style="color: rgba(229, 51, 51, 1)"> </span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 记录集1.到首记录 ()</span></p>
<p><span style="white-space: normal; color: rgba(229, 51, 51, 1)"> </span><span style="white-space: normal; color: rgba(229, 51, 51, 1)">判断循环首 (_启动窗口.记录集1.尾记录后 ＝ 假)</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> </span><span style="color: rgba(229, 51, 51, 1)">记录集1.读文本 (“表项”, 文本)</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> </span><span style="white-space: normal; color: rgba(229, 51, 51, 1)">记录集1.到下一条 ()</span></p>
<p><span style="white-space: normal"><span style="color: rgba(229, 51, 51, 1)"> </span><span style="white-space: normal; color: rgba(229, 51, 51, 1)">判断循环尾 ()</span></span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 记录集1.关闭 ()</span></p>
<p> 读的时候，打开一个表，然后从头开始读。</p>
<p> <strong>数据库增加记录（写）</strong></p>
<p><span style="color: rgba(229, 51, 51, 1)"> sql ＝ “insert into 表名称(表项1,</span><span style="white-space: normal; color: rgba(229, 51, 51, 1)">表项2</span><span style="color: rgba(229, 51, 51, 1)">,</span><span style="white-space: normal; color: rgba(229, 51, 51, 1)">表项3</span><span style="color: rgba(229, 51, 51, 1)">) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “')”</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 数据库连接1.执行SQL (sql)</span></p>
<p> 这个sql语句比较长，所以做了一个变量sql来装命令。执行以后返回逻辑型，最好再来个如果真判断是否添加成功。</p>
<p> <strong> 数据库修改记录（改）</strong></p>
<p><span style="color: rgba(229, 51, 51, 1)"> </span><span style="color: rgba(229, 51, 51, 1)">临时 ＝ “update 表名称 set 表项1='” ＋ 编辑框1.内容 ＋ “',</span><span style="white-space: normal; color: rgba(229, 51, 51, 1)">表项2</span><span style="color: rgba(229, 51, 51, 1)">='” ＋ 编辑框3.内容 ＋ “',</span><span style="white-space: normal; color: rgba(229, 51, 51, 1)">表项3</span><span style="color: rgba(229, 51, 51, 1)">='” ＋ 编辑框2.内容 ＋ “' where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> </span><span style="color: rgba(229, 51, 51, 1)">数据库连接1.执行SQL (临时)</span></p>
<p> 这个命令跟上面增加记录命令同理。返回也是逻辑型。</p>
<p> <strong> 数据库删除记录（删）</strong></p>
<p><span style="color: rgba(229, 51, 51, 1)"> </span><span style="color: rgba(229, 51, 51, 1)">SQL ＝ “delete from 表名称 where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> </span><span style="color: rgba(229, 51, 51, 1)">数据库连接1.执行SQL (SQL)</span></p>
<p> 删除编号所在的行的所有表项内容。</p>
<p> <strong>数据库查询记录（查）</strong></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 记录集1.打开 (“SELECT * FROM 表名称 WHERE 表项1 like '%” ＋ 编辑框1.内容 ＋ “%'”, #SQL语句)</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 记录集1.到首记录 ()</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 记录集1.读文本 (“表项1”, 文本)</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 记录集1.到下一条 ()</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 判断循环尾 ()</span></p>
<p><span style="color: rgba(229, 51, 51, 1)"> 记录集1.关闭 ()</span></p>
<p> 有打开命令，就一定要有关闭命令，我也不知道为什么，这样效率不会低吗？我也不清楚。</p>
<p> 好像写，改，删，也要先打开，然后关闭，我没写……</p>
<p> 本文转载自：http://www.zhizhuowz.com/post-386.html</p><br><br>
来源：https://www.cnblogs.com/hongyuyingxiao/p/12860190.html
頁:
[1]