Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
DataGridView1のセル入力有無の判定について
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=300#CommentId2015
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
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)の変数の内容が分かりません。
宜しくお願いします。