Teman2 ada yang tahu gak, Bagaimana cara me refresh Recordnya yach, biar Label2 selalu terisi dengan Record yang terbaru.
Terimakasih sebelumnya
Dim CONN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim no As Integer
Dim RS As ADODB.Recordset
Dim no As Integer
Private Sub Form_Load()
Set CONN = New ADODB.Connection
Set RS = New ADODB.Recordset
CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BILLSYS\db2.mdb;Persist Security Info=False"
RS.Open "SELECT * FROM STD0510", CONN, adOpenDynamic, adLockOptimistic
RS.MoveLast
Label2.Caption = RS!CALLEDNO
Label2.Caption = RS!CALLEDNO
End Sub
Private Sub Timer1_Timer()
no = no + 1
no = no + 1
RS.MoveLast
Label2.Caption = RS!CALLEDNO
Label3 = no
End Sub
Label2.Caption = RS!CALLEDNO
Label3 = no
End Sub
Yahoo! Music Unlimited - Access over 1 million songs. Try it free.
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
