我想让数据更新自动获取日期，为什么不行？该怎么解决？

Question

With prvRs
    
            .Open "SELECT * FROM pic_view where pic_id='" & Me.strId & "' ", prvConn, 1, 3
    
            .UpdateBatch       '新增一条记录
            .Fields("pic_name") = Me.pic_name.Text
            .Fields("pic_uploadDate") = "getdate()"   -----------为什么这里出错?
            .Update
        End With

Answer 1

改为
.Fields("pic_uploadDate") = now()

Answer 2

sql=" insert into pic_view(pic_name,pic_uploaddate) values('"& pic_name.text &"',getdate())"
pivconn.execute sql

Answer 3

.Fields("pic_uploadDate") = Date

Answer 4

getdate()就是取得SQL机器所在时间

Answer 5

With prvRs 
    
            .Open "SELECT * FROM pic_view where pic_id='" & Me.strId & "' ", prvConn, 1, 3 
    
            .UpdateBatch      '新增一条记录 
            .Fields("pic_name") = Me.pic_name.Text 
            .Fields("pic_uploadDate") = "getdate()"  -----------为什么这里出错? 
            .Update 
        End With那这里该怎么修改？

Answer 6

这里木有办法改，要么你就用2楼的Insert语句往数据库里写，要么你就修改数据库里pic_uploaddate字段，给他加个默认值，MSSQL里用getdate(),Access里用now()，然后程序里就不用赋值了。

Answer 7

.Fields("pic_uploadDate") = Date 
或
.Fields("pic_uploadDate") = Now 

Answer 8

Dim rs As New ADODB.Recordset
dim conn as New ADODB.Connection 
Set rs= conn.Execute("select getdate() as sysDate")
prvRs.fields("pic_uploadDate") = rs.fields("sysDate")

Answer 9

考虑在定义表的时候在字段后加 default getdata()
例如：create table pic_view
pic_name ......
pic_uploadDate datetime default getdate()
;SQL Server 是肯定可以，不知道你用什么数据库。

Answer 10

getdate()  是 SQL 的函数，当然不能在VB里用了。

Answer 11

.Fields("pic_uploadDate") = cstr(date+time)

Answer 12

数据库中给字段 pic_uploadDate 加上默认值 GetDate()。
程序中就不需要操作该字段，插入记录时会自动赋上默认值。

Answer 13

在表中修改本字段为默认当前时间就好了，SQL不用操作