5
« en: Martes 29 de Octubre de 2002, 10:33 »
Tengo unos reportes hechos con Crystal Reports 8 y cuando hago referencia a uno desde VB6 para mostrar o imprimir no hay ningun problema pero cuando intento hacer una consulta para filtrar los datos que quiero que salgan siempre me da el error capturado de "No se encuentra servidor SQL". ¿A qué se debe? Necesito con urgencia solucionar el problema ya que es parte de un proyecto. Muchisimas gracias a todos.
Código:
Public Function Imprimir(ByVal reporte As String, ByVal titulo As String)
'IMPRIME INFORMES DE CLIENTES/TARIFAS
On Error GoTo defError
MDI.CrystalReport1.WindowControlBox = True
MDI.CrystalReport1.WindowState = crptMaximized
MDI.CrystalReport1.WindowTitle = titulo
MDI.CrystalReport1.Destination = crptToWindow 'crptToPrinter
MDI.CrystalReport1.ReportSource = crptReport
'MDI.CrystalReport1.DataFiles(0) = App.Path & "datosbdregara.mdb"
MDI.CrystalReport1.ReportFileName = App.Path & "rpt" & reporte
MDI.CrystalReport1.SelectionFormula = "{tblClientes.PROVINCIA}='" & var & "'" & ""
MDI.CrystalReport1.Action = 1
Exit Function
defError:
If Err.Number = 20507 Then
MsgBox "El informe a imprimir no se encuentra o está dañado." & Chr(13) & Chr(13) & "Asegúrese de que el informe se encuentra correctamente en el directorio rpt y vuelva a intentar la operación.", vbExclamation, "Imprimir"
Else
MsgBox "Error nº" & Err.Number & ": " & Err.Description, vbCritical, "Imprimir"
End If
End Function