This tip consists of information obtained from seagate web site and additionally my researches.I have had problems with SCR about connecting different databases but could not find satistified solution.Now I have solved tihs problem and here are the complete steps...
First you shouldn't forget that
1.You can not connect to database dynamically if you are using Crystal Web Reports Server.ASP (Active Server Pages) allows you to connect dynamically.
Below is an example of ASP syntax.
a.)URL
Here is my sample url.Assume that my report name is report1,
the server name is GJTIST04 and database name is OGERTUR.This report will have 5 parameters.2 number,2 date and finally 2 string parameters.
address of my asp file)?Server=GJTIST04?Database=OGERTUR?Param1=100?Param2=1000?
Param3=01/01/2001?Param4=31/12/2001?Param5=A?Param6=Z
b.)ASP Syntax
<%@ LANGUAGE="VBSCRIPT" %>
<title>Report Title Goes Here </title>
<%
reportname = "RezervasyonOtelMun.rpt"
%>
<%
If Not IsObject (session("oApp"
) Then
Set session("oApp" = Server.CreateObject("Crystal.CRPE.Application"
End If
Path = Request.ServerVariables("PATH_TRANSLATED"
While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path)-1
Path = Left(Path, iLen)
Wend
Session.Timeout=10
If IsObject(session("oRpt") then
Set session("oRpt" = nothing
End if
Set session("oRpt" = session("oApp".OpenReport(Path & reportName , 1)
'Database User And Password
userid = "db2admin"
password = "db2admin"
'Those were my user name and password
' Set the location
set crtable = session("oRpt".Database.Tables.Item(1)
crtable.SetLogonInfo Request.QueryString("Server", Request.QueryString("Database", cstr(userid), cstr(password)
' Parameters
session("oRpt".DiscardSavedData
set session("ParamCollection" = Session("oRpt".Parameterfields
set Param1 = session("ParamCollection".Item(1)
ParamValue1 = Request.QueryString("Param1"
Call Param1.SetCurrentValue (ParamValue1)
set Param2 = session("ParamCollection".Item(2)
ParamValue2 = Request.QueryString("Param2"
Call Param2.SetCurrentValue (ParamValue2)
set Param3 = session("ParamCollection".Item(3)
ParamValue3 = Request.QueryString("Param3"
Call Param3.SetCurrentValue (DateValue(ParamValue3))
set Param4 = session("ParamCollection".Item(4)
ParamValue4 = Request.QueryString("Param4"
Call Param4.SetCurrentValue (DateValue(ParamValue4))
set Param5 = session("ParamCollection".Item(5)
ParamValue5 = Request.QueryString("Param5"
Call Param5.SetCurrentValue (Cstr(ParamValue5))
set Param6 = session("ParamCollection".Item(6)
ParamValue6 = Request.QueryString("Param6"
Call Param6.SetCurrentValue (Cstr(ParamValue6))
%>
<%
On Error Resume Next
session("oRpt".ReadRecords
If Err.Number <> 0 Then
Response.Write "An Error has occured on the server in attempting to access the data source"
Else
If IsObject(session("oPageEngine") Then
set session("oPageEngine" = nothing
End If
set session("oPageEngine" = session("oRpt".PageEngine
End If
%>
'ActiveX Driver
<!-- #include file="SmartViewerActiveX.asp" -->
c.) SmartViewerActiveX.asp syntax...
<%
%>
<HTML>
<HEAD>
<TITLE>Seagate ActiveX Viewer</TITLE>
</HEAD>
<BODY BGCOLOR=C6C6C6 LANGUAGE=VBScript ONLOAD="Page_Initialize">
<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,224">
<PARAM NAME="EnableRefreshButton" VALUE=0>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=1>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker"
if ScriptEngineMajorVersion < 2 then
window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
CRViewer.ReportName = "rptserver.asp"
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource"
webSource.ReportSource = webBroker
webSource.URL = "rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
First you shouldn't forget that
1.You can not connect to database dynamically if you are using Crystal Web Reports Server.ASP (Active Server Pages) allows you to connect dynamically.
Below is an example of ASP syntax.
a.)URL
Here is my sample url.Assume that my report name is report1,
the server name is GJTIST04 and database name is OGERTUR.This report will have 5 parameters.2 number,2 date and finally 2 string parameters.
address of my asp file)?Server=GJTIST04?Database=OGERTUR?Param1=100?Param2=1000?
Param3=01/01/2001?Param4=31/12/2001?Param5=A?Param6=Z
b.)ASP Syntax
<%@ LANGUAGE="VBSCRIPT" %>
<title>Report Title Goes Here </title>
<%
reportname = "RezervasyonOtelMun.rpt"
%>
<%
If Not IsObject (session("oApp"
) Then Set session("oApp"
= Server.CreateObject("Crystal.CRPE.Application"End If
Path = Request.ServerVariables("PATH_TRANSLATED"
While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path)-1
Path = Left(Path, iLen)
Wend
Session.Timeout=10
If IsObject(session("oRpt"
) thenSet session("oRpt"
= nothingEnd if
Set session("oRpt"
= session("oApp".OpenReport(Path & reportName , 1)'Database User And Password
userid = "db2admin"
password = "db2admin"
'Those were my user name and password
' Set the location
set crtable = session("oRpt"
.Database.Tables.Item(1)crtable.SetLogonInfo Request.QueryString("Server"
, Request.QueryString("Database", cstr(userid), cstr(password)' Parameters
session("oRpt"
.DiscardSavedDataset session("ParamCollection"
= Session("oRpt".Parameterfields set Param1 = session("ParamCollection"
.Item(1)ParamValue1 = Request.QueryString("Param1"
Call Param1.SetCurrentValue (ParamValue1)
set Param2 = session("ParamCollection"
.Item(2)ParamValue2 = Request.QueryString("Param2"
Call Param2.SetCurrentValue (ParamValue2)
set Param3 = session("ParamCollection"
.Item(3)ParamValue3 = Request.QueryString("Param3"
Call Param3.SetCurrentValue (DateValue(ParamValue3))
set Param4 = session("ParamCollection"
.Item(4)ParamValue4 = Request.QueryString("Param4"
Call Param4.SetCurrentValue (DateValue(ParamValue4))
set Param5 = session("ParamCollection"
.Item(5)ParamValue5 = Request.QueryString("Param5"
Call Param5.SetCurrentValue (Cstr(ParamValue5))
set Param6 = session("ParamCollection"
.Item(6)ParamValue6 = Request.QueryString("Param6"
Call Param6.SetCurrentValue (Cstr(ParamValue6))
%>
<%
On Error Resume Next
session("oRpt"
.ReadRecords If Err.Number <> 0 Then
Response.Write "An Error has occured on the server in attempting to access the data source"
Else
If IsObject(session("oPageEngine"
) Then set session("oPageEngine"
= nothingEnd If
set session("oPageEngine"
= session("oRpt".PageEngineEnd If
%>
'ActiveX Driver
<!-- #include file="SmartViewerActiveX.asp" -->
c.) SmartViewerActiveX.asp syntax...
<%
%>
<HTML>
<HEAD>
<TITLE>Seagate ActiveX Viewer</TITLE>
</HEAD>
<BODY BGCOLOR=C6C6C6 LANGUAGE=VBScript ONLOAD="Page_Initialize">
<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,224">
<PARAM NAME="EnableRefreshButton" VALUE=0>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=1>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker"
if ScriptEngineMajorVersion < 2 then
window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
CRViewer.ReportName = "rptserver.asp"
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource"
webSource.ReportSource = webBroker
webSource.URL = "rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
</BODY>
</HTML>