----- 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 ??
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12hq8472p/M=362131.6882499.7825260.1510227/D=groups/S=1705007181:TM/Y=YAHOO/EXP=1124085361/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org
">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life
- brought to you by One Economy</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/
