Eduardo,
No me queda claro que error podes llegar a estar teniendo.
Por lo pronto chequea la cadena de conexión con esto, que tendrías que
poerlo en un .vbs
Dim oDataLinks, sRetVal
Set oDataLinks = CreateObject("DataLinks")
On Error Resume Next ' Trap Cancel button
sRetVal = oDataLinks.PromptNew
On Error Goto 0
If Not IsEmpty(sRetVal) Then ' Didn't click Cancel
InputBox "Your Connection String is listed below.", "OLEDB Connection
String", sRetVal
End If
Set oDataLinks = Nothing
Le das doble click y chequea si access responde.
¿El Access tiene permisos en las carpetas que lo contienen?
Eso es algo frecuente, y no necesariamente sea la cadena de conexión.
Si podes, trata de postear el error que te tira, así vemos que se puede
hacer.
Saludos
El 20 de enero de 2009 9:03, Eduardo - Los Tres Cerros Ltda. <
[email protected]> escribió:
> Hola Oscar, el código lo saqué de
> http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/284-login-de-usuario-base-de-dato.htm
>
> Y el error lo tira cuando hace el:
>
>
>
> With Rst_Login
>
> ' Abre el recordset
>
> .Open SQL, C_CADENA
>
>
>
> * *
>
> *Eduardo Acuña
> Jefe de Área Operativa*
>
> Los Tres Cerros Ltda.
> Paraguay 776 Piso 11 (1057)
> CABA Argentina
> 54-011-4312-8810
> [email protected]
> ------------------------------
>
> *De:* [email protected] [mailto:[email protected]] *En nombre de *Oscar
> Onorato
> *Enviado el:* Martes, 20 de Enero de 2009 08:56 a.m.
> *Para:* vbusers List Member
> *Asunto:* [vbusers] Form Login
>
>
>
> Eduardo,
>
>
>
> ¿Que error te tira?
>
> Saludos
>
> 2009/1/19 Eduardo - Los Tres Cerros Ltda. <[email protected]>
>
> Hola a todos, alguien tiene a mano el codigo para crear un form login
> contra una tabla de access?, porque estoy tratando de hacer funcionar un
> ejemplo que encontré en Internet y me da error.
>
> Gracias y saludos!
>
>
>
> *Eduardo Acuña
> Jefe de Área Operativa*
>
> Los Tres Cerros Ltda.
> Paraguay 776 Piso 11 (1057)
> CABA Argentina
> 54-011-4312-8810
> [email protected]
>
>
>
>
>
>
--
Oscar R. Onorato
