Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

accesar ado desde excel

14/04/2005 - 01:36 por HECTOR BARAJAS | Informe spam
Ayuda Hacer una pregunta
Alguien me podria decir como accedo a una base de datos de excel con ado.
Escribo este codigo en las declaraciones generales del libro y me saca un
error:
El error es "No se ha definido el tipo definido por el usuario. Alguien me
podria decir que me esta faltando o que estoy haciendo mal en la declaracion
de los objetos.
Option Explicit
Dim CONEXION As ADODB.Connection
Dim REGISTROS As ADODB.RECORDSET

Private Sub Workbook_Open()
Const RUTA As String = "D:\EXCEL2\FACTURACION.MDB"
Set CONEXION = New ADODB.Connection
Set REGISTROS = New ADODB.RECORDSET
With CONEXION
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=D:\EXCEL2\FACTURACION.mdb"
.Open
End With
REGISTROS.Open "select * from ARTICULOS", cnn, adOpenDynamic,
adLockOptimistic
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
14/04/2005 - 01:42 | Informe spam
Hola Hector,

Para poder usar ADO es necesario establecer una referencia a la biblioteca
correspondiente desde tu proyecto VBA. En el Editor VBA ve al menu
Herramientas>Referencias, busca y marca la referencia "Microsoft ActiveX
Data Objects #.# Library" (donde #.# es el numero de la version de la
libreria, p.ej. 2.5, 2,6, 2,7, 2.8 etc., segun tu version de Office). Puede
que este traducido al castellano en tu version - yo trabajo con la version
inglesa.

Saludos,
KL

"HECTOR BARAJAS" wrote in message
news:
Alguien me podria decir como accedo a una base de datos de excel con ado.
Escribo este codigo en las declaraciones generales del libro y me saca un
error:
El error es "No se ha definido el tipo definido por el usuario. Alguien me
podria decir que me esta faltando o que estoy haciendo mal en la
declaracion
de los objetos.
Option Explicit
Dim CONEXION As ADODB.Connection
Dim REGISTROS As ADODB.RECORDSET

Private Sub Workbook_Open()
Const RUTA As String = "D:\EXCEL2\FACTURACION.MDB"
Set CONEXION = New ADODB.Connection
Set REGISTROS = New ADODB.RECORDSET
With CONEXION
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=D:\EXCEL2\FACTURACION.mdb"
.Open
End With
REGISTROS.Open "select * from ARTICULOS", cnn, adOpenDynamic,
adLockOptimistic





Preguntas similares

 

Busqueda sugerida :