【 tulaoshi.com - 编程语言 】
                             
                            在VB中如何使用直观、简便的报表一直是很多人关心的问题,CrystalReports用起来又不太理想。现介绍一在VB中运行MicrosoftAccess报表的方法,用起来还不错。  
  利用Automation运行MicrosoftAccess报表  
  1.使用MicrosoftAccess建立数据库(如:novelty.mdb)的相关报表(如:rptEmployess)。  
  2.创建引用  
  在VB中使用“ProjectReferences"菜单创建一个对MicrosoftAccess8.0ObjectLibrary的引用。  
  3.程序清单  
  'ReferencesMSAccess8.0ObjectLibrary(this  
  'codewillworkwithanyversonofAccessthat  
  'supportsAutomation)  
  DimMSAccessAsAccess.Application  
  PrivatesubCommand1_Click()  
  SetMSAccess=NEWAccess.Application  
  MSAccess.OpenCurrentDatabase(App.Path&"ovelty.mdb")  
  MSAccess.DoCmd.OpenReport"rptEmployess",acViewNormal  
  MSAccess.CloseCurrentDatabase  
  SetMSAccess=Nothing  
  endSub  
  注:acViewNormal告知Access打开该报表并立即打印。  
  这种方法有个缺点,就是运行环境中必须装有MSAccess。->