脚本宝典收集整理的这篇文章主要介绍了Insert Date and Time into Access,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
&nbs
p;<%
Function Acce
SSDateTime (dateandtime)
Dim 
;myDay
Dim myMonth
Dim m
yyear
myDay = Day(dateandtime)
If Len(myDay)=1 Then myDay="0" &
amp; myDay
myMonth = Month(dateandtime)
If Len(myMonth)=1 Then myMonth="0" & myMonth
myYear = Year(dateandtime)
AccessDateTime = myYear & "-" & myMonth & "-" & myDay & " " & Time()
End Function
Dim connection
Dim
SQL, sConnString
SQL="Insert INTO tblDate (dDate) VALUES (
#" & AccessDateTime(NOW()) & "#)"
sConnString="
PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("datedb.mdb")
Set connection = Server.CreateObject("ADODB.Connection")
connection.O
PEn(sConnString)
connection.execute(SQL)
Connection.Close
Set Connection = Nothing
%>
脚本宝典总结
以上是脚本宝典为你收集整理的Insert Date and Time into Access全部内容,希望文章能够帮你解决Insert Date and Time into Access所遇到的问题。
如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。