[سؤال] [تم الحل]استعراض بيانات في Datagridview واضافة جميع البيانات لجدول محدد

كود :
Imports System.Data.OleDb

Imports System.Data.SqlClient



Public Class Form1

    Dim connexlcel As OleDbConnection

    Dim daexlcel As OleDbDataAdapter

    Dim dsexlcel As DataSet

    Dim Cmexlcel As OleDbCommand

    Dim drexlcel As OleDbDataReader



    Dim dasql As SqlDataAdapter

    Dim dssql As DataSet

    Dim cmdsql As SqlCommand

    Dim drsql As SqlDataReader

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Form2.Show()

    End Sub



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

        Dim ofd As New OpenFileDialog

        ofd.ShowDialog()

        TextBox1.Text = ofd.FileName

        Button2.Text = "Please Wait..."

        connexlcel = New OleDbConnection("Provider=Microsoft.ace.OLEDB.12.0;data source=" & TextBox1.Text & "; Extended Properties=Excel 8.0;")

        connexlcel.Open()



        Dim dtsheets As DataTable = connexlcel.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)

        Dim listsheet As New List(Of String)

        Dim drSheet As DataRow



        For Each drSheet In dtsheets.Rows

            listsheet.Add(drSheet("Table_name").ToString())

        Next

        For Each sheet As String In listsheet

            ListBox1.Items.Add(sheet)

        Next

        Button2.Text = "Open File"

        connexlcel.Close()

    End Sub



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



        Button1.Text = "Please Wait In processing . . ."

        For baris As Integer = 0 To DataGridView1.RowCount - 2

            If Con.State = 1 Then Con.Close()

            Con.Open()



            Dim simpan As String = "insert into TB_Attcment values('" & DataGridView1.Rows(baris).Cells(0).Value & "','" & DataGridView1.Rows(baris).Cells(1).Value & "','" & DataGridView1.Rows(baris).Cells(2).Value & "','" & DataGridView1.Rows(baris).Cells(3).Value & "','" & DataGridView1.Rows(baris).Cells(4).Value & "','" & DataGridView1.Rows(baris).Cells(5).Value & "','" & DataGridView1.Rows(baris).Cells(6).Value & "')"

            cmdsql = New SqlCommand(simpan, Con)

            cmdsql.ExecuteNonQuery()

        Next

        Con.Close()



        Form2.SelectAll_TB_Eemplooye(DataGridView1)

        Button1.Text = "insert Data"

        MsgBox("Done")

        DataGridView1.Columns.Clear()

    End Sub



    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

        daexlcel = New OleDbDataAdapter("select * from [" & ListBox1.Text & "]", connexlcel)

        dsexlcel = New DataSet

        daexlcel.Fill(dsexlcel)

        DataGridView1.DataSource = dsexlcel.Tables(0)

        DataGridView1.ReadOnly = True

    End Sub

    Sub openconn()

        Con.Open()

    End Sub

End Class