query en access2000
Publicado por jose (128 intervenciones) el 14/12/2002 10:46:42
Hize un query en access2000 y luego me fui a view sql view y copie las intrucciones a mi codigo en visual basic y lo retoque, en access2000 me funciona pero en visual basic 6.0 sp5 no funciona.
me quedo asi,
Set rs0 = New ADODB.Recordset
sql$ = "SELECT PDAT01_C.cia, PDAT01_C.division, PDAT01_C.mes, PDAT01_C.ano,PDAT01_C.fecha, PDAT01_C.no_doc, PDAT01_C.factordolar, PDAT01_C.concepto, Sum(PDAT01_D.debe) AS SumOfdebe, Sum(PDAT01_D.haber) AS SumOfhaber "
sql$ = sql$ & "FROM PDAT01_C INNER JOIN PDAT01_D ON (PDAT01_C.cia = PDAT01_D.cia) AND (PDAT01_C.division = PDAT01_D.division) AND (PDAT01_C.nopda = PDAT01_D.nopda) AND (PDAT01_C.no_doc = PDAT01_D.no_doc) AND (PDAT01_C.fecha = PDAT01_D.fecha) "
sql$ = sql$ & "GROUP BY PDAT01_C.cia, PDAT01_C.division, PDAT01_C.mes, PDAT01_C.ano, PDAT01_C.fecha, PDAT01_C.no_doc, PDAT01_C.factordolar, PDAT01_C.concepto "
sql$ = sql$ & " Having (((PDAT01_C.cia) = mcia) And ((PDAT01_C.division) = mdivision) And ((PDAT01_C.mes) = mmes) And ((PDAT01_C.ano) = mano)) "
sql$ = sql$ & " ORDER BY PDAT01_C.fecha , PDAT01_C.no_doc;"
rs0.Open sql, Cnn, adOpenDynamic, adLockOptimistic, adOpenKeyset
y me marcar error al correr la rs0.open sql , me dice que le hacen falta values.
lo campos de seleccion que son variables de memoria son mcia,mdivision, mmes, mmes me posicione
sonbre ellos con el mouese y todos vienen llenos con "001", "001", "12", "2002" todos son textos
igual que en la tablas son textos.
me quedo asi,
Set rs0 = New ADODB.Recordset
sql$ = "SELECT PDAT01_C.cia, PDAT01_C.division, PDAT01_C.mes, PDAT01_C.ano,PDAT01_C.fecha, PDAT01_C.no_doc, PDAT01_C.factordolar, PDAT01_C.concepto, Sum(PDAT01_D.debe) AS SumOfdebe, Sum(PDAT01_D.haber) AS SumOfhaber "
sql$ = sql$ & "FROM PDAT01_C INNER JOIN PDAT01_D ON (PDAT01_C.cia = PDAT01_D.cia) AND (PDAT01_C.division = PDAT01_D.division) AND (PDAT01_C.nopda = PDAT01_D.nopda) AND (PDAT01_C.no_doc = PDAT01_D.no_doc) AND (PDAT01_C.fecha = PDAT01_D.fecha) "
sql$ = sql$ & "GROUP BY PDAT01_C.cia, PDAT01_C.division, PDAT01_C.mes, PDAT01_C.ano, PDAT01_C.fecha, PDAT01_C.no_doc, PDAT01_C.factordolar, PDAT01_C.concepto "
sql$ = sql$ & " Having (((PDAT01_C.cia) = mcia) And ((PDAT01_C.division) = mdivision) And ((PDAT01_C.mes) = mmes) And ((PDAT01_C.ano) = mano)) "
sql$ = sql$ & " ORDER BY PDAT01_C.fecha , PDAT01_C.no_doc;"
rs0.Open sql, Cnn, adOpenDynamic, adLockOptimistic, adOpenKeyset
y me marcar error al correr la rs0.open sql , me dice que le hacen falta values.
lo campos de seleccion que son variables de memoria son mcia,mdivision, mmes, mmes me posicione
sonbre ellos con el mouese y todos vienen llenos con "001", "001", "12", "2002" todos son textos
igual que en la tablas son textos.
Valora esta pregunta
0