主页 > 知识库 > Insert Date and Time into Access

Insert Date and Time into Access

热门标签:企数外呼系统能用多久 为什么外呼系统需要预存话费呢 兰州智能语音电销机器人功能 外呼回拨系统图片 宁夏怎么申请400电话 离线电子地图标注软件注册 咸阳销售外呼系统 常用地图标注范围点 办理400电话一年多少钱
 %
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
%>

标签:温州 家电维修 昆明 泰州 丽江 咸阳 铁岭 昌都

巨人网络通讯声明:本文标题《Insert Date and Time into Access》,本文关键词  Insert,Date,and,Time,into,Access,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《Insert Date and Time into Access》相关的同类信息!
  • 本页收集关于Insert Date and Time into Access的相关信息资讯供网民参考!
  • 推荐文章