2009-07-05 8 views
1

US 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コードが必要ですか?

if not txt is vbNullString then 
    ' code here 
end if 
+0

rsCardEvent1.Fields( "DATE")は文字列ですか? –

+0

@Mitch Wheat - yes – Gopal

答えて

1

データセットフィールドにNULLを確認するには:nullまたは空の文字列をチェックするには

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

+0

実行中エラー「無効な使用」 – Gopal

+0

@ Gopal:コードを表示してください。ちょうどそれがうまくいかないと言っていいわけではありません!私が投稿した方法は試され、テストされています。 –

+0

@Mitch Wheat。コードを投稿しました。コードを使用しましたが、コード内で使用しましたが、「NUllの無効な使用」を示しています。 – Gopal

0

項目が実際に来ている場合は、次に行う、文字列としてある

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

"txt"に誤りがあります – Gopal

+0

文字列として入力されていない可能性があります。ミッチ・ウィートの方法を試してみてください。もう少し堅牢に見えます。 –

関連する問題