[myalsailamy]

السلام عليكم  ،،

بالنسبه للكود و عند قرائتي له  ، أول خطأ يسبب ببطأ الاكواد  التعامل المباشر مع الواجهه  بداخل Loop  و  ما اقصده  هو هذه الجزئيه

  Label5.Text = Val(Label5.Text) + 1

الاحرى أن تضعه  في متغير  رقمي  و في نهاية الكود يعرض الناتج  في التكس بوك ، و لكن اثناء  Loop  لا افضل ذلك و بامكانك  تجربة ذلك  و حساب الوقت  الذي سيتغرقه التعامل مع الواجهه مباشره بداخل Loop  (تجربه شخصيه) خصوصاً اذا كانت  مواصفات الجهاز  قديمه

ثانياً  لماذا تكرار تعريف جملة الاستعلام بهذا الشكل

     cmd.Parameters.AddWithValue("@LON", colLON.Trim())

غير منطقي تماماً  ،،  يمكنك ببساطه كتابته كالتالي  :  


       Dim cmd As New SqlCommand(String.Format("INSERT INTO DB{0} (CALLop,qso_date,timek,bands,modes,Lfullname,station_callsign,dxcc,cqz,ituz,rst_sent,rst_rcvd,lotw_qsl_sent,lotw_qsl_rcvd,eqsl_qsl_sent,eqsl_qsl_rcvd,qsl_sent,qsl_rcvd,qsl_sent_date,qsl_print,country,qth,LAT,LON,GRIDSQUARE,Lqslmgr,PFX,freq,DateNumber,iota,bk_qsl_sent,time_on,state,operato,nameop,Continent,hamqth_qsl_sent,clublog_qsl_sent) Values (@CALLop,@qso_date,@timek,@bands,@modes,@Lfullname,@station_callsign,@dxcc,@cqz,@ituz,@rst_sent,@rst_rcvd,@lotw_qsl_sent,@lotw_qsl_rcvd,@eqsl_qsl_sent,@eqsl_qsl_rcvd,@qsl_sent,@qsl_rcvd,@qsl_sent_date,@qsl_print,@country,@qth,@LAT,@LON,@GRIDSQUARE,@Lqslmgr,@PFX,@freq,@DateNumber,@iota,@bk_qsl_sent,@time_on,@state,@operato,@nameop,@Continent,@hamqth_qsl_sent,@clublog_qsl_sent)", strcallbk), con)
       cmd.Parameters.Add("@CALLop")
       cmd.Parameters.Add("@qso_date")
       cmd.Parameters.Add("@timek")
       cmd.Parameters.Add("@bands")
       cmd.Parameters.Add("@modes")


       ' Start Loop
       cmd.Parameters("@CALLop").Value = colcall.Trim()
       cmd.Parameters("@qso_date").Value = bkd.Trim()
       cmd.Parameters("@timek").Value = timek.Trim()
       cmd.Parameters("@bands").Value = colbands.Trim()
       cmd.Parameters("@modes").Value = colmodes.Trim()
       cmd.ExecuteNonQuery()
       ' End Loop

بحيث تعرف الاستعلام مره فقط في بداية الكود  و يبقى فقط  ترسل القيم و تسوي Insert  

ثالثاً ربما انت قمت بوضع  try  ويحدث خطأ بمعالجة البيانات  و في كل مره يحدث خطأ يستنزف وقت التنفيذ  ، لذلك وجب عليك الغاء اي تصيد للاخطأ و محاول تصحيح اي بيانات تسبب مشكلة  .

رابعاً : البيانات التي تقوم بجلبها كنص ،  يعني  40000 سجل ليست بالامر الهين خصوصا اذا كان مواصفات جهازك قديمه  قد تسبب نوعاً من  كرش  عند جلبها دفعه واحده في الذاكرة

---

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

http://vb4arb.com/vb/showthread.php?tid=17881

و لكنه خلال كلماته  يذكر بان البيانات  تبقى معلقه بحيث لا تضاف الى قاعدة البيانات  مباشره  لذلك تعتبر اسرع بحيث انه يقوم باضافة جميع البيانات  ثم يعمل Commit و هي تأكيد بالتنفيذ  و الاعتماد بقاعدة البيانات  ، اعتقد انها ربما تكون منطقيه  ، بامكانك تجربته  ، وهذا هو الكود بعد تحويله  

' Creates new sqlite database if it is not found
Using conn = New SQLiteConnection("Data Source=C:\Projects\sqlite\test.sqlite")
' Be sure you already created the Person Table!
conn.Open()
Using cmd = New SQLiteCommand(conn)
Using transaction = conn.BeginTransaction()
' 100,000 inserts
For i As var = 0 To 999999
cmd.CommandText = "INSERT INTO Person (FirstName, LastName) VALUES ('John', 'Doe');"
cmd.ExecuteNonQuery()
Next
transaction.Commit()
End Using
End Using
conn.Close()
End Using


أيضا اود ان تختصر  قليلاً بالكود فلماذا تستعلم  اذا كان موجود  أو لا  ثم ترسل استعلام جديد يضيف البيانات  ، فانا لا اعلم  ان  كانت  SQLite تدعم  او لا ، لكن لا مانع ان تقرأ هذا الموضوع  

http://vb4arb.com/vb/showthread.php?tid=14259