منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هل يُفيدنا أحد الأساتذة الكرام بمثال لتتبع حركة المستخدمين
علماً بأن قاعدة البيانات هى 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

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

بارك الله فيك أستاذ أمير على سرعة إجابتك وسوف اجهز بإذن الله تعالى مثالاً صغيراً أضع فيه المطلوب وهو تتبع حركة المستخدمين
أما الباقي فتمام.
وبالنسبة لسؤالك عن وجود أمثلة في القسم؟
فحقيقةً بحثتُ كثيراً حتى تعبتُ بدون وجود نتائج

[attachment=20637]

تفضل أخي الكريم مثال صغير للمطلوب
تم إرفاق قاعدة البيانات مع ملف المشروع

اسم قاعدة البيانات UserConect
اسم جدول المستخدمين UserSring
اسم جدول متابعة المستخدمين Table_600
اسم الفورم Form_steruser

بعد عدة محاولات ثم عمل المطلوب