Buen día.
Espero y puedan ayudarme, realizo una consulta a tablas de visual foxpro en una macro de excel, pero he notado que esta me recupera datos incompletos al momento de ejecutarlo, comparo las dos líneas de consulta y en microsoft visual foxpro si me arroja todos los datos y es exactamente la misma línea que uso en la macro para la consulta.
La conexión es de esta manera:
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
strConnection = "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
Dir_DB & _
"Exclusive=No;"
conn.Open strConnection
sSQL = "SELECT V.CVALORCL01,SUM(M.CNETO) FROM MGW10020 AS V INNER JOIN MGW10005 AS P ON V.CIDVALOR01=P.CIDVALOR01 INNER JOIN MGW10010 AS M ON P.CIDPRODU01=M.CIDPRODU01 INNER JOIN MGW10008 AS D ON M.CIDDOCUM01=D.CIDDOCUM01 WHERE D.CIDDOCUM02=1 AND D.CIDMONEDA=2 AND M.CFECHA>=CTOD('" & FECHADE & "') AND M.CFECHA<CTOD('" & FECHAHASTA & "') GROUP BY V.CVALORCL01"
Set rs = conn.Execute(sSQL, , 1)
****************************************************
¿A alguien le ha pasado algo similar? Espero y puedan ayudarme.
Gracias de antemano.
Saludos.
Espero y puedan ayudarme, realizo una consulta a tablas de visual foxpro en una macro de excel, pero he notado que esta me recupera datos incompletos al momento de ejecutarlo, comparo las dos líneas de consulta y en microsoft visual foxpro si me arroja todos los datos y es exactamente la misma línea que uso en la macro para la consulta.
La conexión es de esta manera:
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
strConnection = "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
Dir_DB & _
"Exclusive=No;"
conn.Open strConnection
sSQL = "SELECT V.CVALORCL01,SUM(M.CNETO) FROM MGW10020 AS V INNER JOIN MGW10005 AS P ON V.CIDVALOR01=P.CIDVALOR01 INNER JOIN MGW10010 AS M ON P.CIDPRODU01=M.CIDPRODU01 INNER JOIN MGW10008 AS D ON M.CIDDOCUM01=D.CIDDOCUM01 WHERE D.CIDDOCUM02=1 AND D.CIDMONEDA=2 AND M.CFECHA>=CTOD('" & FECHADE & "') AND M.CFECHA<CTOD('" & FECHAHASTA & "') GROUP BY V.CVALORCL01"
Set rs = conn.Execute(sSQL, , 1)
****************************************************
¿A alguien le ha pasado algo similar? Espero y puedan ayudarme.
Gracias de antemano.
Saludos.