高手帮忙,从数据库返回记录啊

Question

While Not rs.EOF           lastcount = lastcount + 1
            rs.MoveNext
         Wend
      
           rs.AddNew           rs.Fields(0) = CInt(lastcount) + 1
           rs.Fields(1) = Trim(Text1.Text)
           rs.Fields(2) = Trim(Text2.Text)           rs.Update
           rs.Close
           Me.Hide

Answer 1

你可一用rs.recordcount得到记录总数可以写成这样
dim int_Rs_Count as integer
int_Rs_Count=rs.recordcount
rs.AddNew
rs.Fields(0) = int_Rs_Count + 1
rs.Fields(1) = Trim(Text1.Text)
rs.Fields(2) = Trim(Text2.Text)
rs.Update
rs.Close

Answer 2

你的意思是想得到记录的条数哈!!记住,连接的时候的属性
Dim cnns As New ADODB.Connection
cnns.CursorLocation =adUseClient 然后使用rs.recordcount属性得到数目!