cargar dato especifico

[william_085]

hola, tengo un programa que me cargaba 2 tablas en un mshflexgrid y en un campo llamado subtotal me mandala informacion del subtotal del dia, pero de un momento hacia aca ya no me hace eso, no se que paso, creo que fue por que instale la actualizacion del vb sp6

lo tengo asi

Dim fecha As Date

' adoPrimaryRS.MoveFirst
Do While i < MSHFlexGrid1.Rows



Dim adoPrimaryRS As New ADODB.Recordset



Set adoPrimaryRS = New ADODB.Recordset

Dim sql As String


adoPrimaryRS.CursorLocation = adUseClient
sql = "Select * From Pedidos Where pedido = '" & MSHFlexGrid1.TextMatrix(i, 2) & "' And Fecha = #" & Date & "#"
adoPrimaryRS.Open sql, cnn, adOpenStatic, adLockOptimistic



If adoPrimaryRS.RecordCount > 0 Then
adoPrimaryRS.MoveFirst
MSHFlexGrid1.TextMatrix(i, 4) = adoPrimaryRS!total
adoPrimaryRS.MoveNext



Else

MSHFlexGrid1.TextMatrix(i, 4) = "0"
MSHFlexGrid1.TextMatrix(0, 4) = "Subtotal"
End If

i = i + 1
Loop

asi me funcionaba pero ahora ya no, no se que paso

[David]

¿Te de algún error o algo así? ¿Cuál es el resultado que te devuelve?

[william_085]

no me da ningun error, solo me marca la columna subtotal con 0

[william_085]

ya quedo resuelto, lo cheque con el depurador, lo heche andar y vi el error, lo que paso fue en la fecha que fue esto en el sql

tenia esto al final

Fecha = #" & Date & "#"

lo cambie por esto.

Fecha = #" & Format(date, "mm/dd/yyyy") & "# "


y asi me lo resolvio, todo gracias al depurador fui checando lo que tomaba cada variable.


gracias