如何在VB.NET中使用資料庫MSAccess更新和插入一個按鈕

如何在 VB.NET 中使用資料庫 MS Access 更新和插入一個按鈕。

當雙擊 datagridview 然后按鈕文本更改為編輯但問題是當更新出現時不應該出現新記錄。“Contactid”是access資料庫中的autonumber和primarykey型別資料，另一個我想問一下“ContactId”是否是text和primary型別資料如何處理下面的代碼？

如果我注釋 if 陳述句代碼和 Sql“插入”并成功運行 sql“更新”狀態訊息框但資料庫沒有改變。我正在使用 dapper 版本 1.50.2

Private contactId As Integer = 0
Private Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSave.Click
    If Not Me.btnSave.IsHandleCreated Then Return
        Try
            If oledbCon.State = ConnectionState.Closed Then
                oledbCon.Open()
            End If
            Dim param As New DynamicParameters()
            param.Add("@Nme", txtName.Text.Trim())
            param.Add("@Mobile", txtMobile.Text.Trim())
            param.Add("@Address", txtAddress.Text.Trim())
            param.Add("@ContactID", contactId)
            If contactId = 0 Then
                oledbCon.Execute("INSERT INTO Contact (Nme,Mobile,Address) VALUES (@Nme,@Mobile,@Address)", param, commandType:=CommandType.Text)
                MessageBox.Show("Saved Successfully")
            Else
                oledbCon.Execute("UPDATE Contact SET Nme = @Nme,Mobile = @Mobile,Address = @Address WHERE ContactID = @ContactID", param, commandType:=CommandType.Text)
                MessageBox.Show("Updated Successfully")
            End If
            FillDataGridView()
            Clear()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            oledbCon.Close()
        End Try
    End Sub
Private Sub dgvContact_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles dgvContact.DoubleClick
If Not Me.dgvContact.IsHandleCreated Then Return

            Try
                If dgvContact.CurrentRow.Index <> -1 Then
                    'contactId = Convert.ToInt32(dgvContact.CurrentRow.Cells(0).Value.ToString())
                    txtName.Text = dgvContact.CurrentRow.Cells(1).Value.ToString()
                    txtMobile.Text = dgvContact.CurrentRow.Cells(2).Value.ToString()
                    txtAddress.Text = dgvContact.CurrentRow.Cells(3).Value.ToString()
                    btnDelete.Enabled = True
                    btnSave.Text = "Edit"
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub
End Sub

'I created one update button to test sql for update running or not but the code below has an error "Data type mismatch in criteria expression"
  Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
            If Not Me.btnUpdate.IsHandleCreated Then Return
            Try
                Using oledbCon As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DapperCRUD.accdb")


                    If oledbCon.State = ConnectionState.Closed Then
                        oledbCon.Open()
                    End If
                    Dim param As New DynamicParameters()
                    param.Add("@Nme", txtName.Text.Trim())
                    param.Add("@Mobile", txtMobile.Text.Trim())
                    param.Add("@Address", txtAddress.Text.Trim())
                    param.Add("@ContactID", txtcontactid.Text.Trim())
                    oledbCon.Execute("UPDATE Contact SET Nme = '" & txtName.Text & "',Mobile = '" & txtMobile.Text & "',Address = '" & txtAddress.Text & "' WHERE ContactID = '" & txtcontactid.Text & "'", param, commandType:=CommandType.Text)
                    MessageBox.Show("Updated Successfully")
                    FillDataGridView()
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            Finally
                oledbCon.Close()
            End Try

        End Sub

資料庫訪問資料型別

uj5u.com熱心網友回復：

根據@ZoHas鏈接的答案！

Private Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSave.Click
            If Not Me.btnSave.IsHandleCreated Then Return
            Try
                If oledbCon.State = ConnectionState.Closed Then
                    oledbCon.Open()
                End If
                Dim param As New DynamicParameters()
                param.Add("@Nme", txtName.Text.Trim())
                param.Add("@Mobile", txtMobile.Text.Trim())
                param.Add("@Address", txtAddress.Text.Trim())
                param.Add("@ContactID", txtcontactid.Text)
                If String.IsNullOrEmpty(Me.txtcontactid.Text.Trim()) Then
                    oledbCon.Execute("INSERT INTO Contact (Nme,Mobile,Address) VALUES (@Nme,@Mobile,@Address)", param, commandType:=CommandType.Text)
                    MessageBox.Show("Saved Successfully")
                Else
                    oledbCon.Execute("UPDATE Contact set Nme=@param1, Mobile=@param2, Address=@param3 where ContactID=@param4", New With {
                        Key .param1 = txtName.Text.Trim(),
                        Key .param2 = txtMobile.Text.Trim(),
                        Key .param3 = txtAddress.Text.Trim(),
                        Key .param4 = txtcontactid.Text}, commandType:=CommandType.Text)
                    MessageBox.Show("Updated Successfully")
                End If
                FillDataGridView()
                Clear()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            Finally
                oledbCon.Close()
            End Try
        End Sub

標籤：sqlVB.net毫秒访问数据库衣冠楚楚

上一篇：如何在C#中使用VB.NET的My中的函式？[復制]

下一篇：C#中等效的VB.NETLIKE字串比較運算子