Question

这是我将数据从数据库加载到datagrid的代码

Private Sub Records_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim connString As String = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\Database3.Accdb;"
    Dim MyConn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim tables As DataTableCollection
    Dim source1 As New BindingSource

    MyConn = New OleDbConnection
    MyConn.ConnectionString = connString
    ds = New DataSet
    tables = ds.Tables
    da = New OleDbDataAdapter("Select * from [userinfo] ORDER BY ID", MyConn)
    da.Fill(ds, "userinfo") 'Change items to your database name
    Dim cb = New OleDbCommandBuilder(da)
    Dim view As New DataView(tables(0))
    source1.DataSource = view
    DataGridView1.DataSource = view

End Sub


Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
    If RequiredEntry() = True Then
        Return
    End If
    Try
        Dim cn As New OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\Database3.Accdb;")

        If cn.State = ConnectionState.Closed Then cn.Open()

        Dim sSQL As String = "insert into [userinfo]([username],[password],[FirstName],[LastName],[Account]) values(@username,@password,@FirstName,@LastName,@Account)"

        Dim cmd As OleDbCommand = New OleDbCommand(sSQL, cn)


        ' UserName
        If txtPassword.Text = txtConfirm.Text Then
            Dim username As OleDbParameter = New OleDbParameter("@username", OleDbType.VarWChar, 50)
            username.Value = txtUser.Text.ToString()
            cmd.Parameters.Add(username)
        Else
            MsgBox("Password not matched")

        End If

        'password
        Dim password As OleDbParameter = New OleDbParameter("@password", OleDbType.VarWChar, 50)
        password.Value = txtPassword.Text.ToString()
        cmd.Parameters.Add(password)


        'First Name
        Dim FirstName As OleDbParameter = New OleDbParameter("@FirstName", OleDbType.VarWChar, 50)
        FirstName.Value = txtFirstName.Text.ToString()
        cmd.Parameters.Add(FirstName)


        ' Last Name
        Dim LastName As OleDbParameter = New OleDbParameter("@LastName", OleDbType.VarWChar, 50)
        LastName.Value = txtLastName.Text.ToString()
        cmd.Parameters.Add(LastName)

        'Account

        Dim Account As OleDbParameter = New OleDbParameter("@Account", OleDbType.VarWChar, 50)
        Account.Value = cboAccount.GetItemText(cboAccount.SelectedItem)
        cmd.Parameters.Add(Account)



        If cmd.ExecuteNonQuery() Then
            cn.Close()
            MessageBox.Show("New User is Added successfully.", "Record Saved")
            Call clear()
            Me.Hide()
            FileMaintenance.Show()


        Else
            MsgBox("New User Addition Failed ", MsgBoxStyle.Critical, "Addition Failed")
            Return
        End If

    Catch ex As Exception
        Exit Sub
    End Try
End Sub
Private Sub NewUser_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    e.SuppressKeyPress = e.Control
    If e.KeyCode = Keys.Enter Then
        SendKeys.Send("{tab}")
    End If

End Sub

这是我的删除

Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
    Dim connString As String = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\Database3.Accdb;"
    Dim MyConn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim tables As DataTableCollection
    Dim source1 As New BindingSource
    Dim rows As String


    Try
        MyConn = New OleDbConnection
        MyConn.ConnectionString = connString
        ds = New DataSet
        tables = (ds.Tables)
        rows = DataGridView1.SelectedRows(0).Cells(0).Value.ToString()
        da = New OleDbDataAdapter("Delete * from [userinfo] where ID=" & rows, MyConn)
        da.Fill(ds, "userinfo")
        Records_Load(sender, e)

    Catch ex As Exception
        MessageBox.Show("cannot delete empty records")
    End Try

如何在数据库网格视图中编辑我的数据我怎样才能锁定数据网格意外输入字段

Answer 1

你的代码非常错误。您首先正确检索数据，但之后却无法正确插入和删除数据。

这个想法是你为所有四个操作使用一个数据适配器，即选择，插入，更新和删除。这就是为什么它具有SelectCommand，InsertCommand，UpdateCommand和DeleteCommand属性的原因。您调用Fill并执行SelectCommand中的SQL以将数据检索到DataTable。然后，您应该对DataTable中的数据进行所需的所有更改，即插入，更新和删除。完成后，您在数据适配器上调用Update，它将根据需要执行InsertCommand，UpdateCommand和DeleteCommand中的SQL以保存所有更改回数据库。这是我很久以前写的一个例子：

Private connection As New SqlConnection("connection string here")
Private adapter As New SqlDataAdapter("SELECT ID, Name, Quantity, Unit FROM StockItem", _
                                      connection)
Private table As New DataTable

Private Sub InitialiseDataAdapter()
    Dim delete As New SqlCommand("DELETE FROM StockItem WHERE ID = @ID", Me.connection)
    Dim insert As New SqlCommand("INSERT INTO StockItem (Name, Quantity, Unit) VALUES (@Name, @Quantity, @Unit)", Me.connection)
    Dim update As New SqlCommand("UPDATE StockItem SET Name = @Name, Quantity = @Quantity, Unit = @Unit WHERE ID = @ID", Me.connection)

    delete.Parameters.Add("@ID", SqlDbType.Int, 4, "ID")

    insert.Parameters.Add("@Name", SqlDbType.VarChar, 100, "Name")
    insert.Parameters.Add("@Quantity", SqlDbType.Float, 8, "Quantity")
    insert.Parameters.Add("@Unit", SqlDbType.VarChar, 10, "Unit")

    update.Parameters.Add("@Name", SqlDbType.VarChar, 100, "Name")
    update.Parameters.Add("@Quantity", SqlDbType.Float, 8, "Quantity")
    update.Parameters.Add("@Unit", SqlDbType.VarChar, 10, "Unit")
    update.Parameters.Add("@ID", SqlDbType.Int, 4, "ID")

    Me.adapter.DeleteCommand = delete
    Me.adapter.InsertCommand = insert
    Me.adapter.UpdateCommand = update

    Me.adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
End Sub

Private Sub GetData()
    'Retrieve the data.
    Me.adapter.Fill(Me.table)

    'The table can be used here to display and edit the data.
    'That will most likely involve data-binding but that is not a data access issue.
End Sub

Private Sub SaveData()
    'Save the changes.
    Me.adapter.Update(Me.table)
End Sub

请注意，此示例是为SQL Server编写的，但您只需更换SqlClient类型的所有OleDb类型，它适用于Access。

如果您想因某种原因立即保存更改，则只需在每次更改后致电Update。

顺便说一下，你的连接字符串应该写成：

Dim connString As String = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=|DataDirectory|\BackUp\Database3.Accdb;"

如何编辑Datagrid记录以及数据库

1 个答案: