none
Como hacer que la información que aparece en un datagrid por medio de una conexion a una BD MYSQL se transfiera a un reporte RRS feed

  • Pregunta

  • HOLA que tal necesito ayuda con una practica que estoy realizando, en si no sé qué me pueda faltar para que los datos que mando llamar desde la BD en SQL se transfieran al reporte.<o:p></o:p>

    Esta es la conexión a la BD

    imports System.Data
    Imports MySql.Data.MySqlClient
    
    Module conexion
    
        Public miconexion As MySqlConnection
        Dim micomandossql As MySqlCommand
        Public da As MySqlDataAdapter
        Public Sub conexiones()
            conectarme.ConnectionString = "server=localhost;User Id=root; pwd=1234;database=nominaa"
            conectarme.Open()
        End Sub
    
        Function coneccion(ByVal servidor As String, ByVal basededatos As String)
            miconexion = New MySqlConnection
            Dim sql As String
            Dim dt As New DataSet
            sql = "select* from empleados"
    
            Try
                miconexion = New MySqlConnection("data source=localhost; user=root;password='1234';database=nominaa")
                da = New MySqlDataAdapter(sql, miconexion)
                da.Fill(dt)
            Catch ex As Exception
                MessageBox.Show("error en la conexion")
            Finally
                miconexion.Close()
    
            End Try
            Return dt
        End Function
    End Module
    LAS variables que manejo y el codigo de los botones
    Imports System.Data
    Imports MySql.Data.MySqlClient
    
    
    Module variables
    
        Public conectarme As New MySqlConnection
        Public dataset, dat As New DataSet
        Public adapter, ada As New MySqlDataAdapter
        Public buscar, bus As String
    
    End Module
    
    Botones
    Imports System.Data
    Imports MySql.Data.MySqlClient
    
    
    Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Call conexiones()
            Me.reporte.Enabled = False
        End Sub
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
            Try
                dataset = coneccion(ser.Text, base.Text)
                DataGridView1.DataSource = dataset.Tables(0)
    
            Catch ex As Exception
                MsgBox(ex.Message)
    
            End Try
    
            Me.reporte.Enabled = True
    
    
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reporte.Click
            Dim rpt As New reporte '' Objeto crystal Reports
            Dim formulario As New Generar_Reporte '' Fromulario que contiene al Objeto CrystalReportViewer
    
            dat.Clear()
    
            ada = New MySqlDataAdapter(bus, conectarme)
    
            rpt.SetDataSource(dat)
            formulario.CrystalReportViewer1.ReportSource = rpt
            formulario.CrystalReportViewer1.Dock = DockStyle.Fill
    
    
            Dim frmReporte As New Form()
            With frmReporte
                .Controls.Add(formulario.CrystalReportViewer1)
                .Text = "Reporte "
                .WindowState = FormWindowState.Maximized
                .ShowDialog()
            End With
            conectarme.Close()
        End Sub
    
      
    
    End Class
    

    Espero me puedan indicar que me falta o en que estoy equivocada se los agradecería mucho.

    lunes, 22 de diciembre de 2014 20:22

Respuestas

Todas las respuestas