error al conectar base de datos por adodc vb6

[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 = "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

[Avellaneda]

Iniciado por 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

Hola, por lo que veo te falta el separador de punto y coma después del nombre de la BD:

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Mi empresa\Registros.mdb;Jet OLEDB:Database Password=" & clave

y una recomendación que hago a menudo: No utilizar variables innecesarias, lo anterior funciona igual así:

...;Jet OLEDB:Database Password=123"

[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. yo lo estoy haciendo por codigo
y presenta los siguientes errores
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???
aqui les dejo 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

[Avellaneda]

Iniciado por 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. yo lo estoy haciendo por codigo
y presenta los siguientes errores
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???
aqui les dejo el codigo

- Si datos es el nombre de la tabla lo tienes que poner entre comillas:
Adodc1.RecordSource = "datos"

- Tienes que asignar la referencia a la propiedad DataSource:
Set Label30.DataSource = Adodc1
(igual para el resto de los Labels)

- Al igual que el nombre de la tabla, los campos se deben encerrar entre comillas:
Label30.DataField = "empresa"
(igual para el resto de los labels).

Creo que esos son todos los problemas.

Un saludo

[ernestoelunico]

ya les quite las comillas pero persiste el problema y los de set ya los agregue ahora me da un error en la clausula form y me marca la ultima linea del codigo Adodc1.Refresh
me abre equivocado donde la debo de colocar

Error de Automatización (Error 440)

[Avellaneda]

Iniciado por ernestoelunico

ya les quite las comillas pero persiste el problema y los de set ya los agregue ahora me da un error en la clausula form y me marca la ultima linea del codigo Adodc1.Refresh
me abre equivocado donde la debo de colocar

Error de Automatización (Error 440)

No era 'quitar' sino `poner' comillas

¿En la clausula 'form' o 'FROM'?

¿'datos' es el nombre de una tabla, o una consulta? Si es lo último, ¿cómo y dónde la pones?