我有一個使用Access數據庫的Visual Basic項目。我運行一個查詢,但在數據庫表中看不到任何新的數據。我沒有任何異常或錯誤。而不是顯示成功消息框。 這裏是我的代碼:正確的代碼但無法插入到數據庫
Dim ID As Integer = 2
Dim TableNumber As Integer = 2
Dim OrderDate As Date = Format(Now, "General Date")
Dim TotalPrice As Double = 100.0
Dim ConnectionString As String = "myconnectionstring"
Dim con As New OleDb.OleDbConnection(ConnectionString)
Try
Dim InsertCMD As OleDb.OleDbCommand
InsertCMD = New OleDb.OleDbCommand("INSERT INTO Orders([ID],[TableNumber],[OrderDate],[TotalPrice]) VALUES(@ID,@TableNumber,@OrderDate,@TotalPrice);", con)
InsertCMD.Parameters.AddWithValue("@ID", ID)
InsertCMD.Parameters.AddWithValue("@TableNumber", TableNumber)
InsertCMD.Parameters.AddWithValue("@OrderDate", OrderDate)
InsertCMD.Parameters.AddWithValue("@TotalPrice", TotalPrice)
con.Open()
InsertCMD.ExecuteNonQuery()
MessageBox.Show("Successfully Added New Order",
"Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
con.Close()
Catch ex As Exception
'Something went wrong
MessageBox.Show(ex.ToString)
Finally
'Success or not, make sure it's closed
If con.State <> ConnectionState.Closed Then con.Close()
End Try
什麼問題?
ID是自動編號列嗎? – Steve
我嘗試使用自動增量,但不使用它,但他們都沒有工作 – Dchris
你確定你沒有更新數據庫的副本嗎? http://stackoverflow.com/questions/13515419/vb-net-access-db-insert-not-inserting-data – Fionnuala