Harap posting sesuai dengan Kategorinya agar anggota yang lain mudah dalam bernavigasi!
0 Members and 1 Guest are viewing this topic.
insert into ins01 (kddist,noorder,type_,tglorder,noinvoice,tglinvoice) values ('1','101','F','2018-05-15 00:00:00','inv01','2018-05-15') ;insert into ins01 (kddist,noorder,type_,tglorder,noinvoice,tglinvoice) values ('2','101','F','2018-05-15 00:00:00','inv02','2018-05-15') ;insert into ins01 (kddist,noorder,type_,tglorder,noinvoice,tglinvoice) values ('3','101','F','2018-05-15 00:00:00','inv03','2018-05-15') ;insert into ins01 (kddist,noorder,type_,tglorder,noinvoice,tglinvoice) values ('4','101','F','2018-05-15 00:00:00','inv04','2018-05-15') ;
select cur_trscan xkddist = xkodedistlpd xnoorder = noorder xtype_ = type_ xtglorder = tglorder xnoinvoice = noinvoice xtglinvoice = tglinvoice xnororder = nororder xtglrorder = tglrorder TEXT TO csec NOSHOW TEXTMERGE PRETEXT 7 INSERT INTO inst01 (kddist,noorder,type_,tglorder,noinvoice,tglinvoice) Values ('<<xkddist>>','<<xnoorder>>','<<xtype_>>','<<xtglorder>>','<<xnoinvoice>>','<<xtglinvoice>>') ENDTEXT IF Sqlexec(mykoneksi,csec) > 0 messageboc("Sukses") else messagebox("gagal") endifendscan