Aku dah coba and berhasil ..Makasih untuk semuanya.
_____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of nisa cute Sent: Wednesday, February 07, 2007 11:44 AM To: [email protected] Subject: Re: [Programmer-VB] conection pd mdiform pake modul lebih bagus, tinggal mas PUBLIC CN as ADODB.Connection supaya bisa di pake di semua form. truss bikin sub rutin, koneksi Private Sub Conn () cnstr = "ISI CONNECTION STRINGNYA yg bisa dibuat dari ADODC / UDL" set cn = new adodb.connection cn.open cnstr End Sub sub rutin Conn nya, pasang di MDI pada event LOAD contoh : private MDI_LOAD Conn end sedikit tips, untuk koneksi mendingan 1 aja, gak usah banyak2, supaya klo ada perubahan mudah di Customizenya, klo Recordset banyak boleh, harus rajin nge-DEBUG. moga membantu. ----- Pesan Asli ---- Dari: ERIS RISO <[EMAIL PROTECTED]> Kepada: [email protected] Terkirim: Senin, 5 Febuari, 2007 3:47:49 Topik: RE: [Programmer-VB] conection pd mdiform Private Sub Form_Load() *****Dim rs as adodb.recordset Set Rs = New ADODB.Recordset Rs.Open "select * from m_user" , mdiform.Cn, adOpenKeyset, adLockOptimistic Mdiform bisa diganti dengan nama mdiform pada aplikasi Anda _____ From: Programmer-VB@ yahoogroups. com [mailto: Programmer-VB@ yahoogroups. com ] On Behalf Of Heriyanto KO Sent: 05 Februari 2007 15:25 To: Programmer-VB@ yahoogroups. com Subject: RE: [Programmer- VB] conection pd mdiform codenya di Simpan di modul,jgn di form... caranya klik kanan di project explore->add module trus paste code anda di situ.. gud luck.. Wadoncore <[EMAIL PROTECTED] com> wrote: Terima kasih buat mas Eris dan mas Eko yang dah kasih masukan. Tp aku dah coba dengan saran mas eris tp tetep ga bias.. Apa ada yang salah dgn listing yg aku buat. Option Explicit Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Sub KonekSI() Set Cn = New ADODB.Connection Cn.Open "Provider=Microsoft . Jet.OLEDB. 4.0;" & _ "Data Source=\\Sitinur\ ajk\ajk.mdb; " & _ "Persist Security Info=False" Cn.CursorLocation = adUseClient End Sub Listing tsb aku simpan di MDIform, pd Childform aku panggil koneksi nya; Private Sub Form_Load() KonekSI Set Rs = New ADODB.Recordset Rs.Open "select * from m_user , Cn, adOpenKeyset, adLockOptimistic Minta tolong di cek..,sorry ya..maklum baru belajar. Makasih. _____ From: Programmer-VB@ yahoogroups. com [mailto: Programmer- [EMAIL PROTECTED] com ] On Behalf Of ERIS RISO Sent: Monday, February 05, 2007 1:18 PM To: Programmer-VB@ yahoogroups. com Subject: RE: [Programmer- VB] conection pd mdiform Seperti yang Mas Eko bilang emang bagusnya Anda belajar pake class modul Tapi untuk permasalahan Anda bisa dicoba cara sseperti ini Pada setiap form yang akan memanggil kembali koneksi yang ada pada MDIForm lakukan dengan logika sebagai berikut Misalnya pada form tersebut Anda membuat sebuah recordset dengan nama rsData, akan berisi data dari tabel karywan Dim rsData as ADODB.Recordset strsql2 = "select * from karyawan'" Set rsData = New ADODB.Recordset rsData.Open strsql2, MDIForm.CN, adOpenDynamic, adLockOptimistic silahkan mencoba semoga membantu eris http://eris- <http://eris-riso.blogspot.com/> riso.blogspot. com _____ From: Programmer-VB@ yahoogroups. com [mailto: Programmer-VB@ yahoogroups. com ] On Behalf Of Eko Wibowo Yudhi Setyo Nugroho Sent: 05 Februari 2007 12:37 To: Programmer-VB@ yahoogroups. com Subject: Re: [Programmer- VB] conection pd mdiform kenapa ngga pake class module ? ----- Original Message ----- From: Wadoncore <mailto:[EMAIL PROTECTED]> To: Programmer-VB@ <mailto:[email protected]> yahoogroups. com Sent: Monday, February 05, 2007 12:10 PM Subject: [Programmer- VB] conection pd mdiform Temen2 aku punya masalah di MDIform untuk koneksi data basenya. Database aku pake Access, koneksinya seperti di bawah ini. Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Set Cn = New ADODB.Connection Cn.Open "Provider=MSDASQL. 1;" & _ "Persist Security Info=False;" & _ "Data Source=ajk" Cn.CursorLocation = adUseClient Gimana caranya supaya, koneksi tersebut kebaca di MDIchild/di form yang laiannya. Makasih. _____ Sucker-punch spam with award-winning protection. Try the free Yahoo! Mail Beta. _____ Kunjungi halaman depan Yahoo! <http://sg.rd.yahoo.com/mail/id/footer/def/*http:/id.yahoo.com/> Indonesia yang baru!
