1. tentu bisa.
caranya, bikin koneksi database dengan VBA.
*DAO example - JET Connection*
Dim ws as Workspace
Dim db as Database
Set ws=DBEngine.Workspaces(0)
set db=ws.OpenDatabase({databasepath and name})
*DAO example - ODBC Connection*
Dim ws as Workspace
dim db as database
dim strConnection as string
set ws=DBEngine.Workspaces(0)
let strConnection= "ODBC;DSN=" & DatabaseName & ";UID=" & UserName
& ";PWD=" & UserPassword
set db=ws.OpenDatabase("", False, False, strConnection)
*ADO Example*
Dim ad as ADODB.Connection
set ad=New ADODB.Connection
Let ad.ConnectionString= "ODBC;DSN=" & DatabaseName & ";UID=" &
UserName & ";PWD=" & UserPassword
ad.Open
Haer Talib
2009/1/9 Teguh JAP <[email protected]>
> Salam Sejahtera semuanya,
>
> Perkenalkan, saya *Teguh JAP 24 Thn*.
> Bekerja sebagai ADM Gudang diperusahaan Distributor Farmasi. Merangkap
> sebagai IT juga.
> Sebelumnya saya sudah terdaftar di milis ini dgn email: *
> [email protected]* dan YM ID :* nduh_jap*
> Tapi karena sesuatu hal Yahoo membekukan email & YM saya.
> Email saya sekarang adalah : *[email protected] *dan ID YM : *teguhjap84*.
>
> Sudi kiranya teman-teman semua meng-ADD email dan YM saya.
>
> Langsung ke pertanyaan :
>
> Saya membuat Aplikasi mis dgn nama *Program.mde
> *Dan membuat database mis dgn nama *DB_2008.mdb* dan *DB_2009.mdb
> *
> Saya ingin agar Program.mde bisa *memilih database dengan bebas &
> fleksible*
> Misal saya ingin melihat data di tahun *2008*, maka Program.mde akan link
> tabel dari *DB_2008.mdb
> *Ketika saya ingin proses di thn *2009*, maka Program.mde akan link tabel
> dari *DB_2009.mdb
> *Begitu seterusnya untuk tahun 2010 keatas..
>
> 1. Apakah Access bisa seperti itu ? bagaimana caranya ?
> 2. Jika tidak bisa, apakah ada cara lain ? mis dgn MySQL ato SQLServer ?
>
> Mohon bantuannya..
>
> Terima Kasih
>
> *Teguh JAP
> 081 804 6364 96 / 081 802 3030 19*
>
>
--
[Haer Talib]
MVP Office Access
Meet me at www.RumahAccess.com
=>
