欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

Insert Date and Time into Access

程序员文章站 2022-07-12 08:19:59
 <% function accessdatetime (dateandtime) dim myday dim my...
 <%
function accessdatetime (dateandtime)
dim myday
dim mymonth
dim myyear

myday = day(dateandtime)
if len(myday)=1 then myday="0" & 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.open(sconnstring)
connection.execute(sql)

connection.close
set connection = nothing
%>