Crystal Reports - de Desarrollo a Productivo

[aid_val]

Este codigo te puede servir para que llenes con los datos que necesitas:

Código visual:

Dim info = New rpt_de_pe
 
 
        'Dim info As New cheque
        'Me.CrystalReportViewer1.ReportSource = info
        '''''''''''''''''''''''''
 
        crv_reportes.ReportSource = Nothing
 
        Dim myTableLogonInfos = New CrystalDecisions.Shared.TableLogOnInfos()
        Dim myTableLogonInfo = New CrystalDecisions.Shared.TableLogOnInfo()
        Dim myConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo()
 
 
        With myConnectionInfo
            .ServerName = "servidor"
            .DatabaseName = "base de datos"
            .UserID = "usuario que creas para esa base de datos"
            .Password = "password del usuario que creaste"
 
            'con seguridad integrada
            .IntegratedSecurity = True
        End With
 
        myTableLogonInfo.ConnectionInfo = myConnectionInfo
        myTableLogonInfo.TableName = "datos"
        myTableLogonInfos.Add(myTableLogonInfo)
 
        crv_reportes.LogOnInfo = myTableLogonInfos
        crv_reportes.ReportSource = info