แทรกวันที่และเวลาในการเข้าถึง

-

FunctionAccessDateTime (DateAndTime)

Dimmyday

Dimmymonth

Dimmyyear

myday = day (DateAndTime)

iflen (myday) = 1thenmyday = "0" และ myday

mymonth = เดือน (DateAndTime)

iflen (mymonth) = 1thenmymonth = "0" & ​​mymonth

myyear = ปี (เวลาที่ใช้งานได้)

AccessDateTime = MyYear & "-" & mymonth & "-" & myday & "" & time ()

endfunction

การเชื่อมต่อแบบ dimconnection

dimsql, sconnstring

sql = "insertintotbldate (ddate) ค่า (#" & accessDateTime (ตอนนี้ ()) & "#)"

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 = ไม่มีอะไร

-