Como pasar dato de SQL a VB.NET

Question

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

Answer 1

 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...

Answer 2

En ese caso lo que esta mandando a llamar 2 datos de una sola tabla?

Answer 3

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!

Answer 4

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.

Answer 5

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

Answer 6

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