اريد المساعدة الحصول علي التاريخ والوقت الخاص بالسيرفر

اريد الحصول علي التاريخ والوقت الخاص بالسيرفر عن طريق كود بالفجوال بيسك 6

عندي الكود هذا ولكن مكتوب بالفجوال بيسك نت وجدة في هذا المنتدى :

Dim CnnData, sql As String

Dim MyConnection As SqlConnection

Dim MyCommand As SqlCommand

' CnnData = "Data Source=WIN2003;Initial Catalog=Northwind;User ID=sa;Password=1111111111;"

CnnData = "Data Source=WIN2003;Initial Catalog=Northwind;"

Try

MyConnection = New SqlConnection(CnnData)

MyConnection.Open()

Catch er As System.Data.SqlClient.SqlException

MsgBox("نأسف ... يجب إغلاق البرنامج . تحقق من السيرفر أو الشبكة", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.OkOnly, "رسالة إغلاق")

End

End Try

sql = "select Getdate()"

MyCommand = New SqlCommand(sql, MyConnection)

MyCommand.ExecuteNonQuery()

Label1.Text = MyCommand.ExecuteScalar

MyConnection.Close()

اريد مثل هذا الكود بس بالفجوال بيسك 6

او اي مثال اخرى ان امكن

ولكم جزيل الشكر