<% dim ModuleName,InfoID,ChannelShortName,CorrelativeArticle,InstallDir,ChannelDir,Keyword,PageTitle,ArticleIntro,Articlecontent Keyword=stripHTML("数据库,Access,实例,技巧") PageTitle=stripHTML("在VB中用代码打印ACCESS报表") ArticleIntro=stripHTML("") Articlecontent=stripHTML("Dim objACC As Object                    Set objACC = CreateObject("Access.Applic…") ModuleName = stripHTML("classical") InfoID = stripHTML("27983") ChannelShortName=stripHTML("文章") InstallDir=stripHTML("http://www.77169.com/") ChannelDir=stripHTML("classical") %> 在VB中用代码打印ACCESS报表 - 华盟网 - http://www.77169.com
您现在的位置: 华盟网 >> 知识库 >> 数据库 >> Access >> 实例技巧 >> 正文

在VB中用代码打印ACCESS报表

2005/8/29 作者:unknown 来源: unknown
导读 <% if len(ArticleIntro)<3 then Response.Write Articlecontent 'Response.Write "Articlecontent" else Response.Write ArticleIntro 'Response.Write "ArticleIntro" end if %>
Dim objACC As Object
Set objACC = CreateObject("Access.Application")
objACC.OpenCurrentDatabase "c:\db.mdb"
objACC.DoCmd.OpenReport "表报一"
objACC.Quit
Set objACC = Nothing