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
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
Hola
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