1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub System_Date_Time_Set()
dim cn as new adodb.connection
Dim S_Rst As New ADODB.Recordset
Dim S_Sql As String
P_Connect.CursorLocation=adUseClient
P_Connect.open ""
S_Sql = "Select To_Char(SYSDATE,'yyyy-mm-dd') " & _
" , To_Char(SYSDATE,'hh24:mi:ss') " & _
" From Dual "
S_Rst.Open S_Sql, cn
Date = S_Rst(0)
Time = S_Rst(1)
S_Rst.Close
cn.close
set cn = nothing
Set S_Rst = Nothing
End Sub