Public Function GetSysDate() As Date
On Error Resume Next
Dim str1 As String
Dim ado1 As New ADODB.Recordset
str1 = "select distinct sysdate from table1"
ado1.Open strSQLa, ZhcxCon
GetSysDate = CDate(Format(ado1(0).Value, "yyyy-mm-dd HH:NN"))
Set ado1 = Nothing
End Function''ZhcxCon(你的连接)
On Error Resume Next
Dim str1 As String
Dim ado1 As New ADODB.Recordset
str1 = "select distinct sysdate from table1"
ado1.Open strSQLa, ZhcxCon
GetSysDate = CDate(Format(ado1(0).Value, "yyyy-mm-dd HH:NN"))
Set ado1 = Nothing
End Function''ZhcxCon(你的连接)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货