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

Mon, 10 Oct 2005 20:51:00 -0700

Bos, ada metode lain gak, untuk sekedar informasi record tersebut selalu saja bertambah dan saya hanya ingin mengambil record terakhir saja.

Asral Sukma <[EMAIL PROTECTED]> wrote:
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! Music Unlimited - Access over 1 million songs. Try it free.

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



Kirim email ke