Nah ini yang bener Hehe punyanya saya salah ya.... Maafkanlah daku. Paling klo udah dicompile error, udah gitu kan nanti dibetulin.
-----Original Message----- From: Pahala Sibuea [mailto:[EMAIL PROTECTED] Sent: Tuesday, February 14, 2006 2:30 PM To: [email protected] Subject: Re: [indopb] Digest Number 1601 PipeLine this one of some method 1. you create instance variable Transaction i_src,i_dst p_pipe_wmeters i_pipe 2. at event open window you write wf_connect_db() i_pipe = create p_pipe_wmeters 3. at Window function -> wf_connection_db() string ls_file1,ls_file2 i_src = create transaction ls_file1 = "JKT.INI" i_src.DBMS = ProfileString(ls_file1, "database", "dbms", "") i_src.database = ProfileString (ls_file1, "database", "database", "") i_src.userid = ProfileString (ls_file1, "database", "userid", "") i_src.dbpass = ProfileString (ls_file1, "database", "dbpass", "") i_src.logid = ProfileString (ls_file1, "database", "logid", "") i_src.logpass = ProfileString (ls_file1, "database", "LogPassWord", "") i_src.servername = ProfileString (ls_file1, "database", "servername", "") i_src.dbparm = ProfileString (ls_file1, "database", "dbparm", "") i_src.AutoCommit = True connect using i_src; If i_src.sqlcode <> 0 then Messagebox("Source Connect Err",i_src.sqlerrtext) Return End If i_dst = create transaction ls_file2 = "SBY.ini" i_dst.DBMS = ProfileString (ls_file2, "database", "dbms", "") i_dst.database = ProfileString (ls_file2, "database", "database", "") i_dst.userid = ProfileString (ls_file2, "database", "userid", "") i_dst.dbpass = ProfileString (ls_file2, "database", "dbpass", "") i_dst.logid = ProfileString (ls_file2, "database", "logid", "") i_dst.logpass = ProfileString (ls_file2, "database", "LogPassWord", "") i_dst.servername = ProfileString (ls_file2, "database", "servername", "") i_dst.dbparm = ProfileString (ls_file2, "database", "dbparm", "") i_dst.AutoCommit = True connect using i_dst; If i_dst.sqlcode <> 0 then Messagebox("Source Connect Err",i_dst.sqlerrtext) Return End If 4. at button event Clicked (to process pipeline) i_pipe.DataObject = "srki_mm_product" li_rc = i_pipe.Start(i_src, i_dst, dw_1) ls_name = 'product_' + ls_today +'.xls' if dw_1.rowcount() > 0 then dw_1.SaveAs(ls_name, Excel!, true) end if 5. at event close window disconnect using i_src; disconnect using i_dst; destroy i_pipe destroy i_src destroy i_dst > Message: 2 > Date: Mon, 13 Feb 2006 07:50:37 -0000 > From: "yazid" <[EMAIL PROTECTED]> > Subject: Pipeline ??? > > Guys... > > Saya buat object pipeline utk beberapa table. Jika > langsung di execute > dari PB satu persatu (manual) hasilnya sukses. > > Tapi saya ingin execute pipeline nya dengan syntax, > ada yg punya > contoh syntax nya ? Syntax yg execute pipeline yg > simple. > > Thanks > __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com ----------------------------------------------- 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 ----------------------------------------------- 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/
