用DataGrid来更新数据库

汗= =||搞了半天才搞定的，写下来吧，免得以后忘了。。

咳咳，直接干代码吧，多写点注释好了。。

Imports System.Data　　　　'导入必要地包包嘛
Imports System.Data.OleDb

Public Class Form1
    Dim Conn As New OleDbConnection
    Dim objDadap As New OleDbDataAdapter
    Dim Cmd As New OleDbCommand
    Dim objDSet As New DataSet
    Dim objCB As New OleDbCommandBuilder(objDadap)       '这个很关键他是用于命令创建的，没他更新不了！

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmd.Connection = Conn
        objDadap.SelectCommand = Cmd

        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=Student.mdb"
        Cmd.CommandText = "select * from 基本情况"
        objDadap.Fill(objDSet, "基本情况")
        DataGrid1.DataSource = objDSet
        DataGrid1.DataMember = "基本情况"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        objDadap.Update(objDSet, "基本情况")　　　　　　　　'这两句就是把DataGrid里的数据更新到数据库了
        objDSet.AcceptChanges()　　　　　　　　　　　　　 '不过更新的数据总是在最下面，不知道为啥
        MsgBox("更新成功！")
    End Sub
End Class

 

 这个程序用到一个窗体一个Button一个DataGrid。。看看吧

Good Luck！