Página 1 de 1

Para Pedro de Leon Rodas

Publicado: Vie Feb 29, 2008 11:31 am
por Mario Hahn
Leí la siguiente consulta tuya en el foro PRO, como no tengo acceso a mismo
te contesto por este
******************************************
Y en xailer lo hago asi
::conexion:Execute("select
donativos.cct,donativos.donado_por,sum(donativos.importe_ef) as
efectivo,donativos.importe_es,concentrad.municipio from donativos INNER JOIN
CONCENTRAD ON donativos.CCT=CONCENTRAD.CCT INTO TABLE C:WINDOWSCONSULTA1
WHERE donativos.CICLO='&CICLO_ESCOLAR' ")
Pero me da un error.
El error quema da dice
SQL:GROUP BY CLAUSE IS MISSING OR INVALID.[#807]
AL PARECER ME ESTA DICIENTO QUE GROUP BY NO ES VALIDO.
PERDON POR MI FALTA DE CONOCIMIENTO DEL INGLES.
LO QUE QUIERO OBTENER CON ESTA CONSULTA ES TOTALES DE LOS CAMPOS IMPORTE_EF
E INPORTE_ES PARA EL CAMPO CCT
DE ANTEMANO, MIL GRACIAS POR TODA AYUDA.
********************************************
Yo estoy haciendo pruebas con una aplicación 100% VFP 9 y estoy tratando de
hacer lo mismo en Xailer,
Formulario por Formulario, a mí también me está costando bastante, encima
acá no tenemos nada cerca,
así que todo lo que estoy tratando de hacer es por consultas de foro y
algunos blogs como el de René Flores,
lo que veo es que en tu consulta estás tratando de llevar el resultado a una
tabla temporal del C:, tenés que olvidarte de eso.
es una instrucción propia de VFP
En Xailer tenes que crear un DataSet y el resultado de tu consulta lo tenés
que enviar al mismo, como se hace en VB
En el ejemplo siguiente creo la Conexión de la siguiente manera:
::oCx:cConnect = "DATABASE=clyf;DRIVER={MySQL ODBC 3.51
Driver};OPTION=3;PWD=" + ::txtPassword:Value + ";PORT=3306;SERVER=" +
::txtIP:Value + ";UID=" + ::txtUsuario:value
El siguiente es un ejemplo de Consulta, envío el resultado a un DataSet
::oOdbcDatosFijos y luego lo manejo como un cursor.
METHOD btnConsultar( oSender ) CLASS TFrmBuscarAsociados
LOCAL buscar, nCampo, I, cSelect
IF ::oRadioNroSocio:lChecked = .T.
nCampo = "nro_socio"
buscar = ::oTxtBuscar:value
::oOdbcDatosFijos := ::oCx:Query("Select * from datsoc where " +
nCampo + " = '" + buscar + "'" )
ELSE
nCampo = "nombre"
buscar := alltrim(::oTxtBuscar:value)
::oOdbcDatosFijos := ::oCx:Query("Select * from datsoc where nombre
like '%" + buscar + "%'" )
ENDIF
::oOdbcDatosFijos:Open()
::oDBBrowse1:oDataSet := ::oOdbcDatosFijos && Un Browse en el
Formulario que me muestra el Dataset (cursor en VFP)
::oOdbcDatosFijos:GoBottom()
RETURN Nil
*******************************************************
Espero que te sea útil.
Saludos.
Mario Hahn
Misiones - Argentina