| Insertar Datos Null en un Campo Float desde vb 6.0 en BD Mysql 5.0
Hola Maestro espero que me ayude con esta inquietud estoy desarrollando un siste ma de notas para un colegio y estoy en el reporte le explico tengo un tabla notas donde guardo todas las notas de lso alumnos matriculados en el año actual
pero para el reporte guardo las notas de un grado,seccion,nivel,numaño de todos los alumnos respectivamente.
al hacer una consulta ala tabla notas con los parametros : grado,seccion,nivel,numaño y me filtra todos los alumnos de un grado y seccion
y para hacer el reporte debo grabar todos los alumnos de la consulta 1 a un tabla temporal y el codigo es el siguiente:
SQL_IdAlumnoIdCurso_Nivel_Grado_Seccion_NumAño = " SELECT notas.IdAlumno, alumno.ApellidosNombres, matricula.Nivel, matricula.Grado, matricula.Seccion, notas.IdCurso, notas.B1C1, notas.B1C2, notas.B1C3, notas.B1C4, notas.B2C1, notas.B2C2, notas.B2C3, notas.B2C4, notas.B3C1, notas.B3C2, notas.B3C3, notas.B3C4, notas.B4C1, notas.B4C2, notas.B4C3, notas.B4C4, notas.IJ, notas.II, notas.TJ, notas.TI, matricula.NumAño FROM notas INNER JOIN curso ON (notas.IdCurso = curso.IdCurso) INNER JOIN alumno ON (notas.IdAlumno = alumno.IdAlumno) INNER JOIN matricula ON (matricula.IdAlumno = alumno.IdAlumno) INNER JOIN añoescolar ON (matricula.NumAño = añoescolar.NumAño) WHERE matricula.Nivel = '" & Nivel & "' AND matricula.Grado = '" & Grado & "' AND matricula.Seccion = '" & Seccion & "' AND matricula.NumAño = '" & NumAño & "'"
rs2.Open SQL_IdAlumnoIdCurso_Nivel_Grado_Seccion_NumAño, cn
If Not (rs2.EOF And rs2.BOF) Then
Do While Not rs2.EOF
IdAlumno = IIf(IsNull(rs2!IdAlumno), "", rs2!IdAlumno)
ApellidosNombres = IIf(IsNull(rs2!ApellidosNombres), "", rs2!ApellidosNombres)
IdCurso = IIf(IsNull(rs2!IdCurso), "", rs2!IdCurso)
Grado = IIf(IsNull(rs2!Grado), "", rs2!Grado)
Seccion = IIf(IsNull(rs2!Seccion), "", rs2!Seccion)
Nivel = IIf(IsNull(rs2!Nivel), "", rs2!Nivel)
B1C1 = IIf(IsNull(rs2!B1C1), "l", rs2!B1C1)
B1C2 = IIf(IsNull(rs2!B1C2), "''", rs2!B1C2)
B1C3 = IIf(IsNull(rs2!B1C3), "''", rs2!B1C3)
B1C4 = IIf(IsNull(rs2!B1C4), "''", rs2!B1C4)
B2C1 = IIf(IsNull(rs2!B2C1), "''", rs2!B2C1)
B2C2 = IIf(IsNull(rs2!B2C2), "''", rs2!B2C2)
B2C3 = IIf(IsNull(rs2!B2C3), "''", rs2!B2C3)
B2C4 = IIf(IsNull(rs2!B2C4), "''", rs2!B2C4)
B3C1 = IIf(IsNull(rs2!B3C1), "''", rs2!B3C1)
B3C2 = IIf(IsNull(rs2!B3C2), "''", rs2!B3C2)
B3C3 = IIf(IsNull(rs2!B3C3), "''", rs2!B3C3)
B3C4 = IIf(IsNull(rs2!B3C4), "''", rs2!B3C4)
B4C1 = IIf(IsNull(rs2!B4C1), "''", rs2!B4C1)
B4C2 = IIf(IsNull(rs2!B4C2), "''", rs2!B4C2)
B4C3 = IIf(IsNull(rs2!B4C3), "''", rs2!B4C3)
B4C4 = IIf(IsNull(rs2!B4C4), "''", rs2!B4C4)
cn.Execute "insert into Temporal " _
& " (Norden ,IdAlumno,ApellidosNombres,Grado,Seccion,Nivel,Mat 1_B1C1, Mat1_B1C2, Mat1_B1C3, Mat1_B1C4, Mat1_B2C1, Mat1_B2C2, Mat1_B2C3, Mat1_B2C4, Mat1_B3C1, Mat1_B3C2, Mat1_B3C3, Mat1_B3C4, Mat1_B4C1, Mat1_B4C2, Mat1_B4C3, Mat1_B4C4 ,Cola)VALUES" _
& " ('" & Cont & "','" & IdAlumno & "','" & ApellidosNombres & "','" & Grado & "','" & Seccion & "','" & Nivel & "','','" & B1C2 & "','" & B1C3 & "','" & B1C4 & "','" & B2C1 & "','" & B2C2 & "','" & B2C3 & "','" & B2C4 & "','" & B3C1 & "','" & B3C2 & "','" & B3C3 & "','" & B3C4 & "','" & B4C1 & "','" & B4C2 & "','" & B4C3 & "','" & B4C4 & "','" & IdCola & "')"
el problema es el siguiente :
B1C1 = IIf(IsNull(rs2!B1C1), "", rs2!B1C1)
al momento de insertar el campo B1C1 ="" en la tabla temporal me graba 0
y deseo que grabe null
probe de la siguente manera :
B1C1 = IIf(IsNull(rs2!B1C1), NULL, rs2!B1C1)
y lo mismo
gracias de antemano |