none
Como crear reportes o imprimir el registro de una base de datos access desde una aplicacion y como validar los campos de la aplicacion para que el usuario no lo deje vacio RRS feed

  • Pregunta

  • Hola a todos

    Estoy desarrollando un sistema de inventario en VB.NET 2008, con una base de datos ACCESS y necesito validar los campos TextBox.Text para que el usuario al ingresar los datos no deje ningun campo vacio e imprimir el registro seleccionado por el usuario de la base de datos access.

     
    codigo  Reporte
        Private Sub Btn_ImpimirReporte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_ImpimirReporte.Click
           
    
            Imprimir_Registro(Txt_Codigo.Text)
        
    
        End Sub
    
        Function Imprimir_Registro(ByVal xcodigo As String) As Boolean
    
            'convertir cadena en numerico
            Dim Codigo As Double
            Codigo = Convert.ToInt32(xcodigo)
    
    
            'conexión      
            Dim conexion As New OleDbConnection
            conexion.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = C:\\Users\\Softky\Documents\\sivenBBDD\\sivent.mdb; Persist Security Info = False"
    
    
            'cadena SQL       
            Dim CadenaSql As String = "SELECT * FROM proveedor WHERE Codigo_Proveedor = " & Codigo
    
            'Adaptador
            Dim Adaptador As New OleDbDataAdapter(CadenaSql, conexion)
    
            'Data set
            Dim Ds As New DataSet
    
            'llenar el data set
            conexion.Open()   'ABRE CONEXION 
            Adaptador.Fill(Ds) 'ADAPTADOR LLENA CON DATOS AL DATA SET
            conexion.Close()
    
            Dim rpt As New Reporte '' Objeto crystal Reports
            Dim formulario As New Frm_GenerarReporte  '' Fromulario que contiene al Objeto CrystalReportViewer
    
            rpt.SetDataSource(Ds)
            formulario.CrystalReportViewer1.ReportSource = rpt
            formulario.CrystalReportViewer1.Dock = DockStyle.Fill
    
        End Function

       

    domingo, 26 de febrero de 2012 15:41

Todas las respuestas

  • fijate lo que esta en negrita

    codigo  Reporte

    Private Sub Btn_ImpimirReporte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_ImpimirReporte.Click Imprimir_Registro(Txt_Codigo.Text) End Sub Function Imprimir_Registro(ByVal xcodigo As String) As Boolean   'Validar Codigo
     If String.IsNullOrEmpty(xcodigo) Then

    messabox.show("Codigo de inventario no puede ser vacio o nulo")

    exit sub

    End if

    'convertir cadena en numerico Dim Codigo As Double Codigo = Convert.ToInt32(xcodigo) 'conexión Dim conexion As New OleDbConnection conexion.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = C:\\Users\\Softky\Documents\\sivenBBDD\\sivent.mdb; Persist Security Info = False" 'cadena SQL Dim CadenaSql As String = "SELECT * FROM proveedor WHERE Codigo_Proveedor = " & Codigo 'Adaptador Dim Adaptador As New OleDbDataAdapter(CadenaSql, conexion) 'Data set Dim Ds As New DataSet 'llenar el data set conexion.Open() 'ABRE CONEXION Adaptador.Fill(Ds) 'ADAPTADOR LLENA CON DATOS AL DATA SET conexion.Close() Dim rpt As New Reporte '' Objeto crystal Reports Dim formulario As New Frm_GenerarReporte '' Fromulario que contiene al Objeto CrystalReportViewer rpt.SetDataSource(Ds) formulario.CrystalReportViewer1.ReportSource = rpt formulario.CrystalReportViewer1.Dock = DockStyle.Fill End Function


    Capacitaciones Corporativas
    Si pequeña es la Patria, uno grande la sueña
    Rubén Darío
    Principe de las letras Castellanas
    Poeta Nicaragüense
    Ay Nicaragua, Nicaraguita Video Clip

    domingo, 26 de febrero de 2012 16:49