26-02-15, 02:28 PM
السلام عليكم
اخواني الكرام لدي برنامج قمت بتصميمه بلغة فيجوال بيسك 6 ومربوط بقاعدة بيانات على SQL Server2008 وهو يعمل بشكل ممتاز ولكن في بعض الاحيان عند الضغط على زر امر تحديث بيانات عداد القراءة لايستجيب التحديث وتظهر رسالة تفيد بانتهاء مدة الاتصال مع العلم بان المشكله ليست مستمره ولكن تظهر بين فتره واخرى
الكود المستخدم هو:
ارجو مساعدتي لحل هذه المشكله
اخواني الكرام لدي برنامج قمت بتصميمه بلغة فيجوال بيسك 6 ومربوط بقاعدة بيانات على SQL Server2008 وهو يعمل بشكل ممتاز ولكن في بعض الاحيان عند الضغط على زر امر تحديث بيانات عداد القراءة لايستجيب التحديث وتظهر رسالة تفيد بانتهاء مدة الاتصال مع العلم بان المشكله ليست مستمره ولكن تظهر بين فتره واخرى
الكود المستخدم هو:
كود :
Private Sub varno()
SQLs = " Select * From Setting where Optine = '" & Text17.Text & "' "
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQLs, DB, adOpenKeyset, adLockPessimistic
If Not Rs.EOF Then
Rs![DaonarID] = Label12
Rs.Update
End If
End Sub