Tabla Sin Datos
Publicado por Lizette (1 intervención) el 18/04/2008 22:41:13
Hola espero y me puedan ayudar con este problema que tengo, el manejador de base de datos que estoy utilizando es SQL Server y programando en VB.
El Problema es el siguiente: en vb al momento de programar necesito la suma de un cierto campo de la TBL_ALUACTIVIDAD lo que utilizo en SUM, en esta parte no hay problema, el problema es que si esta tabla no tiene registro de ese campo me marca error.
Es decir dependiendo el codigo del alumno que me mande el total de horas que lleva, pero si un alumno no tiene horas como le hago para que en esa parte no me mande el error.... si me puedieran ayudar se los agradeceria por favor!! Que tengan un Buen Dia!!
thrsprog = 0
NALU = Len(MSF1.TextMatrix(MSF1.RowSel, 0))
IPROGR = Len(Text9)
strSQL = "select SUM(HORAS) as total FROM TBL_ALUACTIVIDAD WHERE LEFT (ALU_IDE, " & NALU & ")= '" & Val(MSF1.TextMatrix(MSF1.RowSel, 0)) & "'AND LEFT(CLAVE_PROGRAMA, " & IPROGR & ")='" & Val(Text9) & "'"
Call Leer
If Reg.EOF Then
thrsprog = thrspro
Else
Reg.MoveLast
thrsprog = Reg.Fields("total")
End If
Reg.Close
BDatos.Close
Text11 = Val(thrsprog)
El Problema es el siguiente: en vb al momento de programar necesito la suma de un cierto campo de la TBL_ALUACTIVIDAD lo que utilizo en SUM, en esta parte no hay problema, el problema es que si esta tabla no tiene registro de ese campo me marca error.
Es decir dependiendo el codigo del alumno que me mande el total de horas que lleva, pero si un alumno no tiene horas como le hago para que en esa parte no me mande el error.... si me puedieran ayudar se los agradeceria por favor!! Que tengan un Buen Dia!!
thrsprog = 0
NALU = Len(MSF1.TextMatrix(MSF1.RowSel, 0))
IPROGR = Len(Text9)
strSQL = "select SUM(HORAS) as total FROM TBL_ALUACTIVIDAD WHERE LEFT (ALU_IDE, " & NALU & ")= '" & Val(MSF1.TextMatrix(MSF1.RowSel, 0)) & "'AND LEFT(CLAVE_PROGRAMA, " & IPROGR & ")='" & Val(Text9) & "'"
Call Leer
If Reg.EOF Then
thrsprog = thrspro
Else
Reg.MoveLast
thrsprog = Reg.Fields("total")
End If
Reg.Close
BDatos.Close
Text11 = Val(thrsprog)
Valora esta pregunta
0