Insert Date and Time into Access

ttx9n · 发表于 2007-4-4 00:00:00

<%
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
%>

lba36h7g · 发表于 2022-9-16 08:41:02

笑纳了老板

a971560 · 发表于 2022-10-7 17:03:25

哈哈哈哈哈哈

btbhs8t · 发表于 2022-10-16 09:57:06

刷刷刷刷刷刷刷刷刷刷刷刷刷刷刷

i3x3r3 · 发表于 2022-11-10 20:22:52

我要金豆金豆金豆

.l4 · 发表于 2022-12-14 07:34:00

天天源码论坛

gc4hg · 发表于 2023-1-15 18:42:43

看看怎么样再说

9jduu05 · 发表于 2023-8-9 11:56:56

天天源码社区www.tiantianym.com

nwk53kbd · 发表于 2023-8-20 13:17:37

很不错的玩意

btbhs8t · 发表于 2023-11-13 15:49:45

儿童服务绯闻绯闻绯闻

账号		自动登录	找回密码
密码			立即注册

[ASP编程] Insert Date and Time into Access

相关帖子