تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] [تم الحل]استعراض بيانات في Datagridview واضافة جميع البيانات لجدول محدد
#1
الاخوه الزملاء اسعد الله اوقاتكم في كل خير واتمنى ان يكون الجميع باتم صحه وعافيه
لدي ملفات اكسل يتم ارسالها يوميا من قبل الاقسام الاخرى ويجب ادخالها في النظام ولا يخفي علي الجميع بان الطريقه اليدويه او الفرديه متعبه وقد تحدث اخطاء في الادخال اليدوي
فاتتني فكره بان ارفق ملف اكسل كنموذج يتم تحميله من البرنامج ثم اضافه البيانات داخله ومن بعدها يتم اعادة رفع الملف الى البرنامج واستعراضه في Datagridview من ثم البحث عن اخر صف وتتم في الجدول المحدد وتتم اضافة جميع محتويات Datagridview

اتمنى الافادة
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد
تم الشكر بواسطة: بلدي , بلدي , ابراهيم ايبو
#2
واسعد جميع اوقاتك ،،

هل ترتيب ملف الاكسل مشابه للداتاقريدفيو ؟

على العموم كل شيء بإذن الله ممكن عمله .

لو ترفق ملف اكسل للتجربة ومثال للداتاقريدفيو الموجوده في البرنامج يكون افضل في سرعة ايجاد الحل بإذن الله .

بالتوفيق للجميع
يا رحمن الدنيا والآخرة ورحيمهما
الرد
#3
(15-08-20, 10:48 PM)حريف برمجة كتب : واسعد جميع اوقاتك ،،

هل ترتيب ملف الاكسل مشابه للداتاقريدفيو ؟

على العموم كل شيء بإذن الله ممكن عمله .

لو ترفق ملف اكسل للتجربة ومثال للداتاقريدفيو الموجوده في البرنامج يكون افضل في سرعة ايجاد الحل بإذن الله .

بالتوفيق للجميع

اذا تقصد أسماء الاعمدة وترتيبها في ملف الاكسل نعم مطابق للجدول المراد الاضافة  
مرفق مثال


الملفات المرفقة
.rar   Data Grid View Deom.rar (الحجم : 166.5 ك ب / التحميلات : 56)
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
حسب كلامك ترتيب ملف الأكسل وترتيب الداتاقريدفيو متشابهين ومتطابقين مع جدول قاعدة البيانات ؟ صحيح ؟

بعد جلب البيانات من ملف الاكسل إلى الداتاقريدفيو ،، المطلوب حفظ البيانات في جدول قاعدة البيانات . هل الحفظ بشروط أو فقط ادخال البيانات في الجدول بدون شروط ؟
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
ملف الاكسل وجدول البيانات المراد الاضافه به في قاعدة البيانات متطابق الاعمدة
بخصوص الشروط مهم جدا ان يتم ادخال التاريخ بصيغة التاريخ فقط
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد
تم الشكر بواسطة:
#6
تم الحل ولكن يوجد بطئ شديد في عملية الحفظ

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

كود :
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


الملفات المرفقة
.rar   viewing excel file inserting its data.rar (الحجم : 293.62 ك ب / التحميلات : 69)
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد
تم الشكر بواسطة: ابراهيم ايبو , بلدي
#7
للرفع يا احبتي لحل مشكلة ثقل تنفيذ الكود
سبحان الله وبحمده سبحان الله العظيم
لا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم Heart
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم