conectar VB-Crystal Report
Publicado por Ricardo (73 intervenciones) el 03/03/2010 15:57:32
Hola a todos, soy programador de visual basic y estoy trabajando con CR 11, en el pasado al trabajar con CR 6, hice una conexión a varios reportes con el siguiente códifo ejemplo...
Private Sub imp_per_Click()
On Error GoTo Error
Dim Parametros As String
' Crea la cadena de palabras clave.
Parametros = "Description=" _
& "DNS para imprimir Pericias" _
& Chr$(13) & "DBQ=" & App.Path & "\Pericias.mdb"
' Crea un nuevo DSN registrado.
DBEngine.RegisterDatabase "Pericias", _
"Microsoft Access Driver (*.mdb)", True, Parametros
' Llama al Crystal Report
With CrystalReport
.ReportFileName = App.Path & "\Reportes\informe_bisicleta.rpt"
.Connect = "DSN = Pericias"
.SQLQuery = "SELECT * FROM Pericias" & _
" WHERE Pericias.Id = " & Nro_Ficha
.PrintReport
End With
Error:
If Err <> 0 Then
mensaje$ = MsgBox("Se genero un error Nº " & Err & vbCrLf & _
Err.Description & vbCrLf & "Por este motivo no se " & _
"puede imprimir el Informe Pericial", vbExclamation, "Sr. Operador")
Exit Sub
End If
End Sub
Intente la misma conexión y no abre el CR, tampoco tira ningún error............
Si alguien sabe y me puede ayudar se lo agradeceria mucho
Private Sub imp_per_Click()
On Error GoTo Error
Dim Parametros As String
' Crea la cadena de palabras clave.
Parametros = "Description=" _
& "DNS para imprimir Pericias" _
& Chr$(13) & "DBQ=" & App.Path & "\Pericias.mdb"
' Crea un nuevo DSN registrado.
DBEngine.RegisterDatabase "Pericias", _
"Microsoft Access Driver (*.mdb)", True, Parametros
' Llama al Crystal Report
With CrystalReport
.ReportFileName = App.Path & "\Reportes\informe_bisicleta.rpt"
.Connect = "DSN = Pericias"
.SQLQuery = "SELECT * FROM Pericias" & _
" WHERE Pericias.Id = " & Nro_Ficha
.PrintReport
End With
Error:
If Err <> 0 Then
mensaje$ = MsgBox("Se genero un error Nº " & Err & vbCrLf & _
Err.Description & vbCrLf & "Por este motivo no se " & _
"puede imprimir el Informe Pericial", vbExclamation, "Sr. Operador")
Exit Sub
End If
End Sub
Intente la misma conexión y no abre el CR, tampoco tira ningún error............
Si alguien sabe y me puede ayudar se lo agradeceria mucho
Valora esta pregunta
0