Tinggal merubah: Dim WJet As Workspace Dim dbGen As Database Dim rsPO As Recordset, rsTemp as Recordset, rsSD as Recordset
Menjadi Public Dim WJet As Workspace Public dbGen As Database Public rsPO As Recordset Public rsTemp as Recordset Public rsSD as Recordset Public Sub Data() ... End Sub Aksan Kurdin -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Vank Sent: Wednesday, April 20, 2005 12:00 PM To: [email protected] Cc: Eko Heri Susanto Subject: [indoprog-vb] Module Mohon Pencerahan..... Saya mempunyai connect data seperti dibawah ini : Option Explicit Dim WJet As Workspace Dim dbGen As Database Dim rsPO As Recordset, rsTemp as Recordset, rsSD as Recordset sub data() Set WJet = CreateWorkspace("", "admin", "", dbUseJet) Set dbGen = WJet.OpenDatabase(app.path & "\data.mdb", False, False, ";pwd=default") Set rsPO = dbGen.OpenRecordset("PO", dbOpenTable) Set rsTemp = dbGen.OpenRecordset("TEMP", dbOpenTable) Set rsSD = dbGen.OpenRecordset("DESCRIPTION", dbOpenTable) end sub Pertanyaan saya : Bagaimana caranya jika data tsb. bisa digunakan di semua form (module) ??? (saya juga menggunakan index untuk seek data) Terima kasih Vank Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Ikuti juga forum diskusi VB.net dengan mengirim email kosong ke [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
