sql = "select convert(varchar(10),getdate(),108) as cTime"    '取当前时间
....
rs.open sql,conn,0,3
msgbox(rs.fields("cTime").Value)

解决方案 »

  1.   

    把select语句写成"select getdate() as ii", 程序如下:    Dim cc As New ADODB.Connection
        cc.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=XXUE", "sa", ""
        
        Dim rst As New ADODB.Recordset
        rst.Open "select getdate() as ii", cc, adOpenStatic, adLockReadOnly
        
        Dim dd As Date
        dd = rst.Fields("ii")
        Debug.Print dd
      

  2.   

    sql = "select convert(varchar(10),getdate(),120) as cTime"    '取当前日期
    ....
    rs.open sql,conn,0,3
    msgbox(rs.fields("cTime").Value)108是指带世纪数位 (yyyy)的时间hh:mm:ss
    120是指ODBC规范的带世纪数位 (yyyy)的日期yyyy-mm-dd 
      

  3.   

    如果是sql = "select convert(varchar(20),getdate(),120) as cTime"话,得到的cTime是yyyy-mm-dd hh:mm:ss格式的字符串