lakukan query di tabel yang akan diambil datanya:
"SELECT * FROM TABEL_A"
maka semua data dalam semua field dan semua record terpilih.
misalnya dalam TABEL_A ada field ID dan Description, sama dalam
TABEL_B juga terdapat field tersebut.
langkah2nya sbb:
1. buka recordset TABEL_A (dengan query di atas)
2. buat looping untuk memasukkan data ke dalam TABEL_B satu persatu,
walaupun satu persatu tapi lebih cepat ketimbang cara manual mengetik
satu persatu.
----
Dim ID As String, Description As String, vCmdSQL As String
With rsTABEL_A
Do While Not .EOF
ID = !ID
Description = !Description
vCmdSQL = "INSERT INTO TABEL_B(ID, Description) VALUES('" &
ID & "','" & Description & "'")
mConnection.Execute vCmdSQL
.MoveNext
Loop
.Close
End With
:: Saya asumsikan mas Affandi sudah mengerti cara membuat connection.
Kalau file Database-nya berbeda, maka buat saja 2 connection,
Connection1 ke database_A
Connection2 ke database_B
-> pada saat open recordset, yang digunakan adalah Connection1
-> pada saat eksekusi query INSERT, gunakan Connection2
Semoga membantu
F
in Code we trust..
--- In [email protected], affandi mgs <[EMAIL PROTECTED]>
wrote:
>
> beda persepsi mas..
>
> jadi di programnya itu ada master tabel anggap aja table A dimana
fieldnya
> F0001 Porous Pad Paper Guide
> F0002 Sound Absorber Left
> F0003 Sound Absorber Right
>
> trus untuk nginput data table A ini user ga perlu input manual
> jadi tinggal browse file tabel access laen yang fieldnya sama ato
paling ga ada yang sama dengan tabel A itu.
>
> dengan klik browse trus otomatis ke simpen (append) ke tabel A
>
