如何打印Access数据库多个表的字段内容?

在启动窗口新建两个控件：数据库连接、记录集

然后

双击启动窗口

加入以下代码：

.子程序

__启动窗口_创建完毕

.局部变量

临时文本,

文本型

.局部变量

临时变量,

整数型

数据库连接1.连接access

(“数据库文件的完整路径名”,

“可以为空”)

记录集1.置连接

(数据库连接1)

记录集1.打开

(“select

user_ip

from

user_online”,

#sql语句,

)

记录集1.到首记录

()

.计次循环首

(记录集1.记录数量,

临时变量)

记录集1.读文本

(“user_ip”,

临时文本)

调试输出

(临时文本)

'

每次输出的临时文本就是你要的每个值

记录集1.到下一条

()

.计次循环尾

()

把查询改为追加查询，要打印的话把查询结果导入报表、者导入EXCEL或直接打印。

给你简单的例子追加查询的：INSERT INTO 目标表 ( 字段A, 字段B ) SELECT 源表.字段A,源表.字段B FROM 源表

DoCmd.PrintOut acSelection 直接打印

DoCmd.OpenReport "tb_user", acViewPreview 打印报表为“tb_user"的报表。

---