error al conectar base de datos (con contraseña) por adodc

[ernestoelunico]

hola tengo un problema y es que estoy tratando de conectar la base de datos de access 2003 con un control adod1
el cual me ayuda para visualizar una tabla en un control data grid ya lo tenia conectado sin codigo pero para mejorar lo hice por codigo de la siguiente forma pero ahora le inclui una contraseña y me da problemas

Dim clave As Variant

Private Sub Combo1_Click()
DataGrid1.Caption = Combo1.text

If Combo1.text = "Compras" Then
Adodc1.RecordSource = Compra
frmconsultatablas.Caption = "Consulta de Compras"

End If
If Combo1.text = "Ventas" Then

Adodc1.RecordSource = ventas
frmconsultatablas.Caption = "Consulta de Ventas"
End If
End Sub

Private Sub Command1_Click()
Unload frmconsultatablas
FrmConsulta.Show
End Sub

Private Sub Form_Load()
clave = 123
DataGrid1.ClearFields
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                          "Data Source=" & App.Path & "\Mi empresa\Registros.mdb" & "Jet OLEDB:Database Password=" & clave



End Sub

[vlad]

http://www.lawebdelprogramador.com/temas/accesodb.php#13

Ahi dice "Abrir Base de Datos de Access 2000 Sin PassWord para asociarla con un Control ADO", pero solo esta equivocado el titulo, esa es la forma correcta con PassWord


Otra cosa: es muy mala practica usar variables Variant sin necesidad. Clave debe ser As String, y el 123 apropiadamente encerrado entre " y "

[ernestoelunico]

ok muchas gracias funciono

[ernestoelunico]

ok con relacion a este tema me surgio una nueva dificulta es la siguiente yo quiero cargar en el formulario unos valores de una base de datos pero no los carga si lo hago manual si se puede pero lo quiero hacer por codigo

Dim Clave As String
Clave = "pass"


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\Mi empresa\registros.mdb" & ";" _
& "Persist Security Info=False;" _
& "Jet OLEDB:Database Password=" & Clave
Adodc1.Mode = adModeRead
Adodc1.RecordSource = "datos"
Adodc1.Refresh
Label30.DataField = empresa
Label31.DataField = fecha
Label38.DataField = representante
Label39.DataField = contador
Label40.DataField = auditor

[vlad]

sin ninguna coma no estoy seguro de entenderte bien.

¿Es:
"no los carga si lo hago manual; si se puede, pero lo quiero hacer por codigo "

o:
"no los carga, si lo hago manual si se puede, pero lo quiero hacer por codigo"
?

En todo caso, basandome en el código asumo que el error es que le has asignado el campo de la tabla a cada label (DataField) pero no veo que le hayas asignado la tabla de donde tienen que tomar ese campo (DataSource)

[ernestoelunico]

tenes razon  le asigne la tabla al adodc pero no a los label gracias se me olvida por codigo y como por propiedades no se activan los campos sino tenes elgida la tabla no se te puede olvidar muchas gracias

probando luego comento si hay otra duda

[ernestoelunico]

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\Mi empresa\registros.mdb" & ";" _
& "Persist Security Info=False;" _
& "Jet OLEDB:Database Password=" & Clave
Adodc1.Mode = adModeRead
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = datos
Adodc1.Refresh
Label30.DataSource = Adodc1
Label30.DataField = empresa
Label31.DataSource = Adodc1
Label31.DataField = Fecha
Label38.DataSource = Adodc1
Label38.DataField = representante
Label39.DataSource = Adodc1
Label39.DataField = contador
Label40.DataSource = Adodc1
Label40.DataField = Auditor
Adodc1.Refresh

bueno ya hice los cambios pero siempre me da dos errores

los siguientes
1. adodc1
error de autendificacion


2. error de compilacion no se encontro el metodo o miembro de datos.

me marca esto como error

Label30.DataSource = Adodc1

que sera???
o puedo cambiar el adodc por otra cosa pero que me cambie los datos en los label1. o tengo que poner text en vez de label

[vlad]

1. ¿En que momento te da eso?


2. El datasource tiene que ser asignado con set (porque estas asignando un objeto, no un valor).

Set Label30.DataSource = Adodc1

[ernestoelunico]

los dos errores mensionados dan cuando digamos del form1 al precionar un boton cierro el form1. y llamamo al form2.

estas instrucciones se encuentran en la rutina privatesub form_load()

saludos

[vlad]

  a vaya...

La verdad quizas no pregunte bien, mas bien me refiero a cual es el ultimo codigo que se ejecuta antes del "error de autendificacion"?

El segundo problema tiene que solventarse con lo del set.

[ernestoelunico]

eso es lo primero que hay en el codigo es decir lo primero que debe de cargar mi formulario antes de empezar a trabajar

este es todo el codigo

Private Sub Form_Load()
f = 0
Dim Clave As String
Clave = "pass"
ruta = App.Path & "\Mi empresa\registros.mdb "

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\Mi empresa\registros.mdb" & ";" _
& "Persist Security Info=False;" _
& "Jet OLEDB:Database Password=" & Clave
Adodc1.Mode = adModeRead
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = datos
Adodc1.Refresh
Label30.DataSource = Adodc1
Label30.DataField = empresa
Label31.DataSource = Adodc1
Label31.DataField = Fecha
Label38.DataSource = Adodc1
Label38.DataField = representante
Label39.DataSource = Adodc1
Label39.DataField = contador
Label40.DataSource = Adodc1
Label40.DataField = auditor
Adodc1.Refresh
End Sub

durante el primer error no se detiene solo hasta el segundo que me pide que lo corrija asi que creo que deberia de corregir el primero para solucionar el segundo por que los label dependen que se cargue bien el adodc1 para que se carguen los datos en los caption

[ernestoelunico]

este error lo genera visual basic en un archivo txt lo coloco para opiniones

Línea 47: la clase MSAdodcLib.Adodc del control Adodc1 no era una clase de control cargada.

[pop486]

por que no solo llamas un recordset y le cambias los caption a los labels.?? no te sale mejor eso..?? es mejor que usar un adodc o al menos eso creo yo...