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.
