Thx udah bisa makacih buanget yah
-----Original Message-----
From: Ronald Irawan
[mailto:[EMAIL PROTECTED]
Sent: 26 Juli 2005 16:38
To: [email protected]
Subject: RE: [Programmer-VB] Tanya
koneksi
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
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
