como hago para filttrar datos en dtgridview
Publicado por Alci (1 intervención) el 12/11/2013 21:33:02
como hago para filtrar datos mientras escribo en un texbox y los datos que se me filtren en un datagridview con base de datos access? ahaa perdon pero no escribi en que lenguaje, el lenguaje de programacion que utilizo por el momento es el visual 2008
Dim sAppPath As String = Application.StartupPath.ToString
Dim sBaseDatos As String = sAppPath & "\ventas.mdb"
Dim CadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
Dim conexion As New OleDb.OleDbConnection(CadenaConexion)
Dim consulta As String = "SELECT * FROM articulos WHERE Id LIKE '%" & TxtArticulo.Text & "%'"
Dim comando As New OleDb.OleDbCommand(consulta, conexion)
Dim objDataAdapter As New OleDb.OleDbDataAdapter(comando)
Dim objDataTable As New Data.DataTable("Id")
objDataAdapter.Fill(objDataTable)
objDataAdapter.Dispose()
objDataAdapter = Nothing
comando.Dispose()
comando = Nothing
Dim objDataRow As DataRow
DgvArticulos.DataSource = Nothing
DgvArticulos.Rows.Clear()
For Each objDataRow In objDataTable.Rows
DgvArticulos.Rows.Add(objDataRow.Item("Id"), objDataRow.Item("codigo"), objDataRow.Item("Marca"), objDataRow.Item("Descripcion"), objDataRow.Item("Cantidad"))
DgvArticulos.Rows.Add(objDataRow.Item("precio de compra"), objDataRow.Item("precio de venta"), objDataRow.Item("proveedor"), objDataRow.Item("fecha de compra"))
Next
conexion.Close()
hasta aqui llegue pero me da un error, una ayudita? je je
Dim sAppPath As String = Application.StartupPath.ToString
Dim sBaseDatos As String = sAppPath & "\ventas.mdb"
Dim CadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
Dim conexion As New OleDb.OleDbConnection(CadenaConexion)
Dim consulta As String = "SELECT * FROM articulos WHERE Id LIKE '%" & TxtArticulo.Text & "%'"
Dim comando As New OleDb.OleDbCommand(consulta, conexion)
Dim objDataAdapter As New OleDb.OleDbDataAdapter(comando)
Dim objDataTable As New Data.DataTable("Id")
objDataAdapter.Fill(objDataTable)
objDataAdapter.Dispose()
objDataAdapter = Nothing
comando.Dispose()
comando = Nothing
Dim objDataRow As DataRow
DgvArticulos.DataSource = Nothing
DgvArticulos.Rows.Clear()
For Each objDataRow In objDataTable.Rows
DgvArticulos.Rows.Add(objDataRow.Item("Id"), objDataRow.Item("codigo"), objDataRow.Item("Marca"), objDataRow.Item("Descripcion"), objDataRow.Item("Cantidad"))
DgvArticulos.Rows.Add(objDataRow.Item("precio de compra"), objDataRow.Item("precio de venta"), objDataRow.Item("proveedor"), objDataRow.Item("fecha de compra"))
Next
conexion.Close()
hasta aqui llegue pero me da un error, una ayudita? je je
Valora esta pregunta


0