如果是FineReport報(bào)表,有兩種方法,一種是需要將數(shù)據(jù)源放在你們本地或網(wǎng)絡(luò)的服務(wù)器上,這樣換一臺(tái)機(jī)器數(shù)據(jù)源也不會(huì)出問題;另一種就是打包時(shí)將所用數(shù)據(jù)也一并打包,了。樓主可以試一下水晶報(bào)表,應(yīng)該是一個(gè)原理。
創(chuàng)新互聯(lián)公司主要從事成都做網(wǎng)站、網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)烏蘭,十年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220
CrystalReportViewer
dataset 定義數(shù)據(jù)源
.rpt 文件描述具體報(bào)表樣式
再加一個(gè)調(diào)用報(bào)表的FORM,就可以實(shí)現(xiàn)簡(jiǎn)單的報(bào)表功能
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'調(diào)用水晶報(bào)表時(shí)置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report '該語句的賦值將在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
你的數(shù)據(jù)庫是出于什么模式運(yùn)行,是專用模式還是共享模式呢,如果是共享模式的話可能是你的會(huì)話數(shù)達(dá)到上限,執(zhí)行命令查看show
parameter
process;再查看select
county(*)
from
v$process;
比較一下這兩個(gè)數(shù)值是否超過進(jìn)程上限,如果要查看你的數(shù)據(jù)庫是否出于共享模式還是專用模式可以執(zhí)行如下語句select
distinct
server
from
v$session;如果值全是ditected
則為專用模式,如果有shared則為共享模式,共享模式經(jīng)常會(huì)導(dǎo)致樓主這樣的問題,導(dǎo)致會(huì)話數(shù)達(dá)到上限,資源部夠用的情況
不過,個(gè)人感覺的話,報(bào)表出錯(cuò)太頻繁會(huì)影響工作效率,你要是經(jīng)常出現(xiàn)這類狀況的話還是考慮換一下finereport,后者的出錯(cuò)率不會(huì)有這么高