Re: [Programmer-VB] Code Optimation

Tue, 30 May 2006 01:47:53 -0700

cara 2 hihihi... kayak teka-teki silang :D
gampangnya usakan buat ngambil data/koneksi ke server se-jarang/sedikit mungkin, kalau bisa sekali jalan ya lakukan sekali aja, jgn berulang2 bener ga kang sistyo :)
 
kayaknya bakalan lebih cepat lagi kalau perintah opennya diubah jadi:
 
Rs.open "select Month_Number, Amount from budget", koneksi, adOpenForwardOnly, adLockReadOnly
 
dan akan lebih cepat lagi kalau cursor locationnya pake adUseServer tapi akibatnya kita ga bisa pake properti rs.RecordCount terus CacheSizednya ditambah jadi 100 atau lebih (default 1)
 
usahakan juga buat membatasi jumlah data yg diambil, kalau misalnya ada banyak fields/column di table, cukup ambil data difields2 yg diperlukan saja, dan kalau bisa pake filter ya lebih baik difilter jg.
 
jangan pernah mengirimkan DML query (INSERT/UPDATE/DELETE) dari object recordset, gunakan object command atau object connection itu sendiri.
 
hindari penggunakan DAO kalau dbnya sql server, terus hindari jg penggunakaan ODBC (DSN), kalau bisa selalu gunakan dsn-less connection.
 
kalau banyak melakukan pemrosesan data, selama proses tersebut bisa dibuat stored procedured, selalu lakukan pemrosesan data itu dalam stored procedured (pernah ngalami operation time out di applikasi vb yg terus2an bolak2 looping ke database server? solusinya gampang, pindah proses itu ke dlm stored procedured hehehe...)
 
terus apalagi ya.... :) tambahin lagi dong kang sistyo, mungkin koreksi kalau ada yg salah.
 
oya, kalau pake cursor forwardonly, jg pernah pake method rs.movefirst.
 
best regards
[wwn]
 
On 5/30/06, Sistyo Alfan Tribowo <[EMAIL PROTECTED]> wrote:

Cara pendeklarasian variable menurut saya impactnya tidak terlalu besar. Memang ada pengaruhnya, tapi masih ada hal lain yang jauh lebih penting. Yaitu alur/flow dari program itu sendiri. Kita bisa mendapat 100 dgn cara 10 + 20 + 30 + 40, bisa juga dengan 10 * 10. maka dari itu pandai2lah mencari ShortCut J

 

Contoh :

 

Di database ada table Budget, isinya spt ini :

 

Month_Number      Amount

1                           100

2                            500

..

..

..

12                          400

 

 

 

anda ingin tampilkan di flexgrid dgn format spt ini :

 

Januari    |    Februari    |    Maret    |    dst..

100         |    500          |     300

 

Cara 1

 

Sub Tampil1

'-----

 

            For bln = 1 to 12

                        Grid.textmatrix(0,bln) = MonthName(bln)

                        Rs.open "select * from budget where Month_Number=" & bln,koneksi

                        Grid.textmatrix(1,bln) = Rs("Amount").Value

                        Rs.close

            next

 

'----      

End Sub

 

Cara 2

 

Sub Tampil2

'-----

 

            Rs.open "select * from budget",koneksi

            While not Rs.eof

                        Grid.textmatrix(0,Rs("Month_Number").value) = MonthName(Rs("Month_Number").value)

                        Grid.textmatrix(1,Rs("Month_Number").value) = Rs("Budget").value

                        Rs.Movenext

            Wend

            Rs.close

'----      

End Sub

 

 

Menurut anda mana yang lebih cepat? J



Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke