1. Cek timer nya sudah enable belum ?
2. Kalau sudah enabled, coba ganti pake script yg ini
Dim CONN As ADODB.Connection
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.MoveFirst
Label2.Caption = RS!CALLEDNO
End Sub
Private Sub Timer1_Timer()
no = no + 1
do while not rs.eof
Label2.Caption = RS!CALLEDNO
Label3 = no
rs.movenext
loop
End Sub
Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta
| zarifinz <[EMAIL PROTECTED]>
Sent by: [email protected] 11/10/2005 09:36 AM
|
|
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
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
End Sub
Private Sub Timer1_Timer()
no = no + 1
RS.MoveLast
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.
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
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.
