Data Grid View 连接MS Access

Imports System.Data.OleDb



Public Class Form1

    Dim con As OleDbConnection

    Dim cmd As OleDbCommand

    Dim myDA As OleDbDataAdapter

    Dim myDataSet As DataSet





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=|DataDirectory|\Database2.mdb")

        Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM TimePicker", con)

        con.Open()

        myDA = New OleDbDataAdapter(cmd)

        ''One CommandBuilder object is required. It automatically generates DeleteCommand,UpdateCommand and InsertCommand for DataAdapter object      

        Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(myDA)

        myDataSet = New DataSet()

        myDA.Fill(myDataSet, "MyTable")

        DataGridView1.DataSource = myDataSet.Tables("MyTable").DefaultView

        con.Close()

        con = Nothing



    End Sub





    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



        Me.Validate()

        Me.myDA.Update(Me.myDataSet.Tables("MyTable"))

        Me.myDataSet.AcceptChanges()









    End Sub



End Class

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim word As String

        Dim username As String

        username = ""

        Dim t As String = RichTextBox1.Text

        If Trim(Me.TBoxword.Text) <> "" Then

            If Me.TextBox1.Text = "" Then

                username = "Melody"

            Else

                username = Me.TextBox1.Text

            End If

            If Trim(Me.RichTextBox1.Text) <> "" Then



                word = Trim(TBoxword.Text)

                Dim connection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./english.mdb")

                connection.Open()

                Try

                    Dim str As New System.Text.StringBuilder

                    str.Append("  UPDATE  englishword  ")

                    str.Append("  SET  ")

                    str.Append("  [MEAN]='").Append(t).Append("',")

                    

                    str.Append("    [PEOPLE]='").Append(username).Append("'")

                    str.Append("  WHERE ")

                    str.Append("  [word]= '").Append(word).Append("'")

                    Debug.WriteLine("")

                    Debug.WriteLine(str.ToString)

                    Dim cmd2 As New OleDb.OleDbCommand(str.ToString, connection)

                    cmd2.ExecuteNonQuery()

                    MsgBox("保存完成", MsgBoxStyle.Information)

                Catch ex As Exception

                    MsgBox(ex.ToString, MsgBoxStyle.Critical)

                    Exit Sub

                End Try

                Me.TBoxword.Text = ""

                Me.RichTextBox1.Text = ""

                Me.TextBox1.Text = ""

                Me.LabelDATE.Text = ""

                connection.Close()

            Else

                MsgBox("中文意思不能为空啦", MsgBoxStyle.Critical)

                Exit Sub

            End If

        Else

            MsgBox("你还没有输入单词", MsgBoxStyle.Critical)

        End If

    End Sub

Me.OleDbConnection1.Open() 

Me.OleDbDataAdapter1.UpdateCommand.Connection = Me.OleDbConnection1 

Me.OleDbDataAdapter1.UpdateCommand.CommandText = String.Format("update cx set (入帐日期,入帐租金) values('{0}','{1}') where ID='{2}'", Me.TextBox5.Text, Me.TextBox2.Text, Me.TextBox9.Text) 

Me.OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery() 

Me.OleDbConnection1.Close() 

Imports System.Data.OleDb



......................

        Dim MyMDBcon As New OleDb.OleDbConnection

        Dim myMDBcm As New OleDb.OleDbCommand

        Dim myMDBapt As New OleDb.OleDbDataAdapter