Hi...
coba code di timer nya jadi in ini
Private Sub Timer1_Timer()
Dim RS As ADODB.Recordset
set rs=new adodb.recordset
RS.Open "SELECT * FROM STD0510", CONN,
adOpenDynamic, adLockOptimistic
no = no + 1
RS.MoveLast
Label2.Caption = RS!CALLEDNO
Label3 = no
rs.close
End Sub
sekedar saran,untuk koneksi ke database,sebaiknya di
pindahkan ke dalam satu modul atau class,itu lebih
memudahkan dalam pengaplikasian dalam banyak form..
mudah2han membantu
--aL--
--- zarifinz <[EMAIL PROTECTED]> wrote:
> 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.
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/cd_AJB/QnQLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
