数量増分、Upsertの問題

Question

コードの問題がかなりあります。私は基本的なアップシェアをしようとしていますが、問題なく動作させるためにインサートコマンドを得ることができますが、選択とアップデートはうまくいっていません。私はパラメータを設定する様々な方法を試しました、そして、私がそう言えば、すべての事例/それを基礎から構築することはかなり恐ろしく失敗しました。

私はVB.Netを拾い上げ、一般に約2週間前にプログラムしています。

私が探しているのは、パラメータの設定の実際のサンプル、および/またはselect文とupdate文で間違っている可能性のあるものです。私は、問題がselect文自体ではなく、<の行に沿っていることを確信しています。>デバッグされるたびに、テーブルにデータが存在しても0のカウントを返します。現在、VBメーカーエクスプレス2010、VB.Net、およびアクセスDBを使用して

Dim sel As String = "SELECT ID FROM Stock WHERE ID = '" & txtID.Text & "'" 
    Dim cmd As New OleDbCommand(sel, conn) 
    conn.Open() 
    Try 
     cmd.ExecuteNonQuery() 
     If dt.Rows.Count < 1 Then 
      If radAdd.Checked = True Then 
       Dim dbUP As String = ("Update Stock SET Qty = Qty +1 Where ID = '" & txtID.Text & "'") 
       Dim cmdup As New OleDbCommand(dbUP, conn) 
       cmdup.ExecuteNonQuery() 
      Else 
       Dim dbDW As String = ("Update Stock SET Qty = Qty -1 Where ID = '" & txtID.Text & "'") 
       Dim cmdw As New OleDbCommand(dbDW, conn) 
       cmdw.ExecuteNonQuery() 
      End If 
     Else 
      Dim dbIns As String = "INSERT INTO Stock (ID, Qty, LastDate)"" VALUES ('" & txtID.Text & "', 1, Now())" 
      Dim dc As New OleDbCommand(dbIns, conn) 
      dc.ExecuteNonQuery() 
     End If 
    Catch ex As Exception 
     MsgBox(ex.ToString) 
    End Try 
    conn.Close() 

Answer 1

あなたは次の2行に変更されて実行する必要があります。

cmd.ExecuteNonQuery() 
If dt.Rows.Count < 1 Then 

へ： 薄暗いOValueにしますオブジェクトとして

oValue = cmd.ExecuteScalar() 
If oValue IsNot Nothing AndAlso oValue IsNot DBNull.Value Then 

これは単にseleから単一の値を取得しますctコマンドを実行し、ヌルでない場合は何かが存在するため、更新コードに入ります。レコードが存在しない場合、コードはdbnull.valueまたは何も返さず、挿入コードに進みます。