[محمد العامر]

تم الحل ولكن يوجد بطئ شديد في عملية الحفظ

مرفق لكم نموذج الحل + السورس كود

كود :

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

نص الاتصال

كود :

نص الاتصال


Imports System.Data.SqlClient
Imports System.Windows.Forms
Module Module1
   Public ConStr As String = "Data Source=.;Initial Catalog = Test_System;integrated security=true"
   Public Con As New SqlClient.SqlConnection(ConStr)
End Module