Re: [Programmer-VB] Kenapa script ini tidak bisa refresh record terbaru??

[sistanori]

halo..   maaf nih sekedar perbandingan saja.. jika koneksi ada di level modul / class, apakah itu tidak membebani server? karena selama user tidak keluar aplikasi, status user akan tetap connected ke server. bahkan dalam keadaan idle sekalipun. mungkin ada teman2 yang pernah melakukan riset / perbandingan tentang ini?? mohon di share..   CMIIW ----- Original Message ----- From: Asral Sukma To: Programmer-VB@yahoogroups.com Sent: Tuesday, October 11, 2005 9:44 AM Subject: Re: [Programmer-VB] Kenapa script ini tidak bisa refresh record terbaru?? 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 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.