Foros del Web - hacer busquedas con adodc

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - hacer busquedas con adodc (http://www.forosdelweb.com/f69/hacer-busquedas-con-adodc-355210/)

hacer busquedas con adodc

Hola

Hasta ahora he utilizado siembre contral data para el acceso a B.D, ahora he empezado a utilizar adodc, pero no se como se hacen las busquedas con este sistema.
Con control data hacia las busquedas de la siguiente manera:

buscar = "fecha like '" & Calendar1.Value & "'"
data1.recordset.findfirst buscar

¿Como se hacen las busquedas con adodc?

Gracias de antemano.

es muy sencillo pero te ayudará para empesar...

Código:

buscando = InputBox("Introduzca el N° a buscar", "BUSQUEDA DE lo  q sea", 1)

   With Adodc1

   .Recordset.MoveFirst

   While Not .Recordset.EOF

   If .Recordset.Fields!campo1 = buscando Then

       Exit Sub

    Else

        .Recordset.MoveNext

    End If

   Wend

saludos...:adios:
nos vmos...

En realidad es mas facil de lo que dicelop7

adodc1.recorset.movefirst "Campo1 = " & buscando
Con esto te para en el registro, en el caso que no lo encuentra, controla la variable EOF.

Nota: No recuerdo bien, SI no es movefirst, pon solo find. Suerte

mira amigo para realizar una busqueda con el control ADODC es mas facil y mas rapido con SQL ya que con el codigo que tienes si funciona pero con una base de datos con poca informacion ya que con mas informacion se tardaria en buscar el registro mira si haces esto te puede resultar:

criterio = "Select * From folios Where (FOLIO like '" & Text1.Text & "%')"
Adodc1.RecordSource = criterio
Adodc1.Refresh

entonces te explico este codigo: mi tabla se llama folios.
FOLIO es un campo de mi base de datos y el codigo va a comparar el texto que escribiste en text1 con el campo FOLIO pero tienes que insertar el control datagrid si no, no te va a funcionar y el datagrid lo relacionas con tu control adodc en donde dice datasource le vas a escoger el control adodc1 por ejemplo