易语言怎样读取access数据表名
.子程序取mdb表名,逻辑型,公开,取得mdb的所有表名。.参数取回表名,文本型,参考数组,文本数组,存储返回的表名.参数acc数据库,文本型.参数密码,文本型,可空.局部变量ADODB连接,对象.局部变量表名列记录集,对象.局部变量对象型,对象.局部变量对象型1,对象.局部变量变体型,变体型.局部变量连接文本,文本型.局部变量数据库名,文本型.局部变量密码1,文本型清除数组(取回表名)'数据库名=取文本右边(mdb数据库,取文本长度(mdb数据库)-倒找文本(mdb数据库,“”,,假)).如果真(ADODB连接.创建(“ADODB.Connection”,))??密码1=选择(是否为空(密码),“”,“;JetOLEDB:DataBasePassword=”+密码)??连接文本=“Provider=Microsoft.Jet.OLEDB.4.0;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”,)返回(真)评分