国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

Insert Date and Time into Access

2020-07-27 13:10:22
字體：大 中 小
供稿：網(wǎng)友
 <%
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
%>

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 寿宁县| 龙海市| 东莞市| 南充市| 尼勒克县| 沙湾县| 万盛区| 祁东县| 徐州市| 比如县| 泸州市| 康保县| 巢湖市| 东乌珠穆沁旗| 榆树市| 临漳县| 出国| 仙桃市| 平和县| 余庆县| 阿拉善左旗| 孟州市| 卢龙县| 伊川县| 高雄县| 祁阳县| 康乐县| 绥中县| 乐安县| 迁安市| 城步| 出国| 从化市| 中阳县| 奎屯市| 小金县| 泾源县| 新巴尔虎右旗| 襄垣县| 商城县| 芦山县|