منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف يمكن تسريع قارءة وحفظ البيانات الى قاعدة البيانات

السلام عليكم ورحمة الله وبركاته

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

ولكن هل من طريقة لتسريع القراءة الي القريد
وإيظاً الحفظ يأخذ اكثر وقت

هناك ملف نصي للسجلات المطلوب قراءتها في مجلد File

ارجوا ايجاد حل مناسب لتسريع القراءة والحفظ

.....

إختصار كود Button1 من 250 سطر إلى 10 أسطر (طبعاً غير صحيح أن الأسطر القليلة تزيد في السرعة وإنما استخدام الأكواد الصحيحة)

كود :

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

    Dim op As New OpenFileDialog

    op.Filter = "الملفات النصية(*.txt)|*.txt"

    op.Title = "قراءة الملفات"

    If op.ShowDialog = Windows.Forms.DialogResult.OK Then

        Dim rows As String() = IO.File.ReadAllLines(op.FileName)

        For Each row As String In rows

            Me.DataGridView1.Rows.Add(Split(row, "@"))

        Next

        MsgBox("عدد السجلات المقروءة : " & Me.DataGridView1.Rows.Count, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "السجلات")

    End If

End Sub

الف شكر اخي العزيز vbnet

صحيح كلامك لكن هناك ترتيب معين اريدة وهو تقسيم النص وتوزيعه بشكل غير الذي كان عليه
لذلك قمت بتقسيمه وتوزيعه ووضعه على القريد ومن ثم الحفظ بشرط التكرار في عدد 5 حقول إذا تطابقت يعبر السجل مكرر فقط في حال تكررت الخمس حقول
المطلوبه وإلا يكون السجل غير مكرر
وفي حال التكرار يتم ارسال المكرر الى مجلد محدد
وفي حالة أن السجل ليس به اجراء يعتبر جديد
وفي حال لو قراءنا سجل به اجراء ولم يوجد له سجل سابق مكرر في الحقول الخمس المطلوبة يعتبر ليس له اساس

لان المفروض أن يتم قراءة السجلات التي ليس بها اجراء أولاً ومن ثم قراءة السجلات التي تم اتخاذ فيها اجراء معين

هذه فكرة البرنامج
و
هذه فكرة الكود الطويل

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

aftfm

vbnet

aftfm