Advertisement
Advertisement
| 02.11.2008 at 05:42PM PST, ID: 23154966 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: |
Public Shared Function Get_Server_Date() As DateTime
Dim conApp As System.Data.SqlClient.SqlConnection
conApp = New SqlClient.SqlConnection(strConnectionSetup)
conApp.Open()
Try
Dim strCommand As String = "SELECT GETDATE() FROM TMUSER"
Dim cmdSqlCommand As SqlCommand = New SqlCommand(strCommand, conApp)
Get_Server_Date = cmdSqlCommand.ExecuteScalar
Catch ex As Exception
End Try
End Function
|