(21-02-19, 12:51 PM)boudyonline كتب : اخي الفاضل
تحقق دائما ما اذا كان الاتصال مفتوح ام لا ثم قم بفتحه
كود :
If con.State = ConnectionState.Open Then con.close
احسنت بارك الله فيك
مشت الامور معاي والحمدالله
(21-02-19, 03:24 PM)elgokr كتب :وعليكم السلام ورحمة الله وبركاته
كما وضح لك اخى boudyonline
كل ما عليك فعله هو عدم وضع كود الفتح مباشراً بهذا الشكل
كود :
con.Open()
يفضل ان تجعل الكود فى شرط التحقق حيث يقوم بالتحقق اذا كانمغلق يقوم بفتح الاتصال لتجنباً لحدوث اتمام الفتح لاكثر من مرةولا يتشرط الامر فى حالة انك على دراية تامة انك تقوم باغلاق بعد نهاية كل امر
ليصبح الشكل بهذا الامر كود الفتح
كود :
If con.State = ConnectionState.Close Then con.Open
بالنهاية يبدو ان الامور لا يتعلق فى هذا النطاق فقطوعلى اى حال بدلاً من اتمام شرح مطول عن الامر فيفضل متابعة تلك الدورة لعلها تفيدك كثيراً
تحياتى لكوتمنياتى لك التوفيق
احسنت استاذي الكريم دائما نستفيد منك
شكرا لك على المعلومات ساتابع الشرح ان شاءالله
بس سؤال
هل هذه الطريقه تنفع
كود :
If (con.State.ToString() = "Open") Then
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
Else
If con.State = ConnectionState.Closed Then con.Open()
End If