Hai Heru,
1. Jika ingin copy ke range tertentu seluruh hasil open recordset, gunakan
method CopyFromRecordset
>> misal akan di salin mulai baris 7 kolom A
sheets("nama sheet tujuan").range("a7").copyfromrecordset rs 'rs
adalah variabel record set yang sudah berisi dataset hasil query
2. Jika ingin loop setiap data
>> usai open recordset
rs.movefirst
do while not rs.eof
'proses disini
rs.movenext
loop
Wassalam,
Kid.
2013/1/4 Heru Safrudin <[email protected]>
> **
>
>
> Dear Mr Kid
>
> Menampilkan data di Tabel1 yang tidak ada di Tabel2 atas petunjuk Mr.
> Kid Alhamdulillah udah berhasil. Nah sekarang bagaimana menampilkan
> koleksi hasil query berikut ini menggunakan For each ....
>
> ConnectDB
> RS.Open "SELECT P2.JOB FROM P2 P2 LEFT OUTER JOIN P3 P3 ON P2.JOB =
> P3.JOB WHERE (P3.JOB Is Null)", CON, adOpenKeyset, adLockOptimistic
> For each data ................
> MsgBox data
> Next
> RS.Close
> DisconnectDB
>
> --
> Regards,
>
> Heru Safrudin
>
> Pak Heru,
>
> Kedua tabel terpisah loh ya, bukan jadi 2 kolom berjejer demikian,
> kecuali jika definisi tabel dalam query didefinisikan dengan detil
> mengikuti kolomnya.
> Coba pelajari SQL tentang LEFT OUTER JOIN clause dan WHERE clause.
> Kira-kira bunyinya :
> SELECT dt1.kolom1
> FROM Table1 AS dt1
> LEFT OUTER JOIN Table2 AS dt2
> ON dt1.kolom1=dt2.kolom1
> WHERE dt2.kolom1 IS NULL
>
> Wassalam,
> Kid.
>
>
