a=data1.Recordset.Fields (0)
0表示字段名

解决方案 »

  1.   

    date控件已经好久不使用了,给你一段ado的代码,可以吗?public a as date
    sub timer_time()
    dim adoconn as new adodb.connection
    dim adors as new adodb.recordset
    dim strSQL as string
    dim b as date
    on error goto err_do
    adoconn.open ("dsn=???;uid=????;pwd=???")
    strsql="select datetime form table "
    set adors=adoconn.execute(strsql)
    b=a
    a=adors.fields!date
    if a=b thenelseendif
    err_do:
      msgbox "不能连接数据库"
    exit sub
    有疑问可以 e_meil:[email protected]
      

  2.   

    Data是小东西;现在都不用了!ADO(ActiveX DataObject)是现在通用的数据访问对象;无论你用VB、VC、Delphi都可以用它
      

  3.   

    变量=data1.Recordset.Fields ("字段名")
      

  4.   

    如果你能和我具体的联系,
    解决了这个问题,可以给更多的分/
    我现在是一个新手,谢谢哥哥们的帮助,
    我先去学习一下ado了,
    有问题在问哥哥。