حل مشكلة طلب التاريخ والوقت من الا سكيو ال سيرفر

كثرة الأسئلة في مختلف المنتديات عن موضوع كيف اجعل برنامجي يأخذ التاريخ من السيرفر بدلاً من جهاز المستخدم واحببت ان اوضح للأخوان الكرام الطريقه بأستخدام الفيجول مع ال (SQL SERVER)

**************************************************

1- اذهب الى القاعدة المراد الاتصال بها في ال (SQL)

2- اختر احد الجداول ثم اضف اليه حقل سمه ب(SERVERDATE) اجعل خاصية (DATATYPE) ب (DATETIME) ثم في خانة (Default Value) اكتب الاتي

( GETDATE () )

3- ضع تايمر على النموذج المراد اظهار التاريخ ثم ضع الكود الاتي

Private Sub Timer1_Timer()
Dim strSql As String
       Dim Millisecs As Integer
       Dim Hundredths As Integer
       Set RS = New ADODB.Recordset
       cn.Execute "UPDATE tablename SET SERVERDATE = GetDate()"
       strSql = "SELECT SERVERDATE, DATEPART(MS,SERVERDATE)AS SQLsDP FROM tablename"
       RS.Open strSql, cn
       Millisecs = GetMilliseconds(RS("SERVERDATE"))
End Sub

4- اضف الكود الاتي اما تابع للنموذج او في مجل

Function GetMilliseconds(ByVal varDateTime As Variant) As Long
       Dim decTime As Variant
       Dim mydate1 As String
       Calendar = vbCalHijri
       decTime = CDec(varDateTime)
       mydate1 = varDateTime
       Label3.Caption = Format(mydate1, "yyyy/mm/dd")
End Function

ملاحظه تخص الكتابة التي باللون الاحمر

tablename

قم بتغييره الى اسم الجدول الذي يضم الحقل الجديد

label3.caption

قم بتغييره الى المكان الذي تريده ان يظهر فيه التاريخ او اجعله متغيير عام حتى يمكنك ان تستخدمه في جميع زوايا واركانات البرنامج

هذا شرح مكمل لبعض الدروس الموجوده في منتدى (vb4arab)

السلام عليكم