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: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Heriyanto KO Sent: 05 Februari 2007 15:25 To: [email protected] 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]> 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: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of ERIS RISO Sent: Monday, February 05, 2007 1:18 PM To: [email protected] 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: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Eko Wibowo Yudhi Setyo Nugroho Sent: 05 Februari 2007 12:37 To: [email protected] 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.
