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]
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]
解决了这个问题,可以给更多的分/
我现在是一个新手,谢谢哥哥们的帮助,
我先去学习一下ado了,
有问题在问哥哥。