Berikut jawaban dari setiap langkah yg bapak berikan, sebelumnya saya
ucapkan banyak terima kasih. Langkah 1 sampai 6 sudah ada dlm
script/program saya sebelumnya. Langkah no 7 bapak menggunakan argument
untuk pipestart, sedangkan saya tidak menggunakan argument, untuk
errordatawindow(dw_6) berisikan data, sedangkan saya tidak memasukkan
data ke dw_1 (sebagai errordatawindow), saya baca di help, katanya tidak
perlu di assign. Harusnya sih gak masalah kalau dw_1 gak di assign. So
gimana .....?
Tks all
1) buat user object dengan nama u_pipe_line inherit dari select
Standart
Class Pipeline.
JAWAB : sudah saya create user object pipeline dengan nama p_pipe
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)
JAWAB : declare instant variable sebagai berikut : statictext
st_read,st_written,st_errors
Script di event pipemeter
st_read.text = string (rowsread)
st_written.text = string (rowswritten)
st_errors.text = string (rowsinerror)
3) simpan user object u_pipe_line.
JAWAB : user object p_pipe
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 )
JAWAB : destination ASA (table carpcl), source ASA(carpcl_copy), option
pipeline create-add table
Source carpcl dgn field (A,B,C,0,'',F)
Destination carpcl_copy dgn field(A,B,C,D,E,F)
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
JAWAB : hampir mirip dengan punya bapak.
Instant variable p_pipe i_pipe
script di windows function exec_pipe(string pipe_name) return string
i_pipe = create p_pipe
i_pipe.st_read = st_read
i_pipe.st_written = st_written
i_pipe.st_errors = st_errors
i_pipe.dataobject = pipe_name
li_rc = i_pipe.start (sqlca,sqlca, dw_1)
6) pada event open pada window w_import_untuk_hrd
saya beri script :
this.postevent("ue_postopen")
JAWAB : Event clicked cummond button : ck_pipe = exec_pipe("p_carpcl")
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
JAWAB : li_rc = i_pipe.start (sqlca,sqlca, dw_1)
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12h09c18t/M=362131.6882499.7825260.1510227/D=groups/S=1705007181:TM/Y=YAHOO/EXP=1124097584/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/
