sql

[ozelu]

hola a todos, queria hacer una pregunta, tengo una BD llamada regalos.mdb y una tabla dentro que es Caja, quiero seleccionar los distintos totales de la tabla Caja que sean igual al dia que esta corriendo en el ordenador, es para hacer una Z diaria de la Caja, el codigo que pongo es el siguiente:

Dim base as database
Dim rs as recordset
dim dia as date
dia=date
set base=opendatabase("C:\regalos.mdb")
set rs=base.openrecordset("Select distinct total from Caja where fecha=dia")


y me aparece el siguiente error: "Pocos parametros. Se esperaba 1" y me marca la sentencia sql como error. Gracias de antemano.

[Heimish2000]

El problema es que estas poniendo dia y tu lo que quieres es el valor de la variable dia, o sea, hacer algo así:

Código vb:

set rs=base.openrecordset("Select distinct total from Caja where fecha=" & dia)
 

[ozelu]

Correcto asi me ha funcionado perfectamente, muchisimas gracias por tu aportacion gracias de verdad

[ozelu]

Perdona que te vuelva a molestar jaj, he puesto el siguiente codigo:

Private Sub Option1_Click()
Dim base As Database
Dim rs As Recordset
Dim dia As Date
dia = Date
Set base = OpenDatabase("C:\regalos.mdb")
Set rs = base.OpenRecordset("Select distinct nticket,total,formapago from Caja where fecha=" & dia)
While Not rs.EOF
total = rs!total + total
rs.MoveNext
Wend
MsgBox (total)
End Sub

pero cuando carga el recordset, ¿porque me dice que rs.eof es true?, se sale del while y no entra nunca.

[lokoman]

Hola!!
Verifica que lo que tienes en la variable DIA está en el campo FECHA de la BD, si está entonces pon el recordset asi:

Código vb:

Do While rs.EOF=false
   total = rs!total + total
   rs.MoveNext
   Doevents
Loop
 

Nos cuentas!!

[Heimish2000]

Pon un punto de parada antes de abrir el recordset, comprueba que query estas mandando a base de datos y lanzala tu a mano en la base de datos a ver si te devuelve registros.