• Sábado 13 de Abril de 2024, 08:51

Autor Tema:  Error al iniciar el servidor SQL (CR)  (Leído 2707 veces)

damagra

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Error al iniciar el servidor SQL (CR)
« en: Martes 29 de Octubre de 2002, 10:33 »
0
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