Help! Server has not yet been opened 
Author Message
 Help! Server has not yet been opened

Hello, I see this message has been exposed a time ago, but this has a
variance I'm using the command ADDADOCommand and unboundfields, please take
a look and help me if you can.

I have a conection to an SQL Server 2000 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

--
______________________________
Marcelo Trinidad
Telefuturo C{*filter*}4
Asuncin - Paraguay

Tel. (21) 618-4139



Mon, 09 May 2005 22:20:40 GMT  
 Help! Server has not yet been opened
Lots of info on this sort of problem in the Knowledge base, just search at

http://www.*-*-*.com/

Cheers

Robert


Quote:
> Hello, I see this message has been exposed a time ago, but this has a
> variance I'm using the command ADDADOCommand and unboundfields, please
take
> a look and help me if you can.

> I have a conection to an SQL Server 2000 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

> --
> ______________________________
> Marcelo Trinidad
> Telefuturo C{*filter*}4
> Asuncin - Paraguay

> Tel. (21) 618-4139



Tue, 10 May 2005 11:14:28 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Connection not Open + Server has not yet been opened error messages

2. Help w/ Server Has Not Yet Been Opened using ASP, ADO, SQL

3. Server Not Yet Open HELP!!

4. Server has not yet been opened message with VB6, CRP7 and SQL-server

5. Server has not yet been opened - Very Urgent

6. "the server is not yet opened"

7. server has not yet been opened ( STILL )

8. Server has not yet been opened

9. Server has not yet been opened (Urgent)

10. server has not yet been opened.

11. Server has not yet been opened

12. VB6 and CR 8.5 Server has not yet been opened

 

 
Powered by phpBB® Forum Software