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 MODULEYANG 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]
SPONSORED LINKS
| Programming languages | Programmer | C programming language |
| Computer programming languages | Java programming language | C programming language |
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.
