تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن تسريع قارءة وحفظ البيانات الى قاعدة البيانات
#1
السلام عليكم ورحمة الله وبركاته

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

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

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

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


الملفات المرفقة
.rar   AFTFM2.rar (الحجم : 114.85 ك ب / التحميلات : 77)
الرد
تم الشكر بواسطة:
#2
.....


إختصار كود 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
الرد
تم الشكر بواسطة: aftfm , Mohamed371
#3
الف شكر اخي العزيز vbnet

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 4,835 16-07-18, 08:48 PM
آخر رد: aridje34
  خطأ في الإتصال بقاعدة البيانات الموجودة على هذا السيرفر (ويندوز 10) djelloul 0 113 04-05-18, 12:14 AM
آخر رد: djelloul
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 128 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
Tongue ربط قاعدة بينات اكسل مع الفيجوال عمار عيثاوي 3 2,100 02-03-18, 05:13 PM
آخر رد: محمد بن عطية
  إضافة الصورة في قاعدة البيانات iFanfan 0 191 01-03-18, 06:02 PM
آخر رد: iFanfan
  كيف يمكن نسخ جدول من قاعدة بيانات الي اخري atefkhalf2004 9 235 30-01-18, 02:59 PM
آخر رد: atefkhalf2004
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 218 27-01-18, 06:07 PM
آخر رد: أبو عمر
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 254 04-11-17, 07:37 PM
آخر رد: larbihamri
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 317 23-10-17, 03:22 AM
آخر رد: khodor1985
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 8,140 04-10-17, 10:08 PM
آخر رد: sofiane0552

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


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