hola!!
tengo una base de datos en access 2003 que uso en el trabajo y queria pasarlo a access 2007 asi puedo usar la opcion de "adjuntar archivo" y poder guardar de forma mas eficiente imagenes en la tabla.
el problema que al pasarlo al access 2007 no me funciona mi precedimiento para buscar datos en la tabla y volcarlos en un excell...
que estoy haciendo mal si asi me funcionaba en access 2003... ahora con el formato de access 2007 me dice que el archivo no es reconocido como una base de datos (1.accdb)
MUCHAS GRACIAS POR SU AYUDA!!
Sub BUSCAR_ARTICULO()
'dimensiones
Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim strDB, strSQL As String
Dim strTabla As String
Dim lngTablas As Long
'archivo Access
strDB = "C:\Documents and Settings\ale\Escritorio\base de datos\articulos.accdb"
'nombre de la tabla del archivo Access
strTabla = "ARTICULOS"
'crear la conexión
Set datConnection = New ADODB.Connection
Set recSet = New ADODB.Recordset
datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & strDB & ";"
'consulta SQL
strSQL = "SELECT * FROM ARTIC " & _
"WHERE ARTICULO = '" & Worksheets("Hoja1").Range("G6") & "' ;"
recSet.Open strSQL, datConnection
If recSet.BOF = False And recSet.EOF = False Then
'copiar datos a la hoja
ActiveSheet.[D13] = recSet("LIBRAS")
ActiveSheet.[D12] = recSet("MATERIAL")
ActiveSheet.[G20] = recSet("CIERRE")
'desconectar
recSet.Close
Set recSet = Nothing
datConnection.Close
Set datConnection = Nothing
End Sub
