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
<*> 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/
