ooooooohhhhhhhhh,
lo harus add Module, misal lo simpan Module1, 
bikin Function dulu buat konek database
caranya:

Function DBPATH() as String
DBPATH = "Provider blaaaaaaa" ' ni buat connectnya, lo tambahin sendiri
End Function

nah itu ditaruh pas lo bikin form baru ditiap objectnya, misal ditiap 
tombol,combobox, dll.
misal:
Dim Conn as New ADODB.Connectionstring
dim Rs as ADODB.Recordset
dim Cmd as new ADODB.Command
dim ConString as String
conString =DBPATH
set cmd.ActiveConection =ConString
dim Query as String
Query = "SELECT * FROM  INVENTORY ORDER BY kodebarang"
cmd.CommandText = Query
cmd.CommandType =addcmdText
set rs = Cmd.Execute

nah tiap lo buat form function tuh jadi connectionnya
jadi Funtion tu hanya dibuat sekali, tapi bisa dipanggil  bnyak ditiap form.
Selamat Mencoba.
-Andreas Sulistiyo- 

simbok_cahyo <[EMAIL PROTECTED]> wrote:                                  klo 
saya lebih cenderung utk membuat 1 file lain di luar file exe 
 yang isinya string ConnString databsenya, sehingga kalo database 
 berubah ga perlu merubah coding dan compile ulang. 
 Yang dirubah cukup ConnString yang ada di file lain tsb. Soal format 
 file sih bisa txt biasa, init ato yg lainnya. 
 klo yg saya pake cuma file txt biasa tapi isinya saya enkripsi, jadi 
 kalo dibuka pake notepad tulisannya ga karuan (maksudnya biar ga 
 sembarang orang tahu :).
 
 salam.
 
 --- In [email protected], Fahrul Rizal <[EMAIL PROTECTED]> 
 wrote:
 >
 > halo gmana kbarnya semua
 > 
 > 
 > ane mo tanya nih 
 > 
 > klo koneksi melalui module or class 
 > 
 > itu da perlu refres ga yah
 > 
 > biar waktu saat ane pindah database 
 > 
 > dari acces ke sql itu hanya merubah di module or classnya aja 
 > 
 > ga perlu merubah semua koneksi nya yang da ada.......?
 > 
 > thanks
 > 
 > 
 >  
 > 
 __________________________________________________________
 _______________
 > Be a PS3 game guru.
 > Get your game face on with the latest PS3 news and previews at 
 Yahoo! Games.
 > http://videogames.yahoo.com/platform?platform=120121
 > 
 > [Non-text portions of this message have been removed]
 >
 
 
     
                       

 
---------------------------------
Sucker-punch spam with award-winning protection.
 Try the free Yahoo! Mail Beta.

[Non-text portions of this message have been removed]

Kirim email ke