Private Sub Command1_Click() Dim db As DAO.Database Set db = OpenDatabase(App.Path & "\dataqlt.mdb") Dim Qrr As DAO.QueryDef Set Qrr = db.QueryDefs("Query1") Qrr.SQL = "select * from kho" Dim tabl As DAO.Recordset Set tabl = db.OpenRecordset("Query1") MsgBox tabl.RecordCount End Sub đây là đoạn code trong VB6 của e, rõ ràng trong Table Kho có 4 record , mở Query ra cũng có 4 record , nhưng mà sao khi msgbox nó toàn báo có 1 record ko ah,e có gửi file code kèm theo,anh em coi giúp e với , gáp lắm , t5 phải nộp bài rồi mà h còn bị vướn cái này wai , ai giúp e với mốt có mua đồ của e e giảm giá 1000% cho
Mà sao không dùng ADO mà lại dùng DAO. Viết theo ADO set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("dataqlt.mdb")) set rs=Server.CreateObject("ADODB.recordset") sql="SELECT * FROM Kho" rs.Open sql,conn MsgBox "Số dòng : " & rs.RecordCount & " " rs.Close conn.Close Viết theo DAO Dim db As DAO.Database Dim rs As DAO.Recordset Dim FindRecordCount AS Long Set db = OpenDatabase(App.Path & "\dataqlt.mdb") Set rs = db.OpenRecordset("SELECT * FROM Kho") If rs.EOF Then /* nếu là cuối file */ FindRecordCount = 0 Else rs.MoveLast /* di chuyển 1 node */ FindRecordCount = rs.RecordCount End If rs.Close db.Close Set rs = Nothing Set db = Nothing MsgBox " Số dòng : " & FindRecordCount & " " P/S : Nên xem MSDN
