Insert Date and Time into Access
摘要：
<%
FunctionAccessDateTime(dateandtime)
DimmyDay
DimmyMonth
DimmyYear
myDay=Day(dateandtime)
IfLen(myDay)=1ThenmyDay="0"&myDay
myMonth=Month(dateandtime)
IfLen(myMonth)=1ThenmyMonth="0"&myMonth
myYear=Year(dateandtime)
AccessDateTime=myYear&"-"&myMonth&"-"&myDay&""&Time()
EndFunction
Dimconnection
DimSQL,sConnString
SQL="InsertINTOtblDate(dDate)VALUES(#"&AccessDateTime(NOW())&"#)"
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&Server.MapPath("datedb.mdb")
Setconnection=Server.CreateObject("ADODB.Connection")
connection.Open(sConnString)
connection.execute(SQL)
Connection.Close
SetConnection=Nothing
%>
【Insert Date and Time into Access】相关文章：
★ Microsoft JET Database Engine 错误 '80004005' 未指定的错误的完美解决方法
★ 对象标记具有无效的 'MSWC.MyInfo' ProgID