Access数据库问题

aixuan

读取access数据库全部数据导出到txt

感觉，记录集1.读文本 (“shape”, 隐藏属性)这样读一个写一个太麻烦了好几十个字段，都这样读写，就累死了

有没有别的办法呢，源码，数据库文件已打包！求大神指教

还有一个小问题就是“Name”这个字段如果为空能不能不写出呢

辽阳小哲

  

子程序名	返回值类型	公开	备 注
子程序3

变量名	类 型	静态	数组	备 注
文件号	整数型
i	整数型
名字	文本型
分类	文本型
隐藏属性	文本型
序号	文本型
o	整数型
结果	文本型
内容	文本型
qtxt	快速文本对象
字段名	文本型
字段值	文本型

' 写到文件 (取运行目录 () ＋ “/物品.txt”, 到字节集 (“”))
计次循环首 (记录集1.记录数量, i)
进度条1.最大位置 ＝ 记录集1.记录数量
记录集1.移到 (i － 1)
记录集1.读文本 (“Name”, 字段值)
如果真 (取文本长度 (字段值) ＝ 0)
到循环尾 ()

计次循环首 (记录集1.字段数量, o)
记录集1.读文本 (记录集1.取字段名 (o － 1), 字段值)
qtxt.添加 (字段值 ＋ “;”)
计次循环尾 ()
qtxt.添加 ( #换行符 )
处理事件 ()
进度条1.位置 ＝ i ＋ 1
计次循环尾 ()
qtxt.写到文件 (取运行目录 () ＋ “\物品.txt”)
销毁 ()

i支持库列表	支持库注释
commobj	通用对象支持库
eDB	数据库操作支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 eDB<br /> <br /> .子程序 子程序3<br /> .局部变量 文件号, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 名字, 文本型<br /> .局部变量 分类, 文本型<br /> .局部变量 隐藏属性, 文本型<br /> .局部变量 序号, 文本型<br /> .局部变量 o, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 内容, 文本型<br /> .局部变量 qtxt, 快速文本对象<br /> .局部变量 字段名, 文本型<br /> .局部变量 字段值, 文本型<br /> <br /> ' 写到文件 (取运行目录 () ＋ “/物品.txt”, 到字节集 (“”))<br /> <br /> .计次循环首 (记录集1.记录数量, i)<br />     进度条1.最大位置 ＝ 记录集1.记录数量<br />     记录集1.移到 (i － 1)<br />     记录集1.读文本 (“Name”, 字段值)<br />     .如果真 (取文本长度 (字段值) ＝ 0)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     .计次循环首 (记录集1.字段数量, o)<br />         记录集1.读文本 (记录集1.取字段名 (o － 1), 字段值)<br />         qtxt.添加 (字段值 ＋ “;”)<br />     .计次循环尾 ()<br />     qtxt.添加 (#换行符)<br />     处理事件 ()<br />     进度条1.位置 ＝ i ＋ 1<br /> .计次循环尾 ()<br /> qtxt.写到文件 (取运行目录 () ＋ “\物品.txt”)<br /> 销毁 ()

辽阳小哲

  

子程序名	返回值类型	公开	备 注
子程序3

变量名	类 型	静态	数组	备 注
文件号	整数型
i	整数型
名字	文本型
分类	文本型
隐藏属性	文本型
序号	文本型
o	整数型
结果	文本型
内容	文本型
qtxt	快速文本对象

' 写到文件 (取运行目录 () ＋ “/物品.txt”, 到字节集 (“”))
计次循环首 (记录集1.记录数量, i)
进度条1.最大位置 ＝ 记录集1.记录数量
记录集1.移到 (i － 1)
记录集1.读文本 (“Name”, 名字)
如果真 (取文本长度 (名字) ＝ 0)
到循环尾 ()
记录集1.读文本 (“Idx”, 序号)
记录集1.读文本 (“StdMode”, 分类)
记录集1.读文本 (“shape”, 隐藏属性)
结果 ＝ 序号 ＋ “;” ＋ 名字 ＋ “;” ＋ 分类 ＋ “;” ＋ 隐藏属性 ＋ “;” ＋ #换行符
qtxt.添加 (结果)
' 文件号 ＝ 打开文件 (取运行目录 () ＋ “\物品.txt”, , )
' 移到文件尾 (文件号)
' 写出文本 (文件号, 结果 ＋ #换行符)
' 关闭文件 (文件号)
处理事件 ()
进度条1.位置 ＝ i ＋ 1
计次循环尾 ()
qtxt.写到文件 (取运行目录 () ＋ “\物品.txt”)
销毁 ()

i支持库列表	支持库注释
commobj	通用对象支持库
eDB	数据库操作支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 eDB<br /> <br /> .子程序 子程序3<br /> .局部变量 文件号, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 名字, 文本型<br /> .局部变量 分类, 文本型<br /> .局部变量 隐藏属性, 文本型<br /> .局部变量 序号, 文本型<br /> .局部变量 o, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 内容, 文本型<br /> .局部变量 qtxt, 快速文本对象<br /> <br /> ' 写到文件 (取运行目录 () ＋ “/物品.txt”, 到字节集 (“”))<br /> <br /> .计次循环首 (记录集1.记录数量, i)<br />     进度条1.最大位置 ＝ 记录集1.记录数量<br />     记录集1.移到 (i － 1)<br />     记录集1.读文本 (“Name”, 名字)<br />     .如果真 (取文本长度 (名字) ＝ 0)<br />         到循环尾 ()<br />     .如果真结束<br />     记录集1.读文本 (“Idx”, 序号)<br />     记录集1.读文本 (“StdMode”, 分类)<br />     记录集1.读文本 (“shape”, 隐藏属性)<br />     结果 ＝ 序号 ＋ “;” ＋ 名字 ＋ “;” ＋ 分类 ＋ “;” ＋ 隐藏属性 ＋ “;” ＋ #换行符<br />     qtxt.添加 (结果)<br />     ' 文件号 ＝ 打开文件 (取运行目录 () ＋ “\物品.txt”, , )<br />     ' 移到文件尾 (文件号)<br />     ' 写出文本 (文件号, 结果 ＋ #换行符)<br />     ' 关闭文件 (文件号)<br />     处理事件 ()<br />     进度条1.位置 ＝ i ＋ 1<br /> .计次循环尾 ()<br /> qtxt.写到文件 (取运行目录 () ＋ “\物品.txt”)<br /> 销毁 ()

补充内容 (2025-8-11 16:22):
忽略这个，看楼下的代码吧。