English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
Todas las categorías

2006-11-07 02:49:30 · 2 respuestas · pregunta de flaca 1 en Ordenadores e Internet Software

2 respuestas

Espero que esta informacion te sea de mucha ayuda:

La biblioteca de ADO no permite vincular una hoja de cálculo Excel a una base de datos Access, para ello tenemos que ayudarnos de la biblioteca «Microsoft ADO Ext. 2.7 for DLL and Security», más conocida por ADOX, la cual es una extensión de los objetos y del modelo de programación de ADO. Por tanto, en nuestro proyecto no hay que olvidarse hacer referencia a la citada biblioteca.

El siguiente ejemplo, muestra como vincular un rango con nombre de una hoja de cálculo Excel, a una base de datos Access 2000:

Public Sub LinkExcelSheetWithADO

Dim cnn As ADODB.Connection
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table

' Establezco la conexión con la base de datos actual
Set cnn = New ADODB.Connection
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis documentos\Bd1.mdb;"
.Open
End With

' Abro un catálogo
Set cat = New ADOX.Catalog
cat.ActiveConnection = cnn

' Creo la nueva tabla
Set tbl = New ADOX.Table
tbl.Name = "Tabla Vinculada de Excel"
Set tbl.ParentCatalog = cat

' Establezco las propiedades para crear el vínculo
With tbl
.Properties("Jet OLEDB:Create Link") = True
.Properties("Jet OLEDB:Link Provider String") = "Excel 8.0;DATABASE=" & _
"C:\Mis documentos\Libro1.xls;HDR=Yes"
.Properties("Jet OLEDB:Remote Table Name") = "Nombre_Rango"
End With

' Añado la tabla a la colección 'Tables'
cat.Tables.Append tbl

End Sub

2006-11-07 02:57:46 · answer #1 · answered by JuanJose E 3 · 1 0

intentalo con weld dry quick set y veras que no te falla

2006-11-07 02:54:26 · answer #2 · answered by solo_y_busco 6 · 0 0

fedest.com, questions and answers