
06/03/2008, 16:52
|
 | | | Fecha de Ingreso: abril-2007
Mensajes: 11
Antigüedad: 18 años Puntos: 0 | |
Re: Ayuda Con Proyecto Vb Cita:
Iniciado por seba123neo Hola,el control que necesitarias para hacer ese filtrado automatico seria el Datagrid ,lo enlazas al recordset de la base y con la consulta SQL como te puso ReVija lo filtras...mira aca te apso un codigo basico de ADO de como hacer eso,suponiendo que la base se llama clientes y el campo a filtrar se llama nombre,necesitas un datagrid y un textbox ,al escribir en el textbox se te va filtrando los datos.necesitas incluir la referencia a Microsoft Active Data objects ,en el menu Proyecto--> Referencias
Código:
Option Explicit
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
App.Path & "\Base.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * from clientes"
End With
Set DataGrid1.DataSource = rs
End Sub
Private Sub Text1_Change()
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Base.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * from clientes WHERE nombre" & " LIKE'" & Text1 & "%'"
End With
Set DataGrid1.DataSource = rs
End Sub
si no entendiste mucho,tendrias que leer algun manual de ADO y bases de datos..
saludos. MUCHAS GRACIAS AORA SI ENTENDI
SALUDOS |