Cambiar BD en DAO a ADO
Hola!
Necesito cambiar una aplicación en VB6
Que utiliza un bd en DAO y pasarla a ADO.Lo más principal lo he realizado... Pero me sale un error:
En DAO utiliza el NoMatch y el FindFirst.
¿Cómo cambio estas instrucciones en ADO?
Muchas gracias Maestros!
Necesito cambiar una aplicación en VB6
Que utiliza un bd en DAO y pasarla a ADO.Lo más principal lo he realizado... Pero me sale un error:
En DAO utiliza el NoMatch y el FindFirst.
¿Cómo cambio estas instrucciones en ADO?
Muchas gracias Maestros!
1 Respuesta
Respuesta de yodelmis
1
Para sustituir el nomatch puedes utilizar lo siguiente:
FUNCTION NOMATCH(RS AS ADODB.RECORDSET) AS BOOLEAN
NOMATCH=IIF(RS.EOF AND RS.BOF,TRUE,FALSE)
END FUNCTION
ESTA FUNCTION DEVUELVE TRUE CUANDO NO EXISTEN REGISTROS Y FALSE EN CASO CONTRARIO.
En cuanto al findfirst yo en lo personal no conozco que exista, pero puedes lograrlo con los métodos find y movefirst del recordset.
FUNCTION NOMATCH(RS AS ADODB.RECORDSET) AS BOOLEAN
NOMATCH=IIF(RS.EOF AND RS.BOF,TRUE,FALSE)
END FUNCTION
ESTA FUNCTION DEVUELVE TRUE CUANDO NO EXISTEN REGISTROS Y FALSE EN CASO CONTRARIO.
En cuanto al findfirst yo en lo personal no conozco que exista, pero puedes lograrlo con los métodos find y movefirst del recordset.
