通常sql数据存储时间为日年月形式,但用year()/month()/day()取时容易出错。
解决办法如下:
Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim rs As New ADODB.Recordset
If cn.State = adStateOpen Then
cn.Close
End If
cn.open "连接字符串"
cm.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.open "set dateformat ymd",cn,3,1
cm.commandtext="insert into 库名 values(等等)"
cm.Execute
cn.close
set cn=nothing
+++++++++++++++++++++++++++++++++++++
这样,就避免了时间类型的存储问题,服务器存储的是ymd形式,存取方便多了!