Mengcopy tabel dalam atau antar database kayaknya bisa pake DAO
dulu aku pernah coba, sintaknya di bawah ini
Sub SelectIntoX()
Dim dbs As Database
Dim qdf As QueryDef
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase("Northwind.mdb")
' Select all records in the Employees table
' and copy them into a new table, Emp Backup.
dbs.Execute "SELECT Employees.* INTO " _
& "[FILE_DB].[TABEL] FROM Employees;"
' Delete the table because this is a demonstration.
dbs.Execute "DROP TABLE [Emp Backup];"
lebih jelas ketik 'select' di vb coding editor lalu tekan F1
di cobaa aja..
dbs.Close
End Sub
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-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/