06-09-17, 03:04 AM
كود :
Private Function dt() As DateTime
Dim str As String = "server=(Local)\sqlexpress;Integrated Security=True;"
Dim con As New SqlClient.SqlConnection(str)
Dim cm As New SqlClient.SqlCommand("select GetDate()", con)
If con.State = ConnectionState.Closed Then con.Open()
Return cm.ExecuteScalar.ToString
End Function
اشكر من سال السؤال