• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• This function returns a server date when you are connected to SQL Database through Microsoft RDO fr

This function returns a server date when you are connected to SQL Database through Microsoft RDO fr

This function returns a server date when you are connected to SQL Database through Microsoft RDO from a workstation. If no date is returned

Rate This function returns a server date when you are connected to SQL Database through Microsoft RDO fr

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  
  'Declare a resultset variable
  Dim rs As rdoResultset
  'Ignore all errors in case of any
  On Error Resume Next
  Err.Clear
  'Open a resultset that picks the server date else returns workstation date
  Set rs = rdoconnect.OpenResultset("SELECT Getdate() as ServerDate")
  If Err.Number <> 0 Then SessionDate = Date Else SessionDate = rs!ServerDate
  Set rs = Nothing
  Err.Clear

End Function