有關日期類型的問題,請各位幫忙.

Question

你可以把它转化为字符型，再插入。在sql server里操作datetime型，可以像操作字符型一样处理。

Answer 1

直接赋值即可
一般不用转换
如果需要转的话
最多定义一下他的格式
可以在vb中用format函数
或者在sqlserver接受的时候用convert

Answer 2

在代碼里是這樣做的,請各位幫忙看看
dim ld_ydate as date
dim grq_update as rdoquery
If IsDate(Trim(MaskEdBox2(8).Text)) Then
   ld_ydate = CDate(Trim(MaskEdBox2(8).Text))
end ifSet Grq_update = so_Prod.CreateQuery("InsertA", "")
Grq_update.SQL = "insert into applybill(aid,ydate) values('"+ls_aid+"',"+ld_ydate+"')"
Grq_update.Execute
Grq_update.Close

Answer 3

Grq_update.SQL = "insert into applybill(aid,ydate) 
values('"+ls_aid+"','"+ld_ydate+"')"         --这里好象少了一个'号

Answer 4

formatdatetime('2005-8-18','yyyy-mm-dd hh:nn:ss')就可以了!

Answer 5

to : aw511(点点星灯)
不好意思,本來日期類型的都沒有加"'",但是全部加上系統還是提示型態不符.to : softj(天地客人<最近很迷茫>) 
能告訴我在代碼里到底怎麼寫嗎,我寫成如下的還是提示型態不符,
Grq_update.SQL = "insert into applybill(aid,ydate) values('" + ls_aid + "',formatdatetime(" + ld_ydate + ",'yyyy-mm-dd hh:nn:ss')"

Answer 6

如果把ld_ydate 改為getdate()就沒問題,請問為沈麼.
幫幫忙呀

Answer 7

试试这样呢？？Dim ld_ydate As Date
Dim grq_update As rdoquery
If IsDate(Trim(MaskEdBox2(8).Text)) Then
   ld_ydate = CDate(Trim(MaskEdBox2(8).Text))
End IfSet grq_update = so_Prod.CreateQuery("InsertA", "")
grq_update.SQL = "insert into applybill(aid,ydate) values('" & ls_aid & "','" & ld_ydate & "')"
grq_update.Execute
grq_update.Close

Answer 8

謝謝各位,問題解決了!是我對convert沒有理解清楚.
用convert(datetime,ld_ydate),