Autor Tema: Conección A Sql Con Crystal Report (Leído 1306 veces)

pacegar · « **en:** Martes 20 de Enero de 2004, 19:33 »

Ya tengo la coneccion al SQL de esta forma:

With BBDD
.Provider = "SQLOLEDB"
.ConnectionString = "SERVER=" + Server + ";DATABASE=" + Database + ";uid=" + User + ";pwd=" + Pass
.Open
End With

Pero a la hora de realizar la conección del Crystal Report me gustaría hacerlo de la misma forma, en tiempo de ejecucíon, y no desde diseño... ¿alguien sabe como hacerlo?

pacegar

Esta es lo que he encontrado en la ayuda del Crystal, pero me da un error en la linea -CRXReport.Database.AddADOCommand cnn1, datcmd1- "creation feature not enabled"
¿Alguien se le ocurre algo?. Es muy importante para mi que pueda conectar los informes con el SQL directamente desde código.
Gracias a todos

Código: Text

 
Option Explicit
Dim CRXReport As New CrystalReport1
 
'The ADO connection to the local database.
 
Dim cnn1 As ADODB.Connection
Dim datcmd1 As ADODB.Command
 
'Demonstrate the use of AddADOCommand by opening an ADO data command and adding the data source to the report.
 
Private Sub cmdADO_Click()
    Dim strCnn As String
 
'Open the data connection.
 
    Set cnn1 = New ADODB.Connection
 
    strCnn = &#34;Provider=SQLOLEDB;SERVER=&#34; + Server + &#34;;DATABASE=&#34; + Database + &#34;;uid=&#34; + User + &#34;;pwd=&#34; + Pass
    cnn1.Open strCnn
 
'Create a new instance of an ADO command object.
 
    Set datcmd1 = New ADODB.Command
    Set datcmd1.ActiveConnection = cnn1
    datcmd1.CommandText = &#34;Customer&#34;
    datcmd1.CommandType = adCmdTable
 
'Add the data source to the report.
 
    CRXReport.Database.AddADOCommand cnn1, datcmd1
End Sub

SoloCodigo

Autor Tema: Conección A Sql Con Crystal Report (Leído 1306 veces)

pacegar

Conección A Sql Con Crystal Report

pacegar

Re: Conección A Sql Con Crystal Report