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.
Bueno espero me puedan echar ayudar, de ante mano gracias.
Saludos.
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.DataImports 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 DataSetAdaptador.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
0
