Dim cn As New ADODB.Connection Dim rs As New ADODB.RecordsetDim Mtime cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="123.mdb;Jet OLEDB:Database Password=xitec;Persist Security Info=False" rs.Open "select *from timetab", cn, adOpenStatic, adLockOptimistic
rs("开始时间") = Now rs.Update rs.Close cn.Close Set rs = Nothing Set cn = Nothing ---------------------保存成功吗? '调用: rs.movefirst Mtime = rs("开始时间").Value 试试!如果不行,在写,继续关注!
很显然你保持的有问题 now 返回的是 2002-4-16 13:14:03 这样格式的数据 而你在数据库中的数据是 2002-4-16的格式的 更新的时候,可能把 2002-4-16 13:14:03这样的格式的数据进行转换 由于不符合2002-4-16的格式,故转换失败,就返回0;0;0了,所以你读出来的 就是0;0;0了 你把 now函数换成 Date 函数就可以了!
daoke(该怎么样,就怎么样吧~~~~) 在数据库中的也是2002-4-16 13:14:03
这个就是我做的一个管理系统里的关于时间的语句 adotemp.RecordSource = "select StartDate,Limit from Limit " adotemp.Refresh 其中,startdate,是一个日期型的数据,存入时就是date,用上面的这个命令就可以读出来了。
换一下试试 Dim Mtime As Date ——> Dim Mtime As string
不好意思啊,我刚才犯了一个错误 以下是我写的代码,一确正常!!! Private Sub Form_Load()Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Mtime As Date cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=123.mdb;" rs.Open "select * from timetab", cn, adOpenStatic, adLockOptimistic
rs("开始时间") = Now rs.Updaters.Close'调用: rs.Open "select *from timetab", cn, adOpenStatic, adLockOptimistic Mtime = rs("开始时间").Value rs.Close cn.CloseSet rs = Nothing Set cnn = Nothing Debug.Print Mtime End Sub
存入没问题,可是调用出来的总是0:00:00
继续在线等待.:)
Dim rs As New ADODB.RecordsetDim Mtime cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="123.mdb;Jet OLEDB:Database Password=xitec;Persist Security Info=False"
rs.Open "select *from timetab", cn, adOpenStatic, adLockOptimistic
rs("开始时间") = Now
rs.Update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
---------------------保存成功吗?
'调用: rs.movefirst
Mtime = rs("开始时间").Value
试试!如果不行,在写,继续关注!
我用了,存入正确,读出就成了0:00:00
能否把你的代码贴出来看看jdsbjcailei(基度山伯爵)
你的方法和我的一样.
rexyudl(雪人)
你说的是不是格式?是的话,我觉得应该和它无关吧.都是日期/时间格式嘛.继续等待:)
now 返回的是 2002-4-16 13:14:03 这样格式的数据
而你在数据库中的数据是 2002-4-16的格式的
更新的时候,可能把 2002-4-16 13:14:03这样的格式的数据进行转换
由于不符合2002-4-16的格式,故转换失败,就返回0;0;0了,所以你读出来的
就是0;0;0了
你把 now函数换成 Date 函数就可以了!
在数据库中的也是2002-4-16 13:14:03
adotemp.RecordSource = "select StartDate,Limit from Limit "
adotemp.Refresh
其中,startdate,是一个日期型的数据,存入时就是date,用上面的这个命令就可以读出来了。
Dim Mtime As Date
——>
Dim Mtime As string
以下是我写的代码,一确正常!!!
Private Sub Form_Load()Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Mtime As Date
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=123.mdb;"
rs.Open "select * from timetab", cn, adOpenStatic, adLockOptimistic
rs("开始时间") = Now
rs.Updaters.Close'调用:
rs.Open "select *from timetab", cn, adOpenStatic, adLockOptimistic
Mtime = rs("开始时间").Value
rs.Close
cn.CloseSet rs = Nothing
Set cnn = Nothing
Debug.Print Mtime
End Sub
还有,你的 select * 返回几个记录????????
http://www.csdn.net/expert/topic/650/650186.xml?temp=.5396234