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/
 


Kirim email ke