REDES CON BASE DE DATOS
Publicado por Emanuel Nogueiras (153 intervenciones) el 08/02/2003 19:41:11
Hola, ya se que no es quiza la mejor forma, pero me funciona, jeje...
Lo que hago es esto : (fijate en la ruta que le doy al abrir la base de datos)
Dim datos As Database
Dim Aux As Recordset
Set datos = OpenDatabase("\\station01\demo\pruebas.mdb")
Set Aux = datos.OpenRecordset("select * from amigos")
Text1.Text = Aux!nombre
Text2.Text = Aux!apellido
Screen.MousePointer = vbDefault
MsgBox "OK"
Esto me funciona perfectamente, pero mientras que tengo la carpeta demo que esta en la maquina "station01" compartida en red sin contraseña, al agregarle la contraseña ya no puedo acceder...
Lo que quiero saber es como le digo a VB que ponga la contraseña para acceder ??????
Por favor, espero que me puedas ayudar !
Lo que hago es esto : (fijate en la ruta que le doy al abrir la base de datos)
Dim datos As Database
Dim Aux As Recordset
Set datos = OpenDatabase("\\station01\demo\pruebas.mdb")
Set Aux = datos.OpenRecordset("select * from amigos")
Text1.Text = Aux!nombre
Text2.Text = Aux!apellido
Screen.MousePointer = vbDefault
MsgBox "OK"
Esto me funciona perfectamente, pero mientras que tengo la carpeta demo que esta en la maquina "station01" compartida en red sin contraseña, al agregarle la contraseña ya no puedo acceder...
Lo que quiero saber es como le digo a VB que ponga la contraseña para acceder ??????
Por favor, espero que me puedas ayudar !
Valora esta pregunta
0