用易语言写的易语言与access数据库库版的程序,在XP系统里操作正常,在Win7里不正常.

易语言对ACCESS数据库的一些基本操作_易语言吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名:今日本吧第个签到,本吧因你更精彩,明天继续来努力!
本吧签到人数:0成为超级会员,使用一键签到本月漏签0次!成为超级会员,赠送8张补签卡连续签到:天&&累计签到:天超级会员单次开通12个月以上,赠送连续签到卡3张
关注:129,493贴子:
易语言对ACCESS数据库的一些基本操作收藏
在这里偷师了一段时间,就发一篇比较有注释的,这篇算是对最近的练习的总结吧(本文一些解译也是复制来的) 入门东西,有错的请大牛们指出,谢谢 对数据库基本的操作就是查询,修改,添加,删除 查询的select 字段名 from 表名 where 条件 修改的update 表名 set 欲修改的字段名1=该字段的新值,欲修改的字段名2=该字段的新值 where 条件 添加的insert into 表名(字段1,字段2,字段3) values (字段1的值,字段2的值,字段3的值) 删除的delete from 表名 where 条件 了解后就再套用了差不多了,主要出错的就是条件怎么写的问题了 看下图
挂机一个月得百万,你还蓝瘦香菇么?
.版本 2.支持库 iext.程序集 窗口程序集1.子程序 __启动窗口_创建完毕.局部变量 aa, 对象.如果 (取反 (文件是否存在 (取运行目录 () + “\1.mdb”)))
' 判断数据库是否存在
aa.创建 (“ADOX.Catalog”, )
aa.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” + 取运行目录 () + “\1.mdb”)
aa.清除 ()
' 以上三行我也不懂,反正就是创建一个MDB文件,取运行目录那就是创建位置
外部数据库1.打开MDB数据库 (取运行目录 () + “\1.mdb”, , , , )
外部数据库1.执行 (“CREATE TABLE Data (第一列 autoincrement , 第二列 TEXT , 第三列 TEXT)”, )
' 加载这个数据库,建一个表DATA并定义表头 第一列,第二列,第三列.否则
外部数据库1.打开MDB数据库 (取运行目录 () + “\1.mdb”, , , , ).如果结束加载列表 ()
' 加载数据到超级列表框中的子程序,见下面的子程序.子程序 加载列表.局部变量 显示数据, 整数型.局部变量 索引, 整数型超级列表框1.全部删除 ()
' 清除原来的数据显示数据 = 外部数据库1.查询 (“select * from Data ”)
' 读数据的时,先要用查询命令查这个表' 查询记录格式:select 字段名 from 表名 where 条件
,若后面的去掉就直接查查询整个表外部数据库1.到首记录 (显示数据).判断循环首 (外部数据库1.尾记录后 (显示数据) = 假)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (外部数据库1.读 (显示数据, 1)))
超级列表框1.置标题 (索引, 1, 外部数据库1.读 (显示数据, 2))
超级列表框1.置标题 (索引, 2, 外部数据库1.读 (显示数据, 3))
外部数据库1.到后一记录 (显示数据).判断循环尾 ()
' 循环就是把查询到的都加入到列表中外部数据库1.关闭记录集 (显示数据).子程序 _刷新_被选择加载列表 ()
' 就是重新加载下.子程序 _添加_被选择按钮1.标题 = “添加”
' 这些就能使用一个按键做不同的事编辑框1.内容 = “”.子程序 _修改_被选择编辑框1.内容 = 超级列表框1.取标题 (超级列表框1.现行选中项, 0)编辑框2.内容 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1)编辑框3.内容 = 超级列表框1.取标题 (超级列表框1.现行选中项, 2)按钮1.标题 = “修改”' 要修改需知原数据才方便去修改.子程序 _删除_被选择外部数据库1.执行 (“delete from Data where 第一列=” + 超级列表框1.取标题 (超级列表框1.现行选中项, 0), )' 删除命令,delete from 表名 where 条件' 第一列上面定义为数值类的,就如这样,若是以文本类的要在=加
,在最后还要加上
例如:' 外部数据库1.执行 (“delete from Data where 第一列=‘” + 超级列表框1.取标题 (超级列表框1.现行选中项, 1)+“’”, )加载列表 ().子程序 _超级列表框1_右键单击表项.如果真 (超级列表框1.现行选中项 ≠ -1)
' 选中有效的才弹菜单
超级列表框1.弹出菜单 (菜单, , ).如果真结束.子程序 _按钮1_被单击.判断开始 (按钮1.标题 = “添加”)
' 根据按钮名去操作不同的命令
.如果 (编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “”)
' 两个编辑框不为空才执行
外部数据库1.执行 (“insert into Data(第二列,第三列) values ('” + 编辑框2.内容 + “','” + 编辑框3.内容 + “' )”, )
' 因为第一列会自动加数,不用再给它定义数值,所以就只需增加第二第三列的内容就行
' insert into 表名(字段1,字段2,字段3) values (字段1的值,字段2的值,字段3的值)
就是添加新的数据
信息框 (“还没有填写完!”, #信息图标, “添加错误”)
.如果结束.默认
.如果 (编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “”)
外部数据库1.执行 (“update Data set 第二列='” + 编辑框2.内容 + “',第三列='” + 编辑框3.内容 + “'where 第一列=” + 编辑框1.内容, )
' 以某一列的值不变,然后修改其他,这里是以第一列的值不变,因为第二第三列我们要修改
' 修改
update 表名 set 欲修改的字段名1=该字段的新值,欲修改的字段名2=该字段的新值 where 条件
信息框 (“还没有填写完!”, #信息图标, “修改错误”)
.如果结束.判断结束编辑框2.内容 = “”编辑框3.内容 = “”加载列表 ()
我自己编的一个为什么删除不了数据啊,调试输出的sql语句都是没问题的,为什么执行不了啊??
。。。。。。为何这么麻烦。。。用【数据库连接】这个组件链接MDB,直接用记录集操作
数据库连接+记录集 楼主可以去看看
MD看头像还以为是虫子
试了好多次了,都不行。。。我用的是2013 64位的access
实际上用数据库连接配合记录集比你这个简单得多
還不如我EF簡單 易語言看著好變扭
登录百度帐号推荐应用
为兴趣而生,贴吧更懂你。或WIN7系统下写的程序,部分代码到XP下不能使用,求解决_易语言吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名:今日本吧第个签到,本吧因你更精彩,明天继续来努力!
本吧签到人数:0成为超级会员,使用一键签到本月漏签0次!成为超级会员,赠送8张补签卡连续签到:天&&累计签到:天超级会员单次开通12个月以上,赠送连续签到卡3张
关注:129,493贴子:
WIN7系统下写的程序,部分代码到XP下不能使用,求解决收藏
图片来自:这个是我在WIN7下写程序部分代码,在WIN7下用了很久都没有问题,最近改装XP后,这部分代码点击没有任何反映。请问是什么问题导致。怎么解决
挂机一个月得百万,你还蓝瘦香菇么?
求大神指点
图片来自:这个是用了兼容模式的图片来自:这个是没用兼容模式的
→_→是不是文件路径不对啊。。。。。
执行后的目录有没有
你确定装完系统后F盘还有那个目录?
你确定装了打开cdr的软件吗
php培训性价比如何?八维宏烨教育4个月培训学费仅8千,就业薪水保障8千以上
双击的可以执行右键的就没有反应我把程序装到另一台win7系统,在F盘建立相应目录并拷贝上文件,就没有发现不能执行的问题了。
登录百度帐号推荐应用
为兴趣而生,贴吧更懂你。或}

我要回帖

更多关于 易语言access数据库 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信