(15-01-19, 07:21 PM)مصمم هاوي كتب : هل يُفيدنا أحد الأساتذة الكرام بمثال لتتبع حركة المستخدمين
علماً بأن قاعدة البيانات هى sql 2008
وكود الاتصال :

كود :

Public Sub Con(ServerName As String)
On Error Resume Next
If Cn.State = 1 Then Cn.Close
On Error GoTo erorr
Cn.Open "Provider=SQLOLEDB.1;Integrated SECURITY=SSPI;Persist SECURITY Info=False;Initial Catalog=UserConect  ;Data Source=" & ServerName
activation = True
Exit Sub
erorr:
MsgBox  "بيانات السيرفر" خطأ في اسم السيرفر"
activation = False
End Sub

(15-01-19, 08:07 PM)Amir_Alzubidy كتب :

(15-01-19, 07:21 PM)مصمم هاوي كتب : هل يُفيدنا أحد الأساتذة الكرام بمثال لتتبع حركة المستخدمين
علماً بأن قاعدة البيانات هى sql 2008
وكود الاتصال :

كود :

Public Sub Con(ServerName As String)
On Error Resume Next
If Cn.State = 1 Then Cn.Close
On Error GoTo erorr
Cn.Open "Provider=SQLOLEDB.1;Integrated SECURITY=SSPI;Persist SECURITY Info=False;Initial Catalog=UserConect  ;Data Source=" & ServerName
activation = True
Exit Sub
erorr:
MsgBox  "بيانات السيرفر" خطأ في اسم السيرفر"
activation = False
End Sub

السلام عليكم و رحمة الله 
اهلا بك اخي الحبيب
اين ملف المشروع !
على الاقل قم بكتابة قاعدة البيانات وجدول واحد اقلّها
يحتوي على رقم تسلسل و اسم المستخدم و وقت الدخول و وقت الخروج و تاريخ اليوم  وبقية الحقول ... 
بالاضافة الى فورم واحد ومديول فيه نص الاتصال ؟
كذلك الامر شاشة تسجيل الدخول 
هل يفتقد القسم تلك الامثلة ؟