Hola espero me puedan ayudar me urge mucho esta información
Les platico un poco cual es mi porblema, tengo una aplicación en visual studio 2005, la información que ingreso en la aplicación es almacenada en una base de datos de access 2007 (en modo compatibilidad) , despues tengo q mostrar una serie de reportes, esos reportes ya los tengo diseñados en crystal reports 11y cuando le ingreso parametros funcionan a la perfección. El problema que tengo es que no se como hacer para mandarle los parametros desde visual hacia crystal reports para que me muestre la información del reporte, o mas bien como hacer la conexion entre visual y crystal, por ejemplo eh creado reportes con BD en sql server2005 y el codigo q utilizo es este:
Public Sub frmPrintBoleta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim boleta As ReportClass
If tipoBoleta.ToUpper = "ALHAJA" Then
boleta = New BolAL
'ElseIf tipoBoleta.ToUpper = "MONEDA" Then
' boleta = New boletaMo
'ElseIf tipoBoleta.ToUpper = "CREDITO" Or tipoBoleta.ToUpper = "CRÉDITO SUIZO" Then
' boleta = New boletaCs
'ElseIf tipoBoleta.ToUpper = "RELOJ" Then
' boleta = New boletaRj
'ElseIf tipoBoleta.ToUpper = "AUTO" Then
' boleta = New boletaAu
End If
Dim crtableLogoninfos As New TableLogOnInfos()
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim crtableLogoninfos1 As New TableLogOnInfos()
Dim crtableLogoninfo1 As New TableLogOnInfo()
Dim crConnectionInfo1 As New ConnectionInfo()
Dim CrTables As Tables
Dim CrTable As Table
Dim crParamFields As ParameterFieldDefinitions = boleta.DataDefinition.ParameterFields ' Crystal Parameter Fields Collection
Dim crParamField As ParameterFieldDefinition ' Crystal Parameter Field
Dim crParamValues As ParameterValues ' Crystal Parameter Values Collection
Dim crParamValue As ParameterDiscreteValue
Dim prestamoDAL As New PrestamoDAL
leyenda = prestamoDAL.GetLeyenda
poliza = prestamoDAL.GetPoliza
'leyenda = "HOLA"
'poliza = "HOLA"
' Crystal Parameter Value
' Set Parameter Value
crParamField = crParamFields("IdPrestamo") ' Get Parameter Field
crParamValues = crParamField.CurrentValues ' Get Current Values
crParamValue = New ParameterDiscreteValue() ' Instanciate New Discrete Value
crParamValue.Value = Me.id_prestamo ' Set Discrete Value
crParamValues.Add(crParamValue) ' Add Value to CurrentValues Collection
crParamField.ApplyCurrentValues(crParamValues)
' Set Parameter Value
crParamField = crParamFields("ImporteLetra") ' Get Parameter Field
crParamValues = crParamField.CurrentValues ' Get Current Values
crParamValue = New ParameterDiscreteValue() ' Instanciate New Discrete Value
crParamValue.Value = Num2Text(Math.Round(Fix(Me.importe), 0)) & " " & Decimales(Me.importe) ' Set Discrete Value
crParamValues.Add(crParamValue) ' Add Value to CurrentValues Collection
crParamField.ApplyCurrentValues(crParamValues)
' Set Parameter Value
crParamField = crParamFields("id_sucursal") ' Get Parameter Field
crParamValues = crParamField.CurrentValues ' Get Current Values
crParamValue = New ParameterDiscreteValue() ' Instanciate New Discrete Value
crParamValue.Value = Me.id_sucursal ' Set Discrete Value
crParamValues.Add(crParamValue) ' Add Value to CurrentValues Collection
crParamField.ApplyCurrentValues(crParamValues)
'' Set Parameter Value
'crParamField = crParamFields("Leyenda1") ' Get Parameter Field
'crParamValues = crParamField.CurrentValues ' Get Current Values
'crParamValue = New ParameterDiscreteValue() ' Instanciate New Discrete Value
'crParamValue.Value = Me.leyenda ' Set Discrete Value
'crParamValues.Add(crParamValue) ' Add Value to CurrentValues Collection
'crParamField.ApplyCurrentValues(crParamValues)
'' Set Parameter Value
'crParamField = crParamFields("Leyenda2") ' Get Parameter Field
'crParamValues = crParamField.CurrentValues ' Get Current Values
'crParamValue = New ParameterDiscreteValue() ' Instanciate New Discrete Value
'crParamValue.Value = Me.leyenda ' Set Discrete Value
'crParamValues.Add(crParamValue) ' Add Value to CurrentValues Collection
'crParamField.ApplyCurrentValues(crParamValues)
'' Set Parameter Value
'crParamField = crParamFields("poliza") ' Get Parameter Field
'crParamValues = crParamField.CurrentValues ' Get Current Values
'crParamValue = New ParameterDiscreteValue() ' Instanciate New Discrete Value
'crParamValue.Value = Me.poliza ' Set Discrete Value
'crParamValues.Add(crParamValue) ' Add Value to CurrentValues Collection
'crParamField.ApplyCurrentValues(crParamValues)
'Dim Connection As New OleDbConnection(Criptologia.DecryptString(My.Setti ngs.conexion, "abc"))
Dim Connection As New OleDbConnection(My.Settings.CONEXION)
Dim Server, param As Array
Dim sa, Pass As String
'Server = Criptologia.DecryptString(My.Settings.conexion, "abc").Split(";")
Server = (My.Settings.CONEXION).Split(";")
sa = Server(4)
param = sa.Split("=")
sa = param(1)
Pass = Server(5)
param = Pass.Split("=")
Pass = param(1)
crConnectionInfo.ServerName = Connection.DataSource
crConnectionInfo.DatabaseName = Connection.Database
crConnectionInfo.UserID = sa
crConnectionInfo.Password = Pass
CrTables = boleta.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
crvBoleta.ReportSource = boleta
boleta.PrintToPrinter(1, False, 1, 1)
end sub
Espero alguien me pueda ayudar me urge muchisimo
gracias
