Mungkin begini
1.Anda buat module
2. PUblic cnDB as connection
3. Buat Private sub main
private sub main
Set cnDB = New Connection
With cnDB
.CursorLocation = adUseClient
.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=.\KaryawanDB.mdb;"
End With
FormPertama.show
end sub
4. Oh iya,, di project properties nya set start up nya ke sub main
5. Untuk recordset , lebih baik di baut sesuai kebutuhan saja...
Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta
| "ajiekurnia"
<[EMAIL PROTECTED]>
Sent by: [email protected] 26/07/2005 03:48 PM
|
|
Gak Bisa ??
-----Original Message-----
From: Wawan Dharmawan [mailto:[EMAIL PROTECTED]
Sent: 26 Juli 2005 14:51
To: [email protected]
Subject: Re: [Programmer-VB] Tanya koneksi
Dim cnDB as connection
Dim rsttkaryawan as recorset
Dim SSQL as string
Set cnDB = New Connection
Set rsttKaryawan = New Recordset
With cnDB
.CursorLocation = adUseClient
.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=.\KaryawanDB.mdb;"
End With
SSQL = "SELECT * FROM TKARYAWAN"
With rsttKaryawan
.Open SSQL, cnDB, adOpenStatic, adLockOptimistic
End With
COPY SEMUA CODE INI LALU DI PASTE DI MODULE
YANG TADINYA "DIM" DIGANTI MENJADI "PUBLIC"
SILAHKAN COBA!
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB"
on the web.
- To unsubscribe from this group,
send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
