Hi.
First of all, sorry for my English. I am from Russia.
I began used CR8 a few day ago. And now I have some problem.
The CRViewer have need to logon to the SQL database everyone, when I make a report. But I want do connect through VBscript. How can I do it?
What code shoild I write or change? Now I used this:
<SCRIPT LANGUAGE="VBScript">
<!--
Sub window_onLoad()
Page_Initialize()
End Sub
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker"
if err.number <> 0 then
window.alert "The Seagate Software ActiveX Viewer is unable to create it's resource objects. To rectify this problem, please install Internet Explorer 4.0 or install DCOM for Windows 95 and the latest Microsoft Scripting Engine. These files are available at Microsoft's web site."
CRViewer.ReportName = " else
Dim webSource0
Set webSource0 = CreateObject("WebReportSource.WebReportSource"
webSource0.ReportSource = webBroker
webSource0.URL = " webSource0.PromptOnRefresh = True
CRViewer.ReportSource = webSource0
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
Thank to all.
Maxim.
First of all, sorry for my English. I am from Russia.
I began used CR8 a few day ago. And now I have some problem.
The CRViewer have need to logon to the SQL database everyone, when I make a report. But I want do connect through VBscript. How can I do it?
What code shoild I write or change? Now I used this:
<SCRIPT LANGUAGE="VBScript">
<!--
Sub window_onLoad()
Page_Initialize()
End Sub
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker"
if err.number <> 0 then
window.alert "The Seagate Software ActiveX Viewer is unable to create it's resource objects. To rectify this problem, please install Internet Explorer 4.0 or install DCOM for Windows 95 and the latest Microsoft Scripting Engine. These files are available at Microsoft's web site."
CRViewer.ReportName = " else
Dim webSource0
Set webSource0 = CreateObject("WebReportSource.WebReportSource"
webSource0.ReportSource = webBroker
webSource0.URL = " webSource0.PromptOnRefresh = True
CRViewer.ReportSource = webSource0
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
Thank to all.
Maxim.