程序目的想比較當前數(shù)據(jù)庫內(nèi)本月出生的人賦給list1.list(i)但是判斷上出問題..Dim conn As New adodb.ConnectionDim rs As New adodb.RecordsetDim aa(128)Dim tt, tyconn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "ziliao.mdb"conn.Opensql = "select * from jiben order by aday"rs.Open sql, conni = 0tt = Format(Month(Date), "00") 'tt的值為02Do While Not rs.EOFty = Left$(rs("aday"), 2) 'ty的值根據(jù)rs.MoveNext從01到12If ty = tt Then '判斷是否本月份aa(i) = rs("name")i = i + 1End Ifrs.MoveNextLoop

熱心網(wǎng)友

你用的是ADO函數(shù)和設計器完成的,所以要判斷一下設計器設計的時候提供數(shù)據(jù)源是否成功,所提供數(shù)據(jù)是只讀還是共享,還有就是ADO函數(shù)的引用

熱心網(wǎng)友

用 IF THEN ELSE 語句會簡單些。 詳細INPUT等語句我想不用我寫了吧。。。。