
14/04/2008, 05:17
|
| | Fecha de Ingreso: abril-2008
Mensajes: 20
Antigüedad: 17 años, 1 mes Puntos: 1 | |
Re: buscar en una datagrid Ya lo he solucionado, gracias por tu apoyo, pongo el codigo por si a alguien le sirve (Vb2005)
Esto en el textchange del combo(txtnombre) Dim CadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Database.mdb"
Dim conexion As New OleDb.OleDbConnection(CadenaConexion)
Dim consulta As String = "SELECT * FROM PRODUCTOS WHERE NombreProducto LIKE '%" & Txtnombre.Text & "%'"
Dim comando As New OleDb.OleDbCommand(consulta, conexion)
Dim objDataAdapter As New OleDb.OleDbDataAdapter(comando)
Dim objDataTable As New Data.DataTable("ProductosConsulta")
objDataAdapter.Fill(objDataTable)
objDataAdapter.Dispose()
objDataAdapter = Nothing
comando.Dispose()
comando = Nothing
Dim objDataRow As DataRow
PRODUCTOSDataGridView.DataSource = Nothing
PRODUCTOSDataGridView.Rows.Clear()
For Each objDataRow In objDataTable.Rows
PRODUCTOSDataGridView.Rows.Add(objDataRow.Item("Co digoProducto"), objDataRow.Item ("NombreProducto"), objDataRow.Item("PrecioVenta"), objDataRow.Item("Unidades"), objDataRow.Item("Tipo"))
Next
conexion.Close()
Última edición por tsunamijavip; 14/04/2008 a las 05:46 |