Kalo aku sih pake Dao
di Modul aku ketik seperti ini
Public SARTIKA As Database
Public magen As Recordset
Sub set_datasartika()
On Error GoTo err_datasartika
Set SARTIKA = OpenDatabase(frmCurrdir.Text1.text)Exit Sub
err_datasartika:
informasi ("Directory data salah")
frmCurrdir.Show
Exit Sub
End Sub
Sub set_magen()
Set magen = SARTIKA.OpenRecordset("magen")
End Sub
trus di frmagen saya tinggal panggil saat form load
set_datasartika
set_magen
trus otomatis datanya langsung konek
oh iya jangan lupa di frmagen kasih objek data
trus refferencenya juga dicentang Microsoft DAO 3.51 Object Libary
Note:
***frmcurrdir.text1.text diganti dengan lokasi dan nama database yang akan
dibuka contoh c:\data\pustaka.mdb
atau bila data basenya pakai password bisa pakai ini
dim strSource as string,PAcess as string
strSource="c:\data\pustaka.mdb"
Pacess="Test"
Set Sartika = OpenDatabase(strSource, True, False, ";pwd=" & PAcess)
----- Original Message -----
From: "aribowo" <[EMAIL PROTECTED]>
To: <[email protected]>; <[EMAIL PROTECTED]>
Sent: Wednesday, May 04, 2005 5:38 PM
Subject: Re: [Programmer-VB] konversi skor dengan usia - koneksi VB ke
access
> tapi hubungin ke Accessnya bagaimana ya Pak Feri. maaf tanya lagi nih.
>
> salam hormat,
>
> Aribowo
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
>
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/programmer-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
