Hanya mau kasih gambaran aja untuk mb lilis dan rekan milist semua. usahakan untuk koneksi ke database itu dilakukan seperlunya saja dan ketika koneksi database itu sudah tidak diperlukan kembali maka lakukanlah close database. untuk koneksi database di awal mula program berjalan(sub main) itu sama sekali tidak baik karena akan membebani database itu sendiri jika selama program itu terus berjalan seharian dan tak pernah ada action untuk close database dalam waktu seharian itu. saran saya lakukan open database saat pembukaan form saja dan ketika form itu ditutup lakukan kembali close database.jadi lakukan open database dan close database di setiap form dan jangan lakukan open database di sebuah module yang variabel koneksi nya di declare secara public atau global.cukup declare variabel untuk koneksi ke database di setiap form dengan requesting variabel "DIM".
Regard, Destroyer_Maniac --- In [email protected], Lilis Suryani <[EMAIL PROTECTED] > wrote: > > dear programmers, > > sebelumnya makasih buat moderator atas supportnya begitu juga dgn members yg lain. > ok kali ini, aku coba share bagaimana membuat fungsi dan prosedur utk koneksi > database di level modul. kali ini aku coba ambil contohnya menggunakan > database access dan sql server. > semoga ada someone yg berbahagia dg kode ini ;-) > > ok pertama-tama, > '--buat dulu reference microsoft activeX Data Object Library 2.7 > '--kalo ga ada yg versi 2.7 yg 2.5 juga ga masalah. > '--tambahkan 1 command button ke form utk tombol login > '--tambahkan 3 textbox utk nama server, user dan password > '--tambahkan 1 modul > '--buat variabel (di deklarasi general) di modul > '--silahkan copy paste kode ini > > > '-------------------ini contoh fungsi di modul dg database sql server-------------- > > Public cn As adodb.Connection > > Public Function Koneksi(server As String, User As String, Pass As String) As Boolean > On Error GoTo errCn > Set cn = New ADODB.Connection > cn.Provider = "SQLOLEDB.1" > cn.Open "Server=" & server & ";Database=Northwind;" & _ > "UID=" & User & ";" & _ > "PWD=" & Pass & ";" > cn.CursorLocation = adUseClient > Koneksi = True > Exit Function > errCn: > If Err.Number = -2147217843 Then > MsgBox "Password untuk user ini salah" > End If > End Function > > > > '--setelah modul dibuat maka cara penggunaanya seperti ini > > > Private Sub Command1_Click() '--tombol save > Dim NamaServer As String > Dim UserName As String > Dim PassWord As String > > NamaServer = Text1.Text > UserName = Text2.Text > PassWord = Text3.Text > > Call Koneksi(NamaServer, UserName, PassWord) '--ini fungsi yg dipanggil yg tlh dibuat di > modul. > '--dgn 3 parameter yg diambil dari object > textbox > > If cn.State = adStateOpen Then > MsgBox "Database terkoneksi" > End If > End Sub > > > '-------------------ini contoh prosedur di modul dg database sql server-------------- > > Public Sub KoneksiDb(server As String, User As String, Pass As String) > Set cn = New ADODB.Connection > cn.Provider = "SQLOLEDB.1" > cn.Open "Server=" & server & ";Database=Northwind;" & _ > "UID=" & User & ";" & _ > "PWD=" & Pass & ";" > cn.CursorLocation = adUseClient > > End Sub > > '--penggunaanya sama spt fungsi diatas, hanya dirubah nama fungsinya menjadi KoneksiDb (nama > prosedurnya) > > > > '-------------------ini contoh prosedur di modul dg database access- ------------- > > > '--buat kode ini di level modul > > Public cn As ADODB.Connection > > > Sub Koneksi() > Set cn = New ADODB.Connection > > cn.Provider = "Microsoft.Jet.OleDB.4.0" > cn.CursorLocation = adUseClient > cn.Open App.Path & "\GL.mdb" > End Sub > > > > '--untuk mengkoneksikan contohnya spt ini > > Dim rs As ADODB.Recordset '--deklarasi general > > Private Sub Form_Load() > Call Koneksi '--memanggil prosedur koneksi database > If cn.State = adStateOpen Then > MsgBox "OK" > End If > rs.Open "Acc1", cn, adOpenDynamic, adLockOptimistic > End Sub > > > Private Sub Command1_Click() '--tombol simpan > > '--ini cara menggunakan recordsetnya utk menginput data > '--caranya ga ada bedanya kalo sudah terkoneksi databasenya > > rs.AddNew > rs!kode1 = Text1.Text > rs!nama1 = Text2.Text > rs.Update > End Sub > > > > > '--trik spy database access terhubung terus dan tidak perlu dipanggil-panggil lagi :-) > '--buat prosedurnya dgn nama sub main di modul dan ganti startup object menjadi sub main > '--tambahkan 1 baris kode lg utk membuka form (dlm hal ini biasanya form menu) > > > ok friends aku rasa ini udah bisa menambah wawasan gimana cara koneksi database > baik server maupun access utk desktop. > > Salam > Lilis Suryani ArjaMaya > > > ______________________________________________________________________ ______________ > Fussy? Opinionated? Impossible to please? Perfect. Join Yahoo!'s user panel and lay it on us. http://surveylink.yahoo.com/gmrs/ yahoo_panel_invite.asp?a=7 >
