Visual Basic - Error en consulta con función DSum

Life is soft - evento anual de software empresarial
   
Vista:

Error en consulta con función DSum

Publicado por yoami (7 intervenciones) el 31/03/2008 13:34:45
Hola a todos !!!

Cree una consulta en access con la función DSum para calcular el precio total de una venta y me funciona perfectamente pero me da el siguiente error al ejecutarla en visual:

La función DSum no está definida en la expresión.

Desde Visual llamo a las consultas creadas en access con el siguiente código y no se si donde tengo que definir la expresión es aquí.

La consulta en access te pide el codigoventa y con ello te muestra el total de las ventas con ese código por ello asocio el txtCampoVen(0) a la variable.

Código --> Antes de llamar hago un control simple de errores y luego llamo a esta función pasandole el nombre de la consulta.

Private Sub ConsultaVentot(strNombreConsulta)
Dim grdHoja As MSFlexGrid
Dim BD_muebleria As Database
Dim rstresultado As Recordset
Dim qdfconsulta As QueryDef


Set BD_muebleria = AccederBD()

Select Case strNombreConsulta
Case "pretotven"

Dim strcodventot As String

'Asociamos el codventa al campoventa
strcodventot = txtCampoVen(0).Text

'Accedemos a la consulta que fue creada en la BD
Set qdfconsulta = BD_muebleria.QueryDefs _
(strNombreConsulta)

'Pasamos los parametros a la consulta
qdfconsulta.Parameters!codigoventa = strcodventot


End Select

'Almacenamos el resultado en un recorset al
'ejecutar la consulta
Set rstresultado = qdfconsulta.OpenRecordset _
(dbOpenSnapshot)

'Cerramos el objeto utilizado para acceder a
'la consulta
qdfconsulta.Close

frmConsultas.Show


Call LlenarFlexGrid(frmConsultas.grdHoja, rstresultado)

End Sub

GRACIAS POR TODO !!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error en consulta con función DSum

Publicado por lolo (163 intervenciones) el 31/03/2008 19:41:32
La función Dsum no existe en una sentencia SQL de agrupamiento de registros, para ejecutar una consulta de ese tipo tienes que ponerla así:

SELECT Sum(CampoaSumar) As TotalSumado FROM LaTabla
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Error en consulta con función DSum

Publicado por yoami (7 intervenciones) el 02/04/2008 22:54:10
GRACIAS POR TODO !!!

YA LO HE CONSEGUIDO. ASI SI QUE FUNCIONA ; )

GRACIAS DE NUEVO !!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar