Cómo comprobar es el valor nulo en la tabla?
-
23-08-2019 - |
Pregunta
utilizando MS Access 2003
Cómo comprobar es valor nulo en la base de datos de acceso?
Mi código.
Public Function DateToString(dte As Date) As String
Dim d As String
Dim m As String
Dim y As String
d = Day(dte)
m = Month(dte)
y = Year(dte)
If Len(d) = 1 Then d = "0" & d
If Len(m) = 1 Then m = "0" & m
DateToString = y & m & d
End Function
Public Function StringToDate(txt As String) As Date
Dim dte As String
dte = Left(txt, 4) & "-" & Mid(txt, 5, 2) & "-" & Right(txt, 2)
StringToDate = CDate(dte)
End Function
sql1 = "CREATE TABLE MOI (PreDate varchar(50))"
sql2 = "INSERT INTO MOI values('" & StringToDate(rsCardEvent1.Fields("PreDate")) "')"
A partir de la función anterior, quiero comprobar si no es nulo, mi código demás no es necesario.
¿Necesita VB 6.0 Código Ayuda?
Solución
Para comprobar para Null en un campo de conjunto de datos:
If IsNull(rs("colname")) Then
'Field contains a Null Value
Else
'Field does 'not' contain a Null Value
End If
Para comprobar la cadena nula o vacía:
If (txt & "") = "" Then
' txt is Null or empty
End If
Otros consejos
Si el artículo está viniendo en realidad es como una cadena, y luego hacer:
if not txt is vbNullString then
' code here
end if
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow