Wah... gila. Bisa mas !!! Nanya lagi ya mas.... Jika seandainya hanya ada satu colom yang beda, atau satu kolom tidak perlu di replace atau tambah satu kolom di replace misal dengan rumus dari data yang ada. Atau di replace dengan kondisi tertentu, misal jk data karyawan, hanya yang j.kel wanita. Perintah RowsCopy tersebut apakah masih bisa dipakai ?
Thank you! On 2/1/08, h4rd3st <[EMAIL PROTECTED]> wrote: > > Coba yg ini : > dw_1.RowsCopy(1, dw_1.RowCount(), Primary!, dw_2, 1, Primary!) > > ----- Original Message ----- > From: duniamaya > To: indoPB > Sent: Friday, February 01, 2008 8:54 AM > Subject: [indopb] Mohon saran untuk teknik copy data. > > dh PBer > > Saya lagi coba meng-copy isi data antar table. Teknik yang saya gunakan > open > dua data window, berikut saya lampirkan source codenya. > Mohon sarannya nya jika teknik ini kurang bagus dan sebaiknya bagaimana. > Terimakasih > > fyi: dw_1 = source data > dw_2 = target > > ---w_main-open-------------- > .. > .. > connect; > dw_1.settransobject( sqlca) > dw_1.retrieve( ) > dw_2.settransobject( sqlca) > dw_2.retrieve( ) > ------------------------------------ > > ---cb_1-clicked--------------- > integer i,li_row > > for i = 1 to dw_1.rowcount( ) > li_row = dw_2.insertrow(0) > dw_2.object.#1[li_row] = dw_1.object.#1[i] > dw_2.object.#2[li_row] = dw_1.object.#2[i] > dw_2.object.#3[li_row] = dw_1.object.#3[i] > dw_2.object.#4[li_row] = dw_1.object.#4[i] > dw_2.object.#5[li_row] = dw_1.object.#5[i] > dw_2.object.#6[li_row] = dw_1.object.#6[i] > next > > dw_2.update(true) > commit ; > dw_2.retrieve( ) > ----------------------------------- > > Tanpa mendefinisikan masing2 kolom dengan #xx, ada ngga' perintah > sekaligus > satu baris > dibaca kemudian di replace ke target. > > >
