8) terima kasih semoga tercerahkan . untuk kang abas avon : piye kabare magelang ??
kabare magelang : G. Merapi arep njebluk. Emang jenengmu sopo? Regards, Nurhamid Abdulbasith PT Avon Indonesia "jenenge" <[EMAIL PROTECTED]> Sent by: [email protected] 15/08/2005 10:54 AM Please respond to indopb To: <[email protected]> cc: Subject: Re: [indopb] Pipeline ----- Original Message ----- From: "Seluya" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Monday, August 15, 2005 8:40 AM Subject: RE: [indopb] Pipeline > Setelah di debug > Script " li_rc = i_pipe.start (sqlca, sqlca, dw_1)" > Masuk ke user object p_pipe. > Ke event pipestart yg scriptnya setpointer(hourglass!) > Lalu masuk ke even pipeend yg scriptnya setpointer(arrow!) > > TIDAK masuk ke event pipemeter > > st_read.text = string (rowsread) > st_written.text = string (rowswritten) > st_errors.text = string (rowsinerror) > > napa yah .... ?? > > Jenege : script dibawah saya letakkan di window function > exec_pipe(string pipe_name) return integer > > Panggil window function tsb di event clicked command button ck_pipe = > exec_pipe('p_B') > > Database yang saya gunakan ASA. > kalau anda lebih enak kelihatannya soalnya masih sejenis vendoer databasenya. ok ini saya tuliskan beberapa step by step potongan program saya maaf kalao kedowonen (english : kepanjangan) 1) buat user object dengan nama u_pipe_line inherit dari select Standart Class Pipeline. 2) buat scrip di event pipemeter (sebelumnya declare dulu declare di event tersebut berupa variable instant ==> statictext ist_status_read, ist_status_written, ist_status_error ) script di event pipemeter ist_status_read.text = string(RowsRead) ist_status_written.text = string(RowsWritten) ist_status_error.text = string(RowsInError) 3) simpan user object u_pipe_line. 4) saya membuat object data pipeline dari database microsoft acces (lewat ODBC) dengan nama p_punch ( table : punchdata ; options : Create - Add table ; commit : All ; max Error : no Limti) p_punch ini saya beri argument ritrival; sql syntax seperti di bawah ini SELECT punchdata.employeeno, punchdata.polleddate, punchdata.fnkey, punchdata.in_out, punchdata.userfield1, punchdata.userfield2, punchdata.userfield3, punchdata.userfield4, punchdata.puncheddate, punchdata.punchedtime, punchdata.address, punchdata.location FROM punchdata WHERE ( punchdata.puncheddate >= :tangg1 ) AND ( punchdata.puncheddate <= :tangg2 ) 5) Saya mempunyai sebuah window untuk import data dengan nama w_import_untuk_hrd. pada ue_postopen (ue ini berdasarkan pb_custom terserah anda ) saya beri script i_upipe = CREATE u_pipeline i_upipe.DataObject = "p_punch" i_upipe.ist_status_read = st_status_read i_upipe.ist_status_written = st_status_written i_upipe.ist_status_error = st_status_error dan saya juga mendeklare instans variabel : u_pipeline i_upipe 6) pada event open pada window w_import_untuk_hrd saya beri script : this.postevent("ue_postopen") 7) saya membuat tombol button dengan isi sekrip (saya menggunakan dua connection yaitu SQLCA dan SQLCB kalau anda cukup satu saja SQLCA saja.) , disini ada dw_6 itu isnya datawindow dari table database acces isin sql syntaxnya adalah ( SELECT punchdata.employeeno, punchdata.polleddate, punchdata.fnkey, punchdata.in_out, punchdata.userfield1, punchdata.userfield2, punchdata.userfield3, punchdata.userfield4, punchdata.puncheddate, punchdata.punchedtime, punchdata.address, punchdata.location FROM punchdata ) : SCRIP dibawah untuk execute pindah data integer li,li_datrans string ls_error datetime lddtime,lddtime2 datetime lddt st_process.text = "Sedang proseseses ... ambil data" integer hasile select * into :hasile from a_tgl_waktu_reindx_vacuum(); select max(puncheddate) into :lddtime from punchdata using sqlca; lddtime = DateTime ( RelativeDate(Date(lddtime), -30), time(" 00:00:00.000000")) dw_6.reset() if isnull(lddtime) then lddtime = DateTime ( Date("1990-01-01"), time(" 00:00:00.000000")) end if lddtime2 = DateTime ( Date("2020-01-01"), time(" 00:00:00.000000")) li = i_upipe.Start(sqlcb, sqlca,dw_6,lddtime,lddtime2) choose case li case -1 ls_error = "Pipe open failed" case -2 ls_error = "Too many columns" case -3 ls_error = "Table already exists" case -4 ls_error = "Table does not exist" case -5 ls_error = "Missing connection" case -6 ls_error = "Wrong arguments" case -7 ls_error = "Column mismatch" case -8 ls_error = "Fatal SQL error in source" case -9 ls_error = "Fatal SQL error in destination" case -10 ls_error = "Maximum number of errors exceeded" case -12 ls_error = "Bad table syntax" case -13 ls_error = "Key required but not supplied" case -15 ls_error = "Pipe already in progress" case -16 ls_error = "Error in source database" case -17 ls_error = "Error in destination database" case -18 ls_error = "Destination database is read-only" end choose 8) terima kasih semoga tercerahkan . untuk kang abas avon : piye kabare magelang ?? ----------------------------------------------- INDOPB TURUT BERDUKA CITA UNTUK ACEH & SUMUT ----------------------------------------------- IndoPB - Indonesia PB User Group To Post a message, send it to: [EMAIL PROTECTED] To Unsubscribe,send a blank message to: [EMAIL PROTECTED] Yahoo! Groups Links [Non-text portions of this message have been removed] ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12hacq8qf/M=362335.6886445.7839731.1510227/D=groups/S=1705007181:TM/Y=YAHOO/EXP=1124087586/A=2894361/R=0/SIG=13jmebhbo/*http://www.networkforgood.org/topics/education/digitaldivide/?source=YAHOO&cmpgn=GRP&RTP=http://groups.yahoo.com/";>In low income neighborhoods, 84% do not own computers. At Network for Good, help bridge the Digital Divide!</a>.</font> --------------------------------------------------------------------~-> ----------------------------------------------- INDOPB TURUT BERDUKA CITA UNTUK ACEH & SUMUT ----------------------------------------------- IndoPB - Indonesia PB User Group To Post a message, send it to: [EMAIL PROTECTED] To Unsubscribe,send a blank message to: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indopb/ <*> 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/
