| |||
| Respuesta: Comparar caja contra base de datos Cita: Lo puedes hacer en el evento TextChanged; en este ejemplo, mediante la referencia a ADO y espacio de nombres System.Data.OleDb, según se va tecleando en el TextBox, muestra las coincidencias de la tabla "Pedidos" en un control DataGridView:
Código:
Nota: "oCon" es la conexion ADODB a la base de datos que ya está abierta.Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim sTable As String = "Pedidos"
Dim sql As String = "Select * From " & sTable & " WHERE Proveedor LIKE '" & TextBox1.Text & "%'"
rs.Open(Sql, oCon, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Dim oDa As OleDbDataAdapter = New OleDbDataAdapter
Dim oDs As New DataSet
oDa.Fill(oDs, rs, sTable)
DataGridView1.DataSource = oDs.Tables(0)
End Sub
|