Question

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

如何打印Access数据库多个表的字段内容,要有查寻打印功能,

Answer 1

在启动窗口新建两个控件：数据库连接、记录集
然后
双击启动窗口
加入以下代码：
.子程序
__启动窗口_创建完毕
.局部变量
临时文本,
文本型
.局部变量
临时变量,
整数型
数据库连接1.连接access
(“数据库文件的完整路径名”,
“可以为空”)
记录集1.置连接
(数据库连接1)
记录集1.打开
(“select
user_ip
from
user_online”,
#sql语句,
)
记录集1.到首记录
()
.计次循环首
(记录集1.记录数量,
临时变量)
记录集1.读文本
(“user_ip”,
临时文本)
调试输出
(临时文本)
'
每次输出的临时文本就是你要的每个值
记录集1.到下一条
()
.计次循环尾
()

Answer 2

1.新建查询，将要打印的所有数据列出，在条件中添加变量参数，用?指定。比如
select a.column1, b.column2, …… from table1 a inner join table2 b on a.column1 = b.column1 where a.column1=？
2.新建报表，与新建查询为数据源进行设计
3.预览或打印报表时，会提示输入查询条件，输入后打印即可。

Answer 3

Dim
Cn
As
New
ADODB.
Connection
Dim
Rs
As
Recordset
Dim
srtSQL
As
String
Private
Sub
Form_Load()
Dim
ConSQL
As
String
Set
Cn
=
New
ADODB.Connection
ConSQL
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=
"
&
App.Path
&
"\数据库.mdb"
Cn.Open
ConSQL
Set
Rs
=
New
ADODB.Recordset
Rs.CursorLocation
=
adUseClient
srtSQL
=
"SELECT
*
FROM
表名
Rs.Open
srtSQL,
Cn,
adOpenStatic,
adLockOptimistic
If
Rs.RecordCount
>
0
Then
信息1=Rs.Fields("姓名")
信息2=Rs.Fields("年龄")
End
If
Rs.Close
Set
Rs
=
Nothing
Cn.Close
Set
Cn
=
Nothing
我也是从论坛上转摘的
希望对你有帮助

Answer 4

Dim Cn As New ADODB.Connection
Dim Rs As Recordset
Dim srtSQL As String
Private Sub Form_Load()
Dim ConSQL As String
Set Cn = New ADODB.Connection
ConSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\数据库.mdb"
Cn.Open ConSQL

Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
srtSQL = "SELECT * FROM 表名
Rs.Open srtSQL, Cn, adOpenStatic, adLockOptimistic
If Rs.RecordCount > 0 Then

信息1=Rs.Fields("姓名")
信息2=Rs.Fields("年龄")

End If
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
我也是从论坛上转摘的 希望对你有帮助

Answer 5

你是要用打印机打印？？
用打印机打印就要用报表，VB自带有报表设计器，用起来很方便的，自己查一下怎么用就好了，几句话也说不清