Visual Basic - Error al no encontrar la fecha(nul)

Life is soft - evento anual de software empresarial
   
Vista:

Error al no encontrar la fecha(nul)

Publicado por Pablo (2 intervenciones) el 03/06/2015 23:25:38
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim ConexBD As String
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset
 
ConexBD = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\System\TIENDA.mdb; Jet OLEDB:Database"
 
 
 
'Crear los objetos
 
Set BD = New ADODB.Connection
Set rs = New ADODB.Recordset
 
'conecto con la base de datos
BD.Open ConexBD
'SELECT SUM(unidades) AS total FROM pedidos WHERE fecha=Now();
 
rs.Open "SELECT sum(COSTO) as TOTAL FROM VENTAS where FECHADEVENTA=date()   ", BD, adOpenDynamic, adLockOptimistic
 
If rs.State <= 1 Then
MsgBox "No se registraron ventas hoy", 16, "Atenciòn"
Else
MsgBox rs.Fields("TOTAL")""Me dice que rs.fields es null cuando no hay ventas""
 
End If
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
Imágen de perfil de Andres Leonardo

Error al no encontrar la fecha(nul)

Publicado por Andres Leonardo (699 intervenciones) el 04/06/2015 16:06:21
Y si mejor preguntas asi
1
2
3
4
5
6
7
8
9
'el recorset se llama RSIO en tu ejemplo cambialo
    If Rsio.EOF = True And Rsio.BOF = True Then
    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"
    Rsio.Close
    Exit Sub
   else
MsgBox rs.Fields(0)  ""Me dice que rs.fields es null cuando no hay ventas""
 
    End If
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
Imágen de perfil de Wilfredo Patricio Castillo

Error al no encontrar la fecha(nul)

Haber si aún recuerdo algo de VB6.0, ya que no lo uso mas de 10 años

If Not IsNull(rs.fields(0) then
¿aqui va tu código
end if

Saludos
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

Error al no encontrar la fecha(nul)

Publicado por Pablo nek419@hotmail.com (2 intervenciones) el 05/06/2015 03:31:07
YA lo solucione solo puse

if isnull(rs.fields("TOTAL"))=True then
msgbox"No se registraron ventas hoy",16,"
else
msgbox rs.Fields("TOTAL")
endif
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