Programación General > Visual Basic 6.0 e inferiores

 Cannot Find Sql Server

(1/1)

birdcom:
tengo un reporte hecho en cristal report conectada a una BD en sql server. al ver la informacion desde cristal report me muestra bien los datos. El problema susede cuando llamo el reporte desde visual basic. no me muestra nada y me aparece este mensaje.
 
El codigo es el siguiente:
 
Mensaje = "¿Seleccione <SI> para Imprimir el Empleado Seleccionado y <NO> para Imprimir todos los Empleados."
Estilo = vbYesNoCancel + vbQuestion
Titulo = "Confirmación de Impresion"
Opcion = MsgBox(Mensaje, Estilo, Titulo)
cd.ShowPrinter
With cr
    Select Case Opcion
        Case vbYes
            .Connect = Conexion
            .UserName = "xxxx"
            .Password = "xxxx"
            .ReportFileName = RutaInforme + "empleado.rpt"
            .SelectionFormula = "({nombretabla.rut}='" & TxtRut.Text & "')"
        Case vbNo
            .SelectionFormula = ""
            .ReportFileName = RutaInforme + "empleado.rpt"
        Case vbCancel
            Exit Sub
    End Select
    .DiscardSavedData = True
    .DataFiles(0) = "nombretabla"
    .PrintReport
    If .LastErrorNumber <> 0 Then
        MsgBox .LastErrorString
    End If
End With
 
Como lo soluciono?

birdcom:
lo solucione yo mismo. era un detalle.
Si alguien necesita ayuda me dice...

Navegación

[0] Índice de Mensajes