VB程序打印水晶報表的典型方法2
2024-07-21 02:24:54
供稿：網友
描述:
本文介紹另一種流行的一種vb程序打印水晶報表的方法.
環境: ms sql server 2000 / vb6 / crystal report8.5
步驟
1: 建立odbc連接
2: 創建一個為crystal report報表文件
3: 加載microsoft activex data objects library 至項目的references 中
4. 創建vb 設計(designer) , 通過open existing file的方式把crystal report報表文件加載進來.
如果報表條件從畫面輸入需要寫一些簡單程序, 舉例
dim adors as adodb.recordset
private sub report_initialize()
sql$ = "select * from view_xxxx where xxxx "
‘根據畫面,重新獲得where條件’
set adors = createobject("adodb.recordset")
adors.open sql$, "provider=msdasql.1;persist security info=false;data source=odbc_sales", adopenkeyset, adlockbatchoptimistic
database.setdatasource adors
end sub
private sub report_terminate()
set adors = nothing
end sub
5: 創建vb畫面(form) ,加入crystal report viewer控件
一些簡單程序, 舉例
dim rptreportname as rpt_reportname ‘rptreportname is name of designer
private sub form_load()
crviewer1.reportsource = rptreportname
crviewer1.viewreport
end sub
總結:
這個方法實現了vb程序對水晶報表的控制, 但是在可擴展性方面不如前一種有效,任何報表的格式改動,需要編譯整個項目l
