Thanks for all, its solved
--- In [email protected], "Wahyu Kurniawan" <[EMAIL PROTECTED]>
wrote:
>
> 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/
