程序目的想比較當前數據庫內本月出生的人賦給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的值根據rs.MoveNext從01到12If ty = tt Then '判斷是否本月份aa(i) = rs("name")i = i + 1End Ifrs.MoveNextLoop

熱心網友

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

熱心網友

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