Как проверить значение null в таблице?

Question

ИСПОЛЬЗОВАНИЕ MS ACCESS 2003

Как проверить значение null в базе данных доступа?

Мой код.

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")) "')" 

Из вышеприведенной функции, я хочу проверить, если не null, то мой код еще не нужно.

Нужна помощь по VB 6.0?

Answer 1

Чтобы проверить наличие Null в поле набора данных:

If IsNull(rs("colname")) Then 
    'Field contains a Null Value 
Else 
    'Field does 'not' contain a Null Value 
End If 

Для проверки на нуль или пустая строка:

If (txt & "") = "" Then 
    ' txt is Null or empty 
End If 

Answer 2

Если деталь на самом деле идет как строку, а затем сделать:

if not txt is vbNullString then 
    ' code here 
end if