** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Visual Basic Clásico (VB3...VB6)
  Mensajes nuevos Mensajes nuevos RSS - Poner contraseña
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoPoner contraseña

 Responder Responder
Autor
Mensaje
acer Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Enero/2010
Localización: España
Estado: Sin conexión
Puntos: 8
Enlace directo a este mensaje Tema: Poner contraseña
    Enviado: 08/Agosto/2012 a las 18:23
Buenas tardes, tengo un atasco y no se como resolverlo.
Tengo una aplicación en vb y desde ella visualizo imágenes guardadas en una base de datos, mi problema es que cuando a la base de datos le pongo contraseña ya no funciona, alguien sabría decirme donde poner la contraseña para que me funcione...

Este es parte del código que uso, gracias anticipadas... contraseña es "Elvis"

dbname = App.Path & "\NabyDB.mdb"
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & _
    ";Persist Security Info=False"

    Set dbConn = New ADODB.Connection
    dbConn.ConnectionString = ConnStr
    dbConn.Open

    Sql = "SELECT * FROM tbl_Images"
    Set dbRec = New ADODB.Recordset
    dbRec.Open Sql, dbConn, adOpenStatic, adLockOptimistic

    dbRec.AddNew
    dbRec.Fields("ImageName").Value = txtImageName.Text
    dbRec.Fields("category").Value = List1.Text
    dbRec.Fields("ImageFile").AppendChunk dataBytes
    dbRec.Update
    dbRec.UpdateBatch adAffectAllChapters

    dbRec.Close
    dbConn.Close

    Me.MousePointer = vbDefault


Arriba
Emilio Ver desplegable
Administrador
Administrador

Santander

Unido: 08/Agosto/2004
Localización: España
Estado: Sin conexión
Puntos: 18792
Enlace directo a este mensaje Enviado: 08/Agosto/2012 a las 18:29
Hola!
 
si es VB6 es de suponer que no será Access 2007 o superior:
 
Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/
Arriba
acer Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Enero/2010
Localización: España
Estado: Sin conexión
Puntos: 8
Enlace directo a este mensaje Enviado: 08/Agosto/2012 a las 18:44
gracias por responder, es access 2000.
perdona pero no se donde poner la contraseña ni donde va
Arriba
Emilio Ver desplegable
Administrador
Administrador

Santander

Unido: 08/Agosto/2004
Localización: España
Estado: Sin conexión
Puntos: 18792
Enlace directo a este mensaje Enviado: 08/Agosto/2012 a las 18:50

Ese es el problema de copiar y pegar y no asimilar lo que se hace
 

tu código empieza con:

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & _
 ";Persist Security Info=False"

 
Comparalo con lo que dice en el enlace que te he pasado y lo podrás resolver.
Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/
Arriba
acer Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Enero/2010
Localización: España
Estado: Sin conexión
Puntos: 8
Enlace directo a este mensaje Enviado: 12/Agosto/2012 a las 18:10
Gracias por responder, ya me funciona y esta fue la linea en concreto

dbname = App.Path & "\NabyDB.mdb;Jet OLEDB:Database Password=elvis;"

Gracias de nuevo, se puede cerrar el hilo
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable