VB6 แสดงจำนวน จำนวน ของข้อมูล

ramida

วิธีให้ Label1.caption  วิ่งจำนวน record เวลา select ข้อมูล   #   จำนวนบวกไปจนครบจำนวนทั้งหมด /  จำนวนทั้งหมด      

thongkorn

มันจะแสดงผลเร็วมากน่ะครับ

1.     Dim RS As New ADODB.Recordset
   
2.     Set RS = New Recordset
   
3.     RS.CursorLocation = adUseClient
   
4.     Dim Statement As String
   
5.     Statement = "SELECT tbl_IC_Product.* " & _
   
6.                             " From tbl_IC_Product " & _
   
7.                             " ORDER BY ProductPK "
   
8.     RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
   
9.     Dim i As Long
   
10.     For i = 1 To RS.RecordCount
    
11.         Label1.Caption = "ข้อมูลที่ : " & i & "/" & RS.RecordCount
    
12.         RS.MoveNext
    
13.     Next
    
14.     RS.Close:   Set RS = Nothing

คัดลอกไปที่คลิปบอร์ด