form1.vb

vb和数据库access的链接

        Me.Panel3.Controls.Add(Me.TextBox1)
        Me.Panel3.Controls.Add(Me.lblID)
        Me.Panel3.Controls.Add(Me.TextBox2)
        Me.Panel3.Controls.Add(Me.TextBox4)
        Me.Panel3.Location = New System.Drawing.Point(346, 17)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(201, 173)
        Me.Panel3.TabIndex = 26
        '
        'Panel4
        '
        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel4.Controls.Add(Me.ProgressBar1)
        Me.Panel4.Location = New System.Drawing.Point(10, 198)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(537, 35)
        Me.Panel4.TabIndex = 27
        '
        'Panel5
        '
        Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel5.Controls.Add(Me.cmdDelete)
        Me.Panel5.Controls.Add(Me.cmdCancel)
        Me.Panel5.Controls.Add(Me.cmdNew)
        Me.Panel5.Controls.Add(Me.cmdSave)
        Me.Panel5.Controls.Add(Me.Button2)
        Me.Panel5.Controls.Add(Me.cmdEdit)
        Me.Panel5.Location = New System.Drawing.Point(10, 353)
        Me.Panel5.Name = "Panel5"
        Me.Panel5.Size = New System.Drawing.Size(537, 43)
        Me.Panel5.TabIndex = 28
        '
        'Panel6
        '
        Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel6.Controls.Add(Me.cmdSearch)
        Me.Panel6.Controls.Add(Me.txtSearch)
        Me.Panel6.Location = New System.Drawing.Point(10, 17)
        Me.Panel6.Name = "Panel6"
        Me.Panel6.Size = New System.Drawing.Size(326, 43)
        Me.Panel6.TabIndex = 29
        '
        'cmdSearch
        '
        Me.cmdSearch.BackColor = System.Drawing.Color.LightSteelBlue
        Me.cmdSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdSearch.Location = New System.Drawing.Point(240, 9)
        Me.cmdSearch.Name = "cmdSearch"
        Me.cmdSearch.Size = New System.Drawing.Size(77, 23)
        Me.cmdSearch.TabIndex = 20
        Me.cmdSearch.Text = "搜索"
        Me.cmdSearch.UseVisualStyleBackColor = False
        '
        'txtSearch
        '
        Me.txtSearch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtSearch.Location = New System.Drawing.Point(10, 9)
        Me.txtSearch.Name = "txtSearch"
        Me.txtSearch.Size = New System.Drawing.Size(220, 21)
        Me.txtSearch.TabIndex = 19
        '
        'ListView1
        '
        Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ID, Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4, Me.ColumnHeader5})
        Me.ListView1.FullRowSelect = True
        Me.ListView1.GridLines = True
        Me.ListView1.Location = New System.Drawing.Point(269, 241)
        Me.ListView1.Name = "ListView1"
        Me.ListView1.Size = New System.Drawing.Size(269, 104)
        Me.ListView1.TabIndex = 30
        Me.ListView1.UseCompatibleStateImageBehavior = False
        Me.ListView1.View = System.Windows.Forms.View.Details
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(558, 438)
        Me.Controls.Add(Me.ListView1)
        Me.Controls.Add(Me.Panel6)
        Me.Controls.Add(Me.Panel5)
        Me.Controls.Add(Me.Panel4)
        Me.Controls.Add(Me.Panel3)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.DataGrid1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MaximumSize = New System.Drawing.Size(566, 465)
        Me.Name = "Form1"
        Me.Text = "VB.NET操作Access数据库示例"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel2.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.Panel3.PerformLayout()
        Me.Panel4.ResumeLayout(False)
        Me.Panel5.ResumeLayout(False)
        Me.Panel6.ResumeLayout(False)
        Me.Panel6.PerformLayout()
        Me.ResumeLayout(False)

    End Sub

#End Region



#Region " Funkcjonet "



    Public Function FillListBox(ByVal Sqlstring As String)

        ListBox1.Items.Clear()
        ListView1.Items.Clear()

        'Decklarimi dhe hapja e OLEDB
        Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
        OleDbConn.Open()

        'Leximi i te dhenave permes Datareader
        Dim MyDataReader As OleDbDataReader

        'Deklarimi i SQL komandes
        Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()




        'Deklarimi i DataSet per ruajtjen e te dhenave ne memorje
        Dim MyDataSet As DataSet = New DataSet()

        'Deklarimi dhe krijimi i DataAdapterit per ti siguruar te dhenat DataSet-it
        Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter()

        'Select Komanda, ne rastin tone e zavendsuar me Sqlstring
        MyOleDataAdapter.SelectCommand = New OleDbCommand(Sqlstring, OleDbConn)

        'Vendosi te dhenat ne DataSet
        MyOleDataAdapter.Fill(MyDataSet)




        'Pra OleDbCommandes i duhet hapja e databazes ku ne 
        'ket rast e merr vleren e variables OleDbConn.
        MyOleDbCommand.Connection = (OleDbConn)

        'Komanda egzikutuese ne ket rast vlera e SqlString
        MyOleDbCommand.CommandText = Sqlstring

        'Egzikutimi i komandes
        MyDataReader = MyOleDbCommand.ExecuteReader

        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = MyDataSet.Tables(0).Rows.Count

        'Leximi i te dhenave permes DataReader
        Do While MyDataReader.Read


            ' 3 menyra per leximin e fushave

            'ListBox1.Items.Add(MyDataReader.GetInt32(0))
            'ListBox1.Items.Add(MyDataReader.Item(0))
            ListBox1.Items.Add(MyDataReader("ID"))


            'Paraqitja e te dhenave ne ListView
            Dim MyItem = ListView1.Items.Add(MyDataReader("ID".ToString))
            With MyItem
                .SubItems.Add(MyDataReader("Column1".ToString))
                .SubItems.Add(MyDataReader("Column2".ToString))
                .SubItems.Add(MyDataReader("Column3".ToString))
                .SubItems.Add(MyDataReader("Column4".ToString))
                .SubItems.Add(MyDataReader("Column5".ToString))
            End With


            ProgressBar1.Value = ProgressBar1.Value + 1
        Loop

        'Mbyllja e lidhjeve
        MyDataReader.Close()


        OleDbConn.Close()
        OleDbConn.Dispose()


    End Function


    Public Function FillTextBox(ByVal Sqlstring As String)


        Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
        OleDbConn.Open()

        Dim MyDataReader As OleDbDataReader

        Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()
        MyOleDbCommand.Connection = (OleDbConn)
        MyOleDbCommand.CommandText = Sqlstring

        MyDataReader = MyOleDbCommand.ExecuteReader

        Try
            Do While MyDataReader.Read


                TxtId.Text = (MyDataReader.Item(0))
                TextBox1.Text = (MyDataReader.Item(1))
                TextBox2.Text = (MyDataReader.Item(2))
                TextBox3.Text = (MyDataReader.Item(3))
                TextBox4.Text = (MyDataReader.Item(4))
                TextBox5.Text = (MyDataReader.Item(5))


            Loop

            StatusBar1.Text = " 记录 " & TxtId.Text & " 被选择"

        Catch err As System.Exception
            StatusBar1.Text = " 所选记录包含空字符串"



            MyDataReader.Close()


            OleDbConn.Close()
            OleDbConn.Dispose()
        End Try

    End Function


    Public Function FillDataGrid(ByVal Sqlstring As String)



        Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
        OleDbConn.Open()

        Dim MyDataSet As DataSet = New DataSet()


        Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter()
        MyOleDataAdapter.SelectCommand = New OleDbCommand(Sqlstring, OleDbConn)
        MyOleDataAdapter.Fill(MyDataSet)


        Me.DataGrid1.DataSource = MyDataSet.Tables(0)




        StatusBar1.Text = " " & MyDataSet.Tables(0).Rows.Count & " 行."

        MyOleDataAdapter.Dispose()
        MyDataSet.Dispose()
        OleDbConn.Close()
        OleDbConn.Dispose()




    End Function



    Public Function AddNew()





        Try

            Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
            OleDbConn.Open()



            Dim MyOledbCommand As OleDbCommand = New OleDbCommand()

            Dim String1, String2, String3, String4, String5 As String




            String1 = TextBox1.Text
            String2 = TextBox2.Text
            String3 = TextBox3.Text
            String4 = TextBox4.Text
            String5 = TextBox5.Text



            MyOledbCommand.CommandText = "Insert Into Table1 " _
            & "(Column1,Column2,Column3,Column4,Column5) " _
            & "Values (" _
            & "'" & String1 & "', " _
            & "'" & String2 & "', " _
            & "'" & String3 & "', " _
            & "'" & String4 & "', " _
            & "'" & String5 & "')"

            MyOledbCommand.Connection = OleDbConn

            MyOledbCommand.ExecuteNonQuery()
            OleDbConn.Close()

            ProgressBar1.Value = 0

            FillDataGrid("Select * from Table1")
            FillListBox("Select * from Table1")
            DisableTextboxes()
            cmdEdit.Enabled = True
            cmdDelete.Enabled = True
            SaveOrEdit = "Cancel"

            StatusBar1.Text = " 数据已添加."

        Catch err As System.Exception
            StatusBar1.Text = err.Message
        End Try

    End Function



    Public Function Edit() As String
        Try

            Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
            OleDbConn.Open()