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


0