error general odcb

07/06/2005 - 21:14 por fredy | Informe spam
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

Preguntas similare

Leer las respuestas

#1 fredy
07/06/2005 - 22:47 | Informe spam
hola ya encontre el error ahora tengo la instruccion asi ver al final de la
exposicion):... pero tengo una nueva pregunta si la instruccion :
"((LECTURAS.EVL_FLE>={d '" & LECTURA & "'} And LECTURAS.EVL_FLE<={d '" &
HOLA & "'}))")
no encuentra registro coincidente porque me anula todo el registro?. Haber
lo que quiero decir es que de la tabla lecturas debo extraer datos de tres
campos y el criterio de extraccion es la linea de codigo que expuse
anteriormente; que debo hacer para que en caso de no cumplir el criterio es
decir que un registro no cumpla con el campo evl_fle entre las fechas
"lectura" y "hola" que simplemente coloque "", lo que pasa es que existen
+-3000 de 10000 registros que no cumplen con el criterio entonces la consulta
sale solo con 7000 registros yo quisiera que salieran los 10000 y que en los
casos en que los criterios para el campo evl_fle de la tabla lecturas no se
cumpla se coloque ""

muchas gracias por su colaboracion!!!

.CommandText = Array( _
"SELECT CAR_MATR, CAR_NFAC, CIUD_DEPTO, CIUD_MCPIO, CIUD_POBL,
puntcons01.USR_NOFA, USO_COD, USO_CLUSO, EVL_DIASFACT, " _
, _
"CAR_FEMI, EVL_FLE, LP_TIPO, EVL_LECT, reg_ok_pla.pla_CNS1, CAR_1,
CAR_5, CAR_9, CAR_25, CAR_3, puntcons01.USR_DIRR FROM " _
, _
"CARGOS CARGOS,LECTURAS LECTURAS, CIUDADES CIUDADES, LE" _
, _
"IPRO LEIPRO, puntcons01 puntcons01, reg_ok_pla reg_ok_pla, USO USO
WHERE CAR_MATR = puntcons01.USR_" _
, _
"MATR AND CAR_MATR = reg_ok_pla.pla_matr and CAR_MATR=EVL_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 & "'}))
and " _
, _
"((pla_FEMI>={d '" & HOLA & "'}) AND (pla_FEMI<={d '" & CHAO &
"'}))AND " _
, _
"((LECTURAS.EVL_FLE>={d '" & LECTURA & "'} And LECTURAS.EVL_FLE<={d
'" & HOLA & "'}))")
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida