投稿者 fredee  (社会人) 投稿日時 2009/2/17 04:07:47
刈谷勇さん、るきおさん 回答有難う御座います。
色々と調べたところ、DataGridView1ではなくてデータベースのテーブルにレコードを追加する時の処理でが問題のようです!!
下の要領で、タブ区切りのテキストファイルを配列変数へセットし、その変数をテーブルへ出力していますが、この時、ある項目にデータが無い場合のテーブルの値が変です。
<記述>
SrFile = New StreamReader(PC_Fold & "size.txt", Encoding.Default)
Sline = SrFile.ReadLine
While Not Sline Is Nothing
    If Sline.Length <> 0 Then
       ICnt += 1
        Dim StrDATA() As String = Split(Sline, vbTab)   '区切り文字コロン(タブ)
        Try
           StrDATA(0) = Trim(StrDATA(0))               'キー
             StrDATA(2) = Trim(StrDATA(2))
             StrDATA(3) = Trim(StrDATA(3))
           StrDATA(4) = Trim(StrDATA(4))
           StrDATA(5) = Trim(StrDATA(5))
           SqlCmd.CommandText = "SELECT COUNT(*) FROM [size_tbl] WHERE サイズ区分 = '"                    & StrDATA(0) & "'"
           SqlCmd.CommandText = "INSERT INTO [size_tbl] VALUES ('" & StrDATA(0)                    & "', '" _
                  & StrDATA(1) & "', '" _
                              & StrDATA(2) & "', '" _
                              & StrDATA(3) & "', '" _
                              & StrDATA(4) & "', '" _
                              & StrDATA(5) & "')"
           Try
            SqlCmd.ExecuteNonQuery()
            ACnt += 1
           Catch ex As Exception
              ECnt += 1
              MessageBox.Show(ex.Message)
           End Try
       Catch ex As Exception
             MessageBox.Show(ex.Message)
       End Try
このように記述しています。長くなって申し訳ありません!
例えば、StrDATA(3)に何も入っていない場合、StrDATA(3)は=""になっています。
If StrDATA(3) = "" Then
    Debug.Print(StrDATA(3))
End If
で判定しても、Debug.Print(StrDATA(3))のへ移りません。
StrDATA(3)の変数の内容が分かりません。
宜しくお願いします。