UC知道如何按条件 用VB打印Access数据库的报表程序
来源：百度知道 编辑：UC知道 时间：2024/06/10 02:16:47
用VB打印Access数据库的报表程序如下：
Dim objACC As Object
Set objACC = CreateObject("Access.Application")
objACC.OpenCurrentDatabase "C:\Documents and Settings\Administrator\桌面\学生接送数据.mdb"
objACC.DoCmd.OpenReport "校对表"
objACC.Quit
Set objACC = Nothing
此报表打印的是其中Access中设置好的班级，如果要换一个班级打印这个报表，该如何编写这个程序？谢谢！！
Dim objACC As Object
Set objACC = CreateObject("Access.Application")
objACC.OpenCurrentDatabase "C:\Documents and Settings\Administrator\桌面\学生接送数据.mdb"
objACC.DoCmd.OpenReport "校对表"
objACC.Quit
Set objACC = Nothing
此报表打印的是其中Access中设置好的班级，如果要换一个班级打印这个报表，该如何编写这个程序？谢谢！！
定义一个变量来保存班级的选择(数据库的选择)
例如:dim DbName as string
然后将DbName在适当的地方进行改变
将下面的话改成:
objACC.OpenCurrentDatabase dbname
令狐兄，我是新手，能不能说的详细点，不胜感激！