Ver Mensaje Individual
  #19 (permalink)  
Antiguo 14/04/2008, 05:17
tsunamijavip
 
Fecha de Ingreso: abril-2008
Mensajes: 20
Antigüedad: 16 años
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