[thevirus]

طلب كود اريد معرفة كم شخص متصل في قاعدة  البيانات الموجودة عندي على السيرفر

[ممدوح]

تفضل

كود :

Dim ret As Integer
Using cmd As New SqlCommand("SELECT COUNT(*) FROM sys.sysprocesses WHERE spid>50 ", cnn)
    If cnn.State <> ConnectionState.Open Then cnn.Open()
    ret = cmd.ExecuteScalar
    cnn.Close()
    SqlConnection.ClearPool(cnn)
End Using
MsgBox(ret)

كما تلاحظ تم تنفيذ الأمر SqlConnection.ClearPool بعد إغلاق الاتصال لازالة هذا الاتصال المغلق من الحسبة

وهنا يجب التنبيه إلى تنفيذ هذا الأمر والذي هو SqlConnection.ClearPool بعد غلق الاتصال مباشرة بالامر cnn.Close


قد تلاحظ أن الناتج 1 أو2 بالرغم من عدم وجود اتصالات، فقم بطرح هذا العدد من الناتج.

[thevirus]

(29-10-16, 03:01 AM)ممدوح كتب : تفضل

كود :

Dim ret As Integer
Using cmd As New SqlCommand("SELECT COUNT(*) FROM sys.sysprocesses WHERE spid>50 ", cnn)
   If cnn.State <> ConnectionState.Open Then cnn.Open()
   ret = cmd.ExecuteScalar
   cnn.Close()
   SqlConnection.ClearPool(cnn)
End Using
MsgBox(ret)

كما تلاحظ تم تنفيذ الأمر SqlConnection.ClearPool بعد إغلاق الاتصال لازالة هذا الاتصال المغلق من الحسبة

وهنا يجب التنبيه إلى تنفيذ هذا الأمر والذي هو SqlConnection.ClearPool بعد غلق الاتصال مباشرة بالامر cnn.Close


قد تلاحظ أن الناتج 1 أو2 بالرغم من عدم وجود اتصالات، فقم بطرح هذا العدد من الناتج.

شكرا لك اخي الكريم لكن عندما عندي قاعدة بيانات من نوع اكسس لازم اغيرها الى SQL ام هناك حل افضل علما ان المستخدمون للقاعدة لن يتعدى 7 اجهزة وحسب معلومات قرأتها ان قاعدة بيانات من نوع اكسس يمكنها تحمل 15 جهاز كحد اقصى