RE: [Programmer-VB] load object berkali-kali

Mon, 06 Feb 2006 02:11:05 -0800

Title: Message
mas betmen,
dgn metode anda, sebenarnya bisa jg ada mslh jk klien langsung ke database server
misalnya :
 
Sub Nyoba ()
      Qry = " Select ..."
      Konek Qry
 
      Qry = "Select ..."
      Konek Qry
 
      Do While Not Rek.EOF
            bla bla bla
      Loop
 
      Tutup
      Tutup
End Sub
 
'di modul
Public Kon As ADODB.Connection
Public Rek As ADODB.Recordset
Public StrKon, Qry as String
 
Sub Konek (sQry As String)
      Set Kon = New ADODB.Connection
      Set Rek = New ADODB.Recordset
      StrKon = "Provider ... dst"
      Kon.Open StrKon
      Rek.Open sQry, StrKon
End Sub
 
Sub Tutup ( )
    On Error Resume Next
    If Rek.State = adStateOpen Then
        Rek.Close
    End If
    Kon.Close
    Set Rek = Nothing
    Set Kon = Nothing
End Sub
 
pada saat prosedur nyoba dijalankan mk akan membuat 2 buat koneksi ke database
dgn adanya 2 koneksi yg terbuka, maka mestinya ada 2 REK jg
krn Prosedur KONEK akan membuka 1 bh KON dan 1 bh REK
pertanyaannya, REK yg mana tuh yg sdg melakukan looping heheheh
 
maap, sekedar intermezo saja.
mungkin ini memberikan gambaran masalah apa yg dimaksud oleh mas betmen ya
klo utk aplikasi klien yg langsung ke database server sih mestinya gampang diatasi
tinggal buat Kon1, Kon2, Rek1, Rek2 dst
cuman kalo jmlh Kon dan Rek-nya tdk terbatas.
ini yg jd mslhnya mas betmen
 
dr gaya tulisannya, saya yakin mas betmen pasti sdh ada cara utk mengatasinya
misal : tdk pake prosedur Konek dan Tutup, tp baris2 tsb dibuat didlm prosedur nyoba
dgn variable lokal (bukan public).
 
cuman spt kata mas betmen, rasanya kok ngga praktis
krn mungkin akan byk sekali pengulangan perintah
jd saya mau denger pendapat pakar2 juga
 

------------------------------------------------------

Heru Rahadyan

----------------------------------------------------------------------------------

isi imel ini bukanlah hal yang rahasia, boleh diperbanyak sebanyak apapun yang anda mau

pengirim tidak bertanggungjawab atas segala risiko yang muncul akibat perbanyakan isi imel

ini secara ilegal, termasuk virus - flu burung, polio, antrax dll- serta segala tetek bengek lainnya.

Isi dari email ini tidak bisa dipertanggungjawabkan kebenarannya.

Percaya atau tidak percaya atas email ini adalah tanggungjawab pembaca sendiri.



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