RE: [Programmer-VB] Tanya koneksi

[ajiekurnia]

Gak Bisa ??     -----Original Message----- From: Wawan Dharmawan [mailto:[EMAIL PROTECTED] Sent: 26 Juli 2005 14:51 To: Programmer-VB@yahoogroups.com 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.