none
Como pasar dato de SQL a VB.NET RRS feed

  • Pregunta

  • Buenas Tardes, Queria si me pueden ayudar. Estoy haciendo un programa de sistema de ventas y al momento de realizar una venta hay una factura. Entonses al momento de llenarla los datos que esten en la tabla producto pasen a los TextBox en VB ya sea poniendo el codigo del producto o el Nombre. Espero me puedan ayudar Muchas Gracias!! :D
    martes, 26 de diciembre de 2017 20:33

Respuestas

  • Puedes utilizar uno o varios JOIN's para unir tablas y obtener varios datos dependiendo de lo que quieras hacer, el Query cambiaría, tal cómo lo puedo explicar en lo siguiente:

     Try
                Dim sql As String = "SELECT T1.Id, T2.producto, T2.nombre FROM facturas T1 JOIN Productos T2 ON T2.Id_producto = T1.Id_producto WHERE T1.id_factura = '1'"
    
                Dim cmd As New SqlCommand(sql, CN)
    
    
                Dim da As New SqlDataAdapter(cmd)
                Dim dt As New DataTable
    
                da.Fill(dt)
    
                If dt.Rows.Count > 0 Then
                    Dim row As DataRow = dt.Rows(0)
    
    
                    txtProducto.Text = Convert.ToString(row("producto"))
                    txtNombre.Text = Convert.ToString(row("nombre"))
    
                    CN.Close()
    
                End If
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    '---------------------------------------------------------
    'Aquí el otro ejemplo
    
    Imports System.Data
    Imports System.Data.SqlClient
    
    dim cmd as sqlcommand = new sqlcommand("SELECT T1.Id, T2.producto, T2.nombre FROM facturas T1 JOIN Productos T2 ON T2.Id_producto = T1.Id_producto WHERE T1.id_factura = '1'",CN)
    dim rec as sqlDataReader = cmd.ExecuteScaler()
    
    While rec.Read
             txtProducto.Text = rec.Item("producto")
             txtNombre.Text = rec.Item("nombre")
    End While


    • Propuesto como respuesta Enrique4to miércoles, 27 de diciembre de 2017 6:13
    • Marcado como respuesta Pablo RubioModerator lunes, 1 de enero de 2018 15:55
    martes, 26 de diciembre de 2017 23:39

Todas las respuestas

  •  Try
                Dim sql As String = "SELECT producto, nombre FROM facturas WHERE Ttiket.id_tiket = '1'"
    
                Dim cmd As New SqlCommand(sql, CN)
    
    
                Dim da As New SqlDataAdapter(cmd)
                Dim dt As New DataTable
    
                da.Fill(dt)
    
                If dt.Rows.Count > 0 Then
                    Dim row As DataRow = dt.Rows(0)
    
    
                    txtProducto.Text = Convert.ToString(row("producto"))
                    txtNombre.Text = Convert.ToString(row("nombre"))
    
                    CN.Close()
    
                End If
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

    Espero que te sirva... ésta es una forma..

    Aquí te dejo otra opción

    Imports System.Data
    Imports System.Data.SqlClient
    
    dim cmd as sqlcommand = new sqlcommand("Select producto, nombre From facturas where id = '1'",CN)
    dim rec as sqlDataReader = cmd.ExecuteScaler()
    
    While rec.Read
             txtProducto.Text = rec.Item("producto")
             txtNombre.Text = rec.Item("nombre")
    End While
    Saludos...

    • Propuesto como respuesta Enrique4to martes, 26 de diciembre de 2017 20:57
    martes, 26 de diciembre de 2017 20:51
  • En ese caso lo que esta mandando a llamar 2 datos de una sola tabla?

    martes, 26 de diciembre de 2017 21:36
  • Te recomiendo una pagina SQL necesitas saber mas de sentencias sql para poder hacer tus select busquedas y mas

    https://www.w3schools.com/sql/


    Si necesitas ayuda sube tu avance de otro modo no puedo ayudarte , Suerte!

    martes, 26 de diciembre de 2017 21:40
  • Hola KGonzalez

    Con base a tu consulta, te recomiendo investigar acerca de procedimientos almacenados, a continuación te voy a dos enlaces muy útiles que puedes implementar en tu proyecto.

    https://docs.microsoft.com/es-es/sql/relational-databases/stored-procedures/stored-procedures-database-engine

    y este otro

    https://technet.microsoft.com/es-es/library/ms190669(v=sql.105).aspx

    Quedamos al pendiente de cualquier actualización u comentario de tu parte.

    Saludos Cordiales y feliz año nuevo.

    Gracias por usar los foros de MSDN.

    Pablo Rubio
     _____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    martes, 26 de diciembre de 2017 22:59
    Moderador
  • Puedes utilizar uno o varios JOIN's para unir tablas y obtener varios datos dependiendo de lo que quieras hacer, el Query cambiaría, tal cómo lo puedo explicar en lo siguiente:

     Try
                Dim sql As String = "SELECT T1.Id, T2.producto, T2.nombre FROM facturas T1 JOIN Productos T2 ON T2.Id_producto = T1.Id_producto WHERE T1.id_factura = '1'"
    
                Dim cmd As New SqlCommand(sql, CN)
    
    
                Dim da As New SqlDataAdapter(cmd)
                Dim dt As New DataTable
    
                da.Fill(dt)
    
                If dt.Rows.Count > 0 Then
                    Dim row As DataRow = dt.Rows(0)
    
    
                    txtProducto.Text = Convert.ToString(row("producto"))
                    txtNombre.Text = Convert.ToString(row("nombre"))
    
                    CN.Close()
    
                End If
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    '---------------------------------------------------------
    'Aquí el otro ejemplo
    
    Imports System.Data
    Imports System.Data.SqlClient
    
    dim cmd as sqlcommand = new sqlcommand("SELECT T1.Id, T2.producto, T2.nombre FROM facturas T1 JOIN Productos T2 ON T2.Id_producto = T1.Id_producto WHERE T1.id_factura = '1'",CN)
    dim rec as sqlDataReader = cmd.ExecuteScaler()
    
    While rec.Read
             txtProducto.Text = rec.Item("producto")
             txtNombre.Text = rec.Item("nombre")
    End While


    • Propuesto como respuesta Enrique4to miércoles, 27 de diciembre de 2017 6:13
    • Marcado como respuesta Pablo RubioModerator lunes, 1 de enero de 2018 15:55
    martes, 26 de diciembre de 2017 23:39
  • Es que si tengo procesos almacenados uno de busqueda y me muestra en un Datagridview pero yo quiero que los datos me los muestre en un TextBox

    miércoles, 27 de diciembre de 2017 20:24