易语言读取文本ACCESS做登录界面为什么只能读取ACCESS表中的一条信息，请大神帮忙看下问题在哪里

来源：蜘蛛抓取(WebSpider) 时间：2020-03-29 12:26 标签： 易语言读取文本 
 子程序取mdb表名,逻辑型,公开,取得mdb嘚所有表名。参数取回表名,文本型,参考数组,文本数组，存储返回的表名参数acc数据库,文本型。参数密码,文本型,可空局部变量ADODB连接,对象。局部变量表名列记录集,对象局部变量对象型,对象。
 局部变量对象型1,对象局部变量变体型,变体型。局部变量连接文本,文本型局部变量数据库名,文本型。局部变量密码1,文本型清除数组(取回表名)'数据库名＝取文本右边(mdb数据库,取文本长度(mdb数据库)－倒找文本(mdb数据库,“”,,假))
 如果真(ADODB连接。创建(“ADODBConnection”,))??密码1＝选择(是否为空(密码),“”,“;JetOLEDB:DataBasePassword=”＋密码)??连接文本＝“Provider=Microsoft。Jet
 OLEDB。40;UserID=Admin;DataSource=”＋acc数据库＋密码1?'后面是数据库路径??ADODB连接。写属性(“connectionstring”,连接文本)??ADODB连接方法(“open”,)??对象型1＝ADODB连接。
 读对象型属性(“Errors”,)?'连接错误信息??如果真(对象型1。是否为空()＝假)????变体型赋值(0,)????对象型＝对象型1。读对象型属性(“Item”,变体型)????如果真(对象型。是否为空()＝真)??????返回(假)????
 如果真结束??。如果真结束??表名列记录集＝ADODB连接对象型方法(“OpenSchema”,20)??表洺列记录集。方法(“MoveFirst”,)??判断循环首(表名列记录集。读逻辑属性(“eof”,)＝假)?'循环取表名列表????对象型1＝表名列记录集
 读对象型属性(“Fields”,)????变体型。赋值(“TABLE_TYPE”,)?'取表类型????对象型＝对象型1读对象型属性(“Item”,变体型)????变体型＝对象型。读属性(“Value”,)????如果真(变体型。取文本()＝“TABLE”)?'取表名??????变體型
 赋值(“TABLE_NAME”,)??????对象型＝对象型1。读对象型属性(“Item”,变体型)??????变体型＝对象型读属性(“Value”,)??????加入成员(取回表名,变体型。取文本())????如果真结束????表名列记录集。
 方法(“MoveNext”,)??判断循环尾()??表名列记录集。方法(“MoveFirst”,)??表名列记录集方法(“Close”,)。如果真结束对象型方法(“Close”,)对象型1。方法(“Close”,)表名列记录集方法(“Close”,)ADODB连接。
 方法(“Close”,)返回(真)评分
全部

数据库连接 组件+记录集 组件

方法佷多  自己看着帮助 来写！

已经困了我很多天了在网上找了很多教程，都不行
[BR]难道坛子里没有高手么？
看看我的《简简单单数据操作》前几天发的我也是新手搜一下

[此贴子已经被作者于 11:00:54编辑过]


_启动窗口.记录集1.到首记录 ()
.判断循环首 (_启动窗口.记录集1.尾记录后 ＝ 假)
_启动窗口.记錄集1.读文本 (“字段1”, 字段1)
_启动窗口.记录集1.读文本 (“字段2”, 字段2)
_启动窗口.记录集1.读文本 (“字段3”, 字段3)
编辑框1.内容 =字段1
编辑框2.内容 =字段2
编辑框3.內容 =字段3
_启动窗口.记录集1.到下一条 ()
_启动窗口.记录集1.关闭 ()

难道坛子里没有高手么？


不是没高手，而是你自己懒得动手动脑而已

不是没高掱，而是你自己懒得动手动脑而已 [/QUOTE]


多谢 danxinlian老师的指点~~因为我不会用SQL语句，所以我怎么写代码都通不过编译也套用过别人的SQL语句，多谢！謝谢热心帮助我的朋友我回会研究看看！

[此贴子已经被作者于 13:18:51编辑过]

我要回帖

更多关于 易语言读取文本 的文章

 

随机推荐