Server has not yet been opened
Hello, I see this message has been exposed a time ago, but this has a
variance, please take a look and help me if you can.
I have a conection to an SQL Server Database created on my VB6
Dataenvironment.
Set cnn1 = DataEnvironment1.conexion1
cnn1.Open
Dim w_sql As String
Set datcmd1 = New ADODB.Command
Set datcmd1.ActiveConnection = cnn1
Dim Report As New CrVentas
w_sql = "select field1, field2 from mytable "
datcmd1.CommandText = w_sql
datcmd1.CommandType = adCmdText
Screen.MousePointer = vbHourglass
* The next line is where te error occurs
Report.Database.AddADOCommand cnn1, datcmd1
With Report
.UnboundString1.SetUnboundFieldSource "{ado.field1}"
.UnboundString2.SetUnboundFieldSource "{ado.field2}"
End With
CrystalReport.CRViewer1.ReportSource = Report
CrystalReport.CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CrystalReport.Show vbModal
--
______________________________
Marcelo Trinidad
Telefuturo C{*filter*}4
Asuncin - Paraguay
Tel. (21) 618-4139
--
______________________________
Marcelo Trinidad
Telefuturo C{*filter*}4
Asuncin - Paraguay
Tel. (21) 618-4139
