代码如下:dim conn as new connection
dim rs as new recordset
dim cmdexec as new command Conn.Open ConnStr cmdExec.ActiveConnection = Conn
cmdExec.CommandText = "Pr_PrintForUnit"
cmdExec.CommandType = adCmdStoredProc
cmdExec.Parameters.Append cmdExec.CreateParameter("@UnitID", adInteger, adParamInput, 4)
cmdExec.Parameters.Append cmdExec.CreateParameter("@CheckUpDate", adInteger, adParamInput, 4)
cmdExec("@UnitID") = 12
cmdExec("@CheckUpDate") = 2003
Set rs = cmdExec.Execute
Report.Database.SetDataSource rs, adoReport.DiscardSavedData
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault在本机运行没有问题,但在其他机器上则报数据库登录失败。数据库连接没有问题,因为其他的报表是用“视图”生成的,而这个是用“存储过程”生成的,是否因此报表动态连数据库出错?我想试试用Report.Database.LogOnServer(),但这个方法的参数是什么呢?关键是第一个参数要填dll名,怎么写呢?救命啊!!!!!!!!
dim rs as new recordset
dim cmdexec as new command Conn.Open ConnStr cmdExec.ActiveConnection = Conn
cmdExec.CommandText = "Pr_PrintForUnit"
cmdExec.CommandType = adCmdStoredProc
cmdExec.Parameters.Append cmdExec.CreateParameter("@UnitID", adInteger, adParamInput, 4)
cmdExec.Parameters.Append cmdExec.CreateParameter("@CheckUpDate", adInteger, adParamInput, 4)
cmdExec("@UnitID") = 12
cmdExec("@CheckUpDate") = 2003
Set rs = cmdExec.Execute
Report.Database.SetDataSource rs, adoReport.DiscardSavedData
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault在本机运行没有问题,但在其他机器上则报数据库登录失败。数据库连接没有问题,因为其他的报表是用“视图”生成的,而这个是用“存储过程”生成的,是否因此报表动态连数据库出错?我想试试用Report.Database.LogOnServer(),但这个方法的参数是什么呢?关键是第一个参数要填dll名,怎么写呢?救命啊!!!!!!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货