[dubai.eig]

(30-03-17, 03:47 AM)dubai.eig كتب : السلام عليكم

اخواني 


ممكن مساعدتي في الكود المرفق
هو عباره عن 

اقوم بارسال ملف الى موقعي وبعد الارسال اقوم بتحديث قاعدة البيانات في خانت 
clublog_qsl_sent
من N   الى Y
للجميع من قمت بارساله


الكود شغال يرسل الملف بس وقت التحديث يكون بطئ

انا حاولت احط كود اخي [b]myalsailamy  في البرنامج بس ما ضبط  اكيد محتاج لمسات بسيطه [/b]

جزاكم الله الف خير

واسمحولي اذا كان الملف كبير شويه لا اعرف لماذا اعتقد عندما انزل package System.Data.SQLite.Core

http://bkqslmanager.com/WindowsApplication6.rar

---

السلام عليكم

جربت اني اتلاعب في الكود واشتغل

ويقوم بالتحديث

بس عندما  يحدث عدد كبير من يوصل الى رقم 
10258

يعلق ويعطيني مسج 

كود :

10258 | Start Add :30:00
A first chance exception of type 'System.NullReferenceException' occurred in BKLog.exe
SQLite error (5): database is locked
SQLite error (5): database is locked
SQLite error (5): database is locked
SQLite error (5): database is locked

وهذا الكود

كود :

                           ProgressBar1.Maximum = Me.DataGridView1.Rows.Count - 1
                           cn.Open()

                           Dim index As Integer = 0
                           Using transaction = cn.BeginTransaction()
                               'cmdCheckCount.Transaction = transaction
                               cmdInsert.Transaction = transaction
                               For i = 0 To DataGridView1.RowCount - 1
                                   ProgressBar1.Value = index
                                   Label4.Text = InsertedCount
                                   'Label5.Text = ErrorCount
                                   Call Me.addData(index)
                                   index += 1
                               Next
                               transaction.Commit()
                           End Using

انا قمت بتغيير 

كود :

  For Each txtLine As String In ms

الى

كود :

For i = 0 To DataGridView1.RowCount - 1