获取oracle服务器上的当前时间

 '从服务器上获取时间
        Public Function getDBServerTime() As String
            Dim strsql As String
            Dim dr As OracleDataReader
            Try
                strsql = " SELECT to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') as CURRENTTIME from a_photo where rownum < 2"
                dr = OracleHelper.ExecuteReader(GetConn2, System.Data.CommandType.Text, strsql)
                If dr.Read Then
                    Return dr("CURRENTTIME").ToString
                    'DateAndTime.Now.ToString(strDateFormat)
                Else
                    Return ""
                End If
            Catch ex As Exception
                Return ""
            Finally
                If Not dr Is Nothing Then dr.Close()
            End Try
        End Function