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

首頁 > 編程 > ASP > 正文

Insert Date and Time into Access

2024-05-04 10:58:06
字體：大 中 小
來源：轉載
供稿：網友
 <%
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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 如东县| 温泉县| 阿瓦提县| 罗平县| 郎溪县| 肥城市| 嘉义市| 石泉县| 分宜县| 襄垣县| 泰安市| 三河市| 青冈县| 金门县| 九台市| 阜新| 象州县| 临江市| 舞阳县| 轮台县| 永德县| 武邑县| 贵州省| 四会市| 新巴尔虎右旗| 西宁市| 九江市| 桃园县| 齐河县| 延川县| 七台河市| 剑阁县| 屏东市| 乌拉特中旗| 东光县| 明星| 宜宾市| 化隆| 来凤县| 陵水| 策勒县|