再问一个date的问题
只要有date型的字段，ADO.RecordSet就取不到表中的数据，怎么解决？ 问题点数：100、回复次数：5Top
1 楼penitent（只取一瓢）回复于 2002-11-27 13:10:11 得分 0
不可能，你怎么取的Top
2 楼shsandbeah（炊烟）回复于 2002-11-27 15:51:14 得分 0
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open Session("database_connection")
Set Rs=Server.CreateObject("ADODB.RECORDSET")
sql ="select employeeid,to_char(dd4,'yyyy-mm-dd') from K_Employee2 "
Rs.CursorLocation = 3
RS.Open SQL,cn,1,3
while not rs.eof
response.write rs("employeeid")
'response.write rs("dd4")
rs.movenext
wend
cn.close
set cn=nothing
我选择数据的时候必须加上TO_CHAR（）函数，如果比÷不加就出错，但这样选择出来之后用RESPONSE.WRITE RS("DD4") 也出错
请penitent(只取一瓢)解决一下好吗Top
3 楼shsandbeah（炊烟）回复于 2002-11-27 15:52:12 得分 0
dd4是DATE类型Top
4 楼beckhambobo（beckham）回复于 2002-11-27 16:20:32 得分 100
to shsandbeah(一阵风过) 你这样写是错的
sql ="select employeeid,to_char(dd4,'yyyy-mm-dd') d4 from K_Employee2 "
..............
while not rs.eof
response.write rs("employeeid")
response.write rs("d4")
rs.movenext
wend
rs.close() --------记得要关记录集
set rs.activeconnection=nothing
cn.close()
set cn.activeconnection=nothing
Top
5 楼beckhambobo（beckham）回复于 2002-11-27 16:43:59 得分 0
再看以下例子:
<%
v_rtno=request("rtno")
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT a.*,to_char(bgtime,'yyyy') bgYear,to_char(bgtime,'mm') bgMonth,to_char(bgtime,'dd') bgDay,"&_
"to_char(bgtime,'hh24') bghour,to_char(bgtime,'mi') bgminute,to_char(bgtime,'ss') bgsecond,"&_
"to_char(edtime,'yyyy') edyear,to_char(edtime,'mm') edMonth,to_char(edtime,'dd') edDay,"&_
"to_char(edtime,'hh24') edhour,to_char(edtime,'mi') edminute,to_char(edtime,'ss') edsecond FROM timecard.rest a where rtno='"&v_rtno&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
v_employeeno=rs("employeeno")
v_holid=rs("holid")
v_holcause=rs("holcause")
bgYear=rs("bgYear")
bgMonth=rs("bgMonth")
bgDay=rs("bgDay")
bghour=rs("bghour")
bgminute=rs("bgminute")
bgsecond=rs("bgsecond")
edyear=rs("edyear")
edMonth=rs("edMonth")
edDay=rs("edDay")
edhour=rs("edhour")
edminute=rs("edminute")
edsecond=rs("edsecond")
%>Top
