Skip to main content
se añadieron 60 caracteres en el cuerpo
Origen Enlace
alanfcm
  • 20.9k
  • 11
  • 19
  • 35

tengo que elaborar un reporte en crystal report, que muestre los campos de clave,de cliente,nombre de cliente,monto del credito y la fecha del prestamo. al momento de ejecutar lo que ya tengo me tira un error en el "fill de datos" asumo que la consulta esta mal, espero me puedan ayudar ya que no soy mucho de programar o cosas asi

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim con As SqlConnection = New SqlConnection("server=DESKTOP-SAHPQ10;Database=SistemadeVentas;UID=sa;Pwd=avilalopez12;") Dim comando As SqlCommand = New SqlCommand("Select Clientes.id_cliente,nombrecliente,apellido_paterno,apellido_materno,fecha_credito,monto,pagado from Clientes", con) Dim adaptador As SqlDataAdapter = New SqlDataAdapter con.Open() datos.Clear() adaptador.SelectCommand = comando adaptador.Fill(datos, "creditos") Dim rpt As New CrystalReport1 rpt.Load() rpt.SetDataSource(datos) rpt.Refresh() CrystalReportViewer1.ReportSource = rpt rpt.Refresh()

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim con As SqlConnection = New SqlConnection("server=DESKTOP-SAHPQ10;Database=SistemadeVentas;UID=sa;Pwd=avilalopez12;")
        Dim comando As SqlCommand = New SqlCommand("Select Clientes.id_cliente,nombrecliente,apellido_paterno,apellido_materno,fecha_credito,monto,pagado from Clientes", con)
        Dim adaptador As SqlDataAdapter = New SqlDataAdapter
        con.Open()
        datos.Clear()
        adaptador.SelectCommand = comando
        adaptador.Fill(datos, "creditos")
        Dim rpt As New CrystalReport1
        rpt.Load()
        rpt.SetDataSource(datos)
        rpt.Refresh()
        CrystalReportViewer1.ReportSource = rpt
        rpt.Refresh()

tengo que elaborar un reporte en crystal report, que muestre los campos de clave,de cliente,nombre de cliente,monto del credito y la fecha del prestamo. al momento de ejecutar lo que ya tengo me tira un error en el "fill de datos" asumo que la consulta esta mal, espero me puedan ayudar ya que no soy mucho de programar o cosas asi

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim con As SqlConnection = New SqlConnection("server=DESKTOP-SAHPQ10;Database=SistemadeVentas;UID=sa;Pwd=avilalopez12;") Dim comando As SqlCommand = New SqlCommand("Select Clientes.id_cliente,nombrecliente,apellido_paterno,apellido_materno,fecha_credito,monto,pagado from Clientes", con) Dim adaptador As SqlDataAdapter = New SqlDataAdapter con.Open() datos.Clear() adaptador.SelectCommand = comando adaptador.Fill(datos, "creditos") Dim rpt As New CrystalReport1 rpt.Load() rpt.SetDataSource(datos) rpt.Refresh() CrystalReportViewer1.ReportSource = rpt rpt.Refresh()

tengo que elaborar un reporte en crystal report, que muestre los campos de clave,de cliente,nombre de cliente,monto del credito y la fecha del prestamo. al momento de ejecutar lo que ya tengo me tira un error en el "fill de datos" asumo que la consulta esta mal, espero me puedan ayudar ya que no soy mucho de programar o cosas asi

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim con As SqlConnection = New SqlConnection("server=DESKTOP-SAHPQ10;Database=SistemadeVentas;UID=sa;Pwd=avilalopez12;")
        Dim comando As SqlCommand = New SqlCommand("Select Clientes.id_cliente,nombrecliente,apellido_paterno,apellido_materno,fecha_credito,monto,pagado from Clientes", con)
        Dim adaptador As SqlDataAdapter = New SqlDataAdapter
        con.Open()
        datos.Clear()
        adaptador.SelectCommand = comando
        adaptador.Fill(datos, "creditos")
        Dim rpt As New CrystalReport1
        rpt.Load()
        rpt.SetDataSource(datos)
        rpt.Refresh()
        CrystalReportViewer1.ReportSource = rpt
        rpt.Refresh()
Origen Enlace

ayuda con consulta sql para reporte

tengo que elaborar un reporte en crystal report, que muestre los campos de clave,de cliente,nombre de cliente,monto del credito y la fecha del prestamo. al momento de ejecutar lo que ya tengo me tira un error en el "fill de datos" asumo que la consulta esta mal, espero me puedan ayudar ya que no soy mucho de programar o cosas asi

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim con As SqlConnection = New SqlConnection("server=DESKTOP-SAHPQ10;Database=SistemadeVentas;UID=sa;Pwd=avilalopez12;") Dim comando As SqlCommand = New SqlCommand("Select Clientes.id_cliente,nombrecliente,apellido_paterno,apellido_materno,fecha_credito,monto,pagado from Clientes", con) Dim adaptador As SqlDataAdapter = New SqlDataAdapter con.Open() datos.Clear() adaptador.SelectCommand = comando adaptador.Fill(datos, "creditos") Dim rpt As New CrystalReport1 rpt.Load() rpt.SetDataSource(datos) rpt.Refresh() CrystalReportViewer1.ReportSource = rpt rpt.Refresh()