hola grupo! tengo esta consulta odbc pero al ejecutar sale " error general de
odbc" que podra ser?
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Trabajo
FRA\APARTADO\infcomer\Tablas Marzo\bck marzo.mdb;DefaultDir=C:\Trabajo
FRA\APARTADO\infco" _
), Array( _
"mer\Tablas Marzo;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;") _
), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT CAR_MATR, CAR_NFAC, CIUD_DEPTO, CIUD_MCPIO, CIUD_POBL,
puntcons01.USR_NOFA, USO_COD, USO_CLUSO, CAR_FEMI, LP_TIPO,
puntcons01.USR_CNS1, CAR_1, CAR_5, CAR_9, CAR_25, CAR_3, puntcons01.USR_DIRR
FROM " _
, _
"CARGOS CARGOS, CIUDADES CIUDADES, LE" _
, _
"IPRO LEIPRO, puntcons01 puntcons01, USO USO WHERE CAR_MATR =
puntcons01.USR_" _
, _
"MATR AND CAR_MATR =PLA_MATR AND puntcons01.USR_CATE =USO_INFCATE
and puntcons01.USR_ESTR =USO_INFEST AND puntcons01.USR_COD1 = LP_COD1 AND
CAR_CIUD = CIUD_COD AND ((CAR_FEMI>={d '" & HOLA & "'}) AND (CAR_FEMI<" _
, "={d '" & CHAO & "'}))")
.Name = "Consulta desde MS Access Database"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
muchas gracias por su tiempo y conoimiento ;D
Leer las respuestas