Visual Basic - Mostrar datos de una consulta Access en TextBox

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 13
Ha disminuido su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar datos de una consulta Access en TextBox

Publicado por Cristhian (6 intervenciones) el 19/10/2020 22:59:19
Hola buenas, tengo un pequeño problema espero puedan echarme una mano.
Estoy aprendiendo a programar en Visual Basic y tengo una duda de como poder mostrar los datos de mi base de datos Access.
Me explico, hice una consulta y necesito mostrar en varios TextBox la información que hay tengo. Lo hice con un datagrid pero prefiero que sea en Textbox.

Aquí esta mi código, para ver si me echan una mano.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Imports System.Data
Imports System.Data.OleDb
Public Class FrmBuscar2
    Dim conexion As New OleDbConnection
    Dim Adaptador As New OleDbDataAdapter
    Dim Registros As New DataSet
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            conexion.ConnectionString = "provider = microsoft.ACE.OLEDB.12.0;Data source = C:\Descargas\Proyecto\Atlanta\Atlanta\bin\Bd_Atlanta.mdb"
            conexion.Open()
            'MsgBox("Conectado a la BD", vbInformation, "Correcto")
        Catch ex As OleDbException
            MsgBox("Error de Conexión", vbCritical, "Sin Conexión")
        End Try
    End Sub
 
    Private Sub TxtBuscar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtBuscar2.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Button2.Focus()
        End If
    End Sub
Private Sub TxtBuscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBuscar2.TextChanged
        Dim Consultar As String
        Dim Lista As Byte
        If TxtBuscar2.Text <> "" Then
            Consultar = "SELECT * FROM CONSUL_PRODUCTOS WHERE CODIGO = '" & TxtBuscar2.Text & "'"
            Adaptador = New OleDbDataAdapter(Consultar, conexion)
            Registros = New DataSet
            Adaptador.Fill(Registros, "CONSUL_PRODUCTOS")
            Lista = Registros.Tables("CONSUL_PRODUCTOS").Rows.Count
            If Lista <> 0 Then
 
                TxtStockEntrada.Text =
                TxtStockSalida.Text =
                TxtStockBodega.Text =
                TxtNomRepuesto.Text =
                TxtModelo.Text =
                TxtDescrip.Text =
 
            Else
                MsgBox("No se encontro el Código", vbCritical, "Atención")
                TxtBuscar2.Clear()
                'DataGridView1.Columns.Clear()
                TxtBuscar2.Focus()
            End If
        End If
 
    End Sub
End Class

Bueno espero me puedan echar ayudar, de ante mano gracias.
Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Rafael
Val: 30
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar datos de una consulta Access en TextBox

Publicado por Rafael (8 intervenciones) el 20/10/2020 17:54:40
Puedes indicar que error tienes ? Cual es el problema ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 13
Ha disminuido su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar datos de una consulta Access en TextBox

Publicado por Cristhian (6 intervenciones) el 21/10/2020 13:33:40
No es un error, si no que no se como mostrar los datos en los textbox, me falta esa parte del código.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Mostrar datos de una consulta Access en TextBox

Publicado por Rafael Reyes (8 intervenciones) el 21/10/2020 15:07:40
Seria de la siguiente manera:

1
TxtStockEntrada.Text = Registros.Tables(0).Rows(0)("NOMBRE_DEL_CAMPO_EN_LA_TABLA").ToString

y así con todos.

1
2
3
4
5
6
TxtStockEntrada.Text =
TxtStockSalida.Text =
TxtStockBodega.Text =
TxtNomRepuesto.Text =
TxtModelo.Text =
TxtDescrip.Text =

Prueba con uno y luego sigues ya con todo; me comentas como te fué.


NOTA: Recomiendo buscar en Google información etc., aprendes más por ti solo.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 13
Ha disminuido su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar datos de una consulta Access en TextBox

Publicado por Cristhian (6 intervenciones) el 22/10/2020 13:50:57
Me funciono perfecto, muchas gracias por la ayuda..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar