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-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
To: [email protected]
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.
