[dubai.eig]

(21-02-19, 04:09 PM)حريف برمجة كتب : الأفضل فتح الإتصال بداية الكود

ثم تنفيذ العمليات

في النهاية إغلاق الإتصال

احسنت استاذي الكريم

شكرا لوجودك الحمدالله والشكر

---

(21-02-19, 04:17 PM)elgokr كتب : يكتفى ان تجعل الكود بهذا الشكل

كود :

       '\\\\\\\\\\\\\\\\ كود فتح الاتصال /////////////'
       If con.State <> ConnectionState.Open Then con.Open()
       '\\\\\\\\\\\\\\\\ كود فتح الاتصال /////////////'

       'بداية كود الاستعلام
       Dim cmd41 As New SQLiteCommand(String.Format("SELECT * FROM DB{0} WHERE CALLop = @CALLop and bands = @bands and modes = @modes", Stadd), con)
       cmd41.Parameters.AddWithValue("CALLop", Trim(a3))
       cmd41.Parameters.AddWithValue("bands", Trim(bandsxxs))
       cmd41.Parameters.AddWithValue("modes", Trim(modesCXXX))
       Dim rowCount41 As Integer = Convert.ToInt32(cmd41.ExecuteScalar())
       If rowCount41 <> 0 Then

       Else
           c1 = "M/B"
       End If
       'نهاية كود الاستعلام


       'ضع اكواد خاصة الاستعلام / البحث هنا كما تشاء


       '\\\\\\\\\\\\\\\\ كود اغلاق الاتصال /////////////'
       con.Close()
       '\\\\\\\\\\\\\\\\ كود اغلاق الاتصال /////////////'

طبق كما هو تم شرحه فى الكود

تحياتى لك

وتمنياتى لك التوفيق

تم التطبيق والحمدالله  الامور طيبه ولله الحمد

سابقا كانت تطلع لي رساله

كود :

Exception thrown: 'System.IndexOutOfRangeException' in System.Data.SQLite.dll

حاليا لم تطلع

احسنت بارك الله فيك



بس بعد اذنك استاذي ممكن تمر هنا 
http://vb4arb.com/vb/showthread.php?tid=28430