Re: [indopb] Mau Tanya dong

Afrianto Dulbahri ST. Thu, 07 Oct 2010 22:33:53 -0700

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

<<image/xxx>>

<<image/gif>>

<<image/xxx>>

Re: [indopb] Mau Tanya dong

Kirim email ke