11/11/2008, 04:08
|
| Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 2 meses Puntos: 37 | |
| Respuesta: Busqueda SQL en tabla Access desde VBA
Cita:
Iniciado por uen  Me da un error: "El número de argumentos es incorrecto o la asignación de propiedad no es valida"
El código es el siguiente:
Código:
Public Function UserName() As String
Dim rs As Recordset
Dim con As Connection
Dim consulta As String
Dim userWindows As String
userWindows = "g2104"
Set rs = CreateObject("ADODB.RecordSet")
Set con = Application.CurrentDb.Connection
rs.OpenRecordset "SELECT txt_login, txt_password FROM uyc_multirriesgos_comercios WHERE txt_cxguser ='" & userWindows & "'", bd, adOpenStatic, adLockReadOnly
Etiqueta96.Caption = rs.Fields(0)
Etiqueta97.Caption = rs.Fields(1)
End Function
Decir que trabajo con VBA en Access97, y alguna de las funciones/propiedades no me aparecen como "rs.open".
Muchas grácias! Aquí estás abriendo el recordset con una conexión que al parecer no existe: rs.OpenRecordset "SELECT txt_login, txt_password FROM uyc_multirriesgos_comercios WHERE txt_cxguser ='" & userWindows & "'", bd, adOpenStatic, adLockReadOnly
Inténtalo así rs.OpenRecordset "SELECT txt_login, txt_password FROM uyc_multirriesgos_comercios WHERE txt_cxguser ='" & userWindows & "'", con, adOpenStatic, adLockReadOnly  |