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

Mon, 10 Oct 2005 22:02:27 -0700

guys, g ikutan nimbrung ya...
 
solusi:
coba di timer nya gunakan rs.refresh ato rs.requery trus set kembali label captionnya. ga perlu u. membuat objek baru dan melakukan koneksi ulang, lambat!
 
ide buat mempercepat proses::
#lakukan koneksi sekali saja bisa di form onload atau di sub Main di module.
 
buat mas sistanori:
saya setuju dg mas, seperti dlm vb.net, g bakal milih buka objek koneksi, ambil data, dan tutup data agar ga membebani server.
 
tapi, objek koneksi ada di modul/class bukan berarti koneksi selalu active (dalam kasus mas zarifinz iya, karena dia pake timer, n koneksi harus selalu ada). Mis. kita deklarasi objek koneksi bersifat public di module level, ini berarti objek tadi bisa kita akses dari seluruh projek, dan ini jg berarti koneksi bisa saja kita buka dan tutup kapan saja, dan dari bagian manapun dlm projek.
 
#ubah cursor type jadi forward only, karena mas zarifin cuman mau ngambil data doang, ga ada proses update etc...
 
#ubah sql query nya jadi seperti ini:
"SELECT TOP 1 [NAMAFIELDYGINGINDIAMBILDATANYA] FROM STD0510 ORDER BY [FIELD_TGL_OR_PRIMARYKEY_OR_ETC] DESC" 
 
prinsipnya, cukup ambil data yg diperlukan, semakin banyak data yg diambil, proses transfer data server-client akan semakin lambat.
 
at last, please Correct Me If Iam Wrong (kemaren ada yg bingung cmmiw artinya apaan ;P )
 
best regards
[wwn]
 
On 10/11/05, sistanori <[EMAIL PROTECTED]> wrote:
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 -----
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
>


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