[athab]

السلام عليكم
اخواني الكرام لدي برنامج قمت بتصميمه بلغة فيجوال بيسك 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

ارجو مساعدتي لحل هذه المشكله

[superwoofer]

استخدم
rs.refresh

[محمد العبيدي]

اخي العزيز عند التعامل مع قواعد بيانات مثل الsql server او mysql فالمفضل انه تفتح اتصال مع الداته بيس وتتفذ الاستعلام ثم تغلق الاتصال بالداته بيس وهكذا في كل مره لتجنب الاتصال بقاعدة البيانات لوقت طويل.