Имея довольно много проблем с кодом. Я пытаюсь сделать базовый upsert и могу заставить команду вставки работать без проблем, однако Select и update не работают вместе. Я пробовал различные способы настройки параметров, и все примеры/построение с нуля потерпели ужасную неудачу, если я сам так говорю.
Обратите внимание, что я начал изучать VB.Net и программирование в целом примерно 2 недели назад.
Итак, я ищу реальный пример настройки параметров и/или того, что может быть не так с операторами выбора и обновления. Я совершенно уверен, что проблема не в самом операторе select, а в строках ‹> Каждый раз, когда он отлаживается, он возвращает значение 0, даже если в таблице есть данные.
В настоящее время используется VB Studio Express 2010, VB.Net и база данных Access.
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()