[ممدوح]

تفضل

كود :

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 بالرغم من عدم وجود اتصالات، فقم بطرح هذا العدد من الناتج.