consulta con ADO

[erick185]

Hola

Tengo esta consulta en una base de datos hecha con DAO pero necesito implementarla para que funcione con ADO.

'consulta para validar al usuario y password

Código [Seleccionar] Expandir

Private Sub validar()
Dim path As String
Dim consulta As String
path = App.path & "\mantenimiento.mdb"
Set misesion = Workspaces(0)
Set mibd = misesion.OpenDatabase(path)
consulta = "select usuarios.usuario, usuarios.password "
consulta = consulta & "from usuarios WHERE(usuarios.usuario='" & usuario(conexion) & "')  AND (usuarios.password='" & password(conexion) & "')"
Set rs2 = mibd.OpenRecordset(consulta, dbOpenDynaset)
If rs2.EOF = True And rs2.BOF = True Then
    valido = False
Else
    valido = True
End If
rs2.Close
End Sub

De ante mano gracias por su ayuda.

Salu2

[soplo]

Hola

Código [Seleccionar] Expandir

Private Sub validar()
Dim path As String
Dim consulta As String
Dim Cn as adodb.connection, Datos as adodb.recordset

path = App.path & "\mantenimiento.mdb"

set cn = new adodb.connection
cn.open conectionstring, usuario, clave

set Datos=new adodb.recordset
Datos.open "select a,b,c from XXX where ... order by ...",

if datos.eof then
' el recordset está vacío
endif

...

Un saludo