Visual Basic - Buscar en Base de datos Access

Life is soft - evento anual de software empresarial
 
Vista:

Buscar en Base de datos Access

Publicado por Carla Maria (1 intervención) el 31/07/2019 13:05:39
Tengo un datagrid con un textbox y un boton para buscar registros en una tabla con una base de datos en access, lo que no puedo lograr es que me busque también en las otras tablas que tengo que son las mismas solamente con otros tipos de productos pero contiene las mismas columnas. El siguiente código es el que me funciona para una tabla, ¿pero cómo seria el código si quiero que busque también en otras tablas?

Muchas gracias a todos.

Imports System. Data
Imports System. Data. OleDb

Public Class Form1
Dim conexion As New OleDbConnection
Dim adapter As New OleDbDataAdapter
Dim registros As New DataSet

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\db.mdb"
conexion.Open()
MsgBox("Se conecto con la base de datos exitosamente", MsgBoxStyle.Information, "informacion")
Catch ex As Exception
MsgBox("No se pudo establecer la conexion", MsgBoxStyle.Critical, "error")
End Try

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim consultar As String
Dim lista As Byte
If TextBox1.Text <> "" Then
consultar = "SELECT * FROM cafe WHERE Servicio = '" & TextBox1.Text & "'"
adapter = New OleDbDataAdapter(consultar, conexion)
registros = New DataSet
adapter.Fill(registros, "cafe")
lista = registros.Tables("cafe").Rows.Count
If lista <> 0 Then
DataGridView1.DataSource = registros
DataGridView1.DataMember = "cafe"
Else
MsgBox("No se encontro el registro", MsgBoxStyle.Critical, "Atencion")
TextBox1.Clear()
TextBox1.Focus()

End If
End If
End Sub
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