Thanx pak,.. Nanya lagi nh,.. Lanjut dri kasus yg sama,.. Kalo udh connect ke excel dan kita mau mengetahui brp jumlah bris yg ada di file excel tersbt, gmn yah fungsiny? Thanx pak bilie christiansen, s.kom
-----Original Message----- From: "Afrianto Dulbahri ST." <[email protected]> Sender: [email protected] Date: Fri, 8 Oct 2010 13:34:27 To: <[email protected]> Reply-To: [email protected] Subject: Re: [indopb] Mau Tanya dong Dear Bilie, Berikut ini adalah contohnya. Salam, Afri >>>> ANY anemployee_id, ansurname, anchperiod, anchpromoted_flag, andcpromotion_percentage, andcgeneral_increase ANY andcinternal_factor, andccompa_ratio, andccompetitiveness_factor STRING employee_id, surname, chperiod, chpromoted_flag DECIMAL dcpromotion_percentage, dcgeneral_increase DECIMAL dcinternal_factor, dccompa_ratio, dccompetitiveness_factor INTEGER ll_result LONG i, j, inbaris STRING chfile_location, chremark, chdummy DATE dtshiftdate oleobject lole_excel lole_excel = create oleobject string docname, named integer value value = GetFileOpenName("Select File", docname, named, "XLS", "Excel 97-2003 Files (*.XLS), *.XLS, Excel 2007 Files (*.XLSX), *.XLSX") //MessageBox("File Yang dipilih", docname) IF value = 1 THEN dw_gi_increment.Reset() ll_result = lole_excel.ConnectToNewObject("Excel.Application") lole_excel.application.workbooks.open(docname) lole_excel.application.Sheets("Sheet1").Select // Baca File Excel-nya /* SEARH FOR NUMBER OF ROWS IN EXCEL */ i = 2 anemployee_id = lole_excel.application.Sheets("Sheet1").Cells(1,1).value DO WHILE ISNULL(anemployee_id) = FALSE i = i + 1 anemployee_id = lole_excel.application.Sheets("Sheet1").Cells(i,1).value // MessageBox("Baris ke : " + string(i), "Nilai Tanggal " + STRING(antanggal)) LOOP inbaris = i - 1 // MessageBox("Jumlah Baris", STRING(inbaris, "#,##0")) FOR i = 2 to inbaris st_2.Text = STRING(i - 1, "#,##0") anemployee_id = lole_excel.application.Sheets("Sheet1").Cells(i,1).value ansurname = lole_excel.application.Sheets("Sheet1").Cells(i,2).value anchperiod = lole_excel.application.Sheets("Sheet1").Cells(i,3).value anchpromoted_flag = lole_excel.application.Sheets("Sheet1").Cells(i,4).value andcpromotion_percentage = lole_excel.application.Sheets("Sheet1").Cells(i,5).value andcgeneral_increase = lole_excel.application.Sheets("Sheet1").Cells(i,6).value andcinternal_factor = lole_excel.application.Sheets("Sheet1").Cells(i,7).value andccompa_ratio = lole_excel.application.Sheets("Sheet1").Cells(i,8).value andccompetitiveness_factor = lole_excel.application.Sheets("Sheet1").Cells(i,9).value employee_id = STRING(anemployee_id) surname = STRING(ansurname) chperiod = STRING(anchperiod) chpromoted_flag = STRING(anchpromoted_flag) dcpromotion_percentage = DEC(andcpromotion_percentage) dcgeneral_increase = DEC(andcgeneral_increase) dcinternal_factor = DEC(andcinternal_factor) dccompa_ratio = DEC(andccompa_ratio) dccompetitiveness_factor = DEC(andccompetitiveness_factor) dw_gi_increment.InsertRow(0) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "employee_id", employee_id) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "surname", surname) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "chperiod", chperiod) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "chpromoted_flag", chpromoted_flag) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "dcpromotion_percentage", dcpromotion_percentage) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "dcgeneral_increase", dcgeneral_increase) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "dcinternal_factor", dcinternal_factor) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "dccompa_ratio", dccompa_ratio) dw_gi_increment.SetItem(dw_gi_increment.RowCount(), "dccompetitiveness_factor", dccompetitiveness_factor) st_4.Text = STRING(dw_gi_increment.RowCount(), "#,##0") NEXT delete ellipse.tblsim_grade_promotion using sqlca; commit using sqlca; dw_gi_increment.Update() COMMIT using sqlca; // END OF READ Excel lole_excel.application.workbooks.close() lole_excel.application.visible = true if isvalid(lole_excel) then destroy lole_excel ELSE MessageBox("File Open Error", "Can not Open the file") END IF >>> "bilie" <[email protected]> 10/8/2010 12:22 PM >>> Para master, aku mau tanya nih,.. Gmana carany import record dri file excel to datawindow? Mohon penjelasanny agak detail, maklum bru bljr nih,hehehe thank you bilie christiansen, s.kom ------------------------------------ ----------------------------------------------- IndoPB - Indonesia PB User Group http://groups.yahoo.com/group/indopbYahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indopb/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/indopb/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> 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/
