Buscar en Datagridview con base de datos Access
En ciertas ocasiones necesitamos buscar un valor numérico dentro de una base de datos Access, y muchas de las formas expresadas como : Like '%{0}%'", no funcionan claramente. Cuando se busca el valor {2,2} se relaciona automaticamente con {22,2} ó {32,2} ya que tiene el mismo contenido numerico, es decir {2,2}y esto causa confusión y no dejan encontrar el valor unido a éste o sus filas relacionadas que son de nuestro interés En esta entrega veremos como buscar dentro de una Base de Datos Access valores de este tipo, y que solo la búsqueda se centre en el valor exacto buscado.
Tomado como base las entradas anteriores publicadas en este blog, crearemos una subrutina para efecto:
Las partes marcadas con lila es la conexion establecida con la base de datos Access(ver "Guardar datagridview en base de datos Access alli se encuentra la clase para conectar, entrada del 5 de abril) y las marcadas con naranja son las respuestas de la busqueda almacenadas o vistas en cajas de texto. Las letras de color rojo indican lo que debes cambiar; como son: la caja de texto y el nombre de la tabla donde estan contenidos los registros y Dirbase la ruta donde se halla la base de datos.
Si tienen problemas escriban a mi correo ó a este blog, y les daré respuesta inmediata... Nos vemos !!
Tomado como base las entradas anteriores publicadas en este blog, crearemos una subrutina para efecto:
Private Sub txtCodi_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCodi2.TextChanged
Buscar()
End Sub
Buscar()
End Sub
Sub Buscar()
Try
Try
Dim andiario As New ConectarBase
Dim quebuscar As String = TextBox1.Text
Dim tab As String = "SELECT * FROM tabla "
andiario.Conectar(Dirbase, tab)
Dim filas As New DataView
Dim ds As New DataSet
andiario.da.Fill(ds)
filas.Table = ds.Tables(0)
Dim str As String = FormatNumber(0)
gridcant.DataSource = filas
filas.RowFilter = String.Format("Codigo Like '%{0}%'", quebuscar)
Cañitas.txtCodi.Text = gridcant.Item(0, 0).Value
Cañitas.txtcantero.Text = gridcant.Item(1, 0).Value
Catch ex As Exception
Try
Me.ShowDialog()
Catch ex2 As Exception
End Try
MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _
ex.Message, "Conectar con la base", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Dim quebuscar As String = TextBox1.Text
Dim tab As String = "SELECT * FROM tabla "
andiario.Conectar(Dirbase, tab)
Dim filas As New DataView
Dim ds As New DataSet
andiario.da.Fill(ds)
filas.Table = ds.Tables(0)
Dim str As String = FormatNumber(0)
gridcant.DataSource = filas
filas.RowFilter = String.Format("Codigo Like '%{0}%'", quebuscar)
Cañitas.txtCodi.Text = gridcant.Item(0, 0).Value
Cañitas.txtcantero.Text = gridcant.Item(1, 0).Value
Catch ex As Exception
Try
Me.ShowDialog()
Catch ex2 As Exception
End Try
MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _
ex.Message, "Conectar con la base", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Las partes marcadas con lila es la conexion establecida con la base de datos Access(ver "Guardar datagridview en base de datos Access alli se encuentra la clase para conectar, entrada del 5 de abril) y las marcadas con naranja son las respuestas de la busqueda almacenadas o vistas en cajas de texto. Las letras de color rojo indican lo que debes cambiar; como son: la caja de texto y el nombre de la tabla donde estan contenidos los registros y Dirbase la ruta donde se halla la base de datos.
Si tienen problemas escriban a mi correo ó a este blog, y les daré respuesta inmediata... Nos vemos !!
Comentarios
Publicar un comentario