الاخوه الزملاء اسعد الله اوقاتكم في كل خير واتمنى ان يكون الجميع باتم صحه وعافيه
لدي ملفات اكسل يتم ارسالها يوميا من قبل الاقسام الاخرى ويجب ادخالها في النظام ولا يخفي علي الجميع بان الطريقه اليدويه او الفرديه متعبه وقد تحدث اخطاء في الادخال اليدوي
فاتتني فكره بان ارفق ملف اكسل كنموذج يتم تحميله من البرنامج ثم اضافه البيانات داخله ومن بعدها يتم اعادة رفع الملف الى البرنامج واستعراضه في Datagridview من ثم البحث عن اخر صف وتتم في الجدول المحدد وتتم اضافة جميع محتويات Datagridview
اتمنى الافادة
واسعد جميع اوقاتك ،،
هل ترتيب ملف الاكسل مشابه للداتاقريدفيو ؟
على العموم كل شيء بإذن الله ممكن عمله .
لو ترفق ملف اكسل للتجربة ومثال للداتاقريدفيو الموجوده في البرنامج يكون افضل في سرعة ايجاد الحل بإذن الله .
بالتوفيق للجميع
(15-08-20, 10:48 PM)حريف برمجة كتب : [ -> ]واسعد جميع اوقاتك ،،
هل ترتيب ملف الاكسل مشابه للداتاقريدفيو ؟
على العموم كل شيء بإذن الله ممكن عمله .
لو ترفق ملف اكسل للتجربة ومثال للداتاقريدفيو الموجوده في البرنامج يكون افضل في سرعة ايجاد الحل بإذن الله .
بالتوفيق للجميع
اذا تقصد أسماء الاعمدة وترتيبها في ملف الاكسل نعم مطابق للجدول المراد الاضافة
مرفق مثال
حسب كلامك ترتيب ملف الأكسل وترتيب الداتاقريدفيو متشابهين ومتطابقين مع جدول قاعدة البيانات ؟ صحيح ؟
بعد جلب البيانات من ملف الاكسل إلى الداتاقريدفيو ،، المطلوب حفظ البيانات في جدول قاعدة البيانات . هل الحفظ بشروط أو فقط ادخال البيانات في الجدول بدون شروط ؟
ملف الاكسل وجدول البيانات المراد الاضافه به في قاعدة البيانات متطابق الاعمدة
بخصوص الشروط مهم جدا ان يتم ادخال التاريخ بصيغة التاريخ فقط
تم الحل ولكن يوجد بطئ شديد في عملية الحفظ
مرفق لكم نموذج الحل + السورس كود
كود :
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
للرفع يا احبتي لحل مشكلة ثقل تنفيذ الكود
سبحان الله وبحمده سبحان الله العظيم