Valen
26 de Agosto del 2003

hola que tal, estoy llevando una busqueda de registros y utilizo un recordset con ado. En mi anterior programa utilizaba dao pero lei y he visto que ado es mucho mejor. Con dao utilizaba el metodo findfisrt y con ado utilizo el metodo find. Mi problema esque si hace una busqueda el programa y no encuentra ningun registro con los criterios que yo le especifo antes con dao utilizaba el metodo nomatch y me iba bien, pero que tengo que utilizar con ado para saber si esta vacio el recordset. Utilize lo siguiente;
if rst.bof and rst.eof then
msgbox "no hay registros"
end if

pero esto no se porque no me funciona y no me sale el mensaje de "no hay registros", me pueden ayudar. Gracias.

Baudy
26 de Agosto del 2003

Estoy tambien comenzando en ADO y te mando un codigo que utilizo para la busqueda:

Dim Cnn as ADODDB.Connection

Dim Recodset as ADODB.Recordset

Cnn.Open "provider= microsoft.jet.oledb.4.0;" & _
"data source = C:Windowsescritoriopantallasdel sistemaTABLA.mdb;" & _
"Persist security info=false"

Set Recordset = Cnn.Execute("Select * from TABLA Where CRITERIO = ' " & TEXT1 & " ' ")

If Recordset.EOF And Recordset.BOF Then
MsgBox "No existe el registro "
Exit Sub
End If


espero que te sirva...


Saludos. >>((((°< . o 0 O