1. [업로드] 버튼을 통해 엑셀을 FlexGrid(이하 FXGrd1)로 읽어온다.
1) 샘플은 Row 300개, Col 30개
2. [DB저장] 버튼을 누르면 FX값이 DB에 insert 된다.
아래 샘플
Dim i As Integer
If Cmb_upload_name.SelectedItem = "-업로드선택-" Then
MsgBox("업로드 할 파일 종류를 정확히 선택하셔야 합니다.")
ElseIf Cmb_upload_name.SelectedItem = "RCMS" Then
For i = 2 To temp_row_count
field_chk("t_rcms", "where 사용일자='" & FXGrd1(FXGrd1.Row, 4).ToString() & "' and 등록일시='" & FXGrd1(FXGrd1.Row, 5).ToString() & "' and 이체일시='" & FXGrd1(FXGrd1.Row, 6).ToString() & "' and 예금주명='" & FXGrd1(FXGrd1.Row, 13).ToString() & "'")
cal_acc_no(FXGrd1(FXGrd1.Row, 5).ToString())
If temp_field_chk = 0 Then
cal_acc_no(FXGrd1(FXGrd1.Row, 12).ToString())
encode_bs_no(CDbl(FXGrd1(FXGrd1.Row, 15).ToString()))
code_create_temp("t_rcms", "RCM")
temp_rcm_code = new_code_temp
rcms_insert(temp_rcm_code, FXGrd1(FXGrd1.Row, 1).ToString(), FXGrd1(FXGrd1.Row, 2).ToString(), FXGrd1(FXGrd1.Row, 3).ToString(), FXGrd1(FXGrd1.Row, 4).ToString(), FXGrd1(FXGrd1.Row, 5).ToString(), FXGrd1(FXGrd1.Row, 6).ToString(), FXGrd1(FXGrd1.Row, 7).ToString(), FXGrd1(FXGrd1.Row, 8).ToString(), FXGrd1(FXGrd1.Row, 9).ToString(), FXGrd1(FXGrd1.Row, 10).ToString(), FXGrd1(FXGrd1.Row, 11).ToString(), en_acc_no, FXGrd1(FXGrd1.Row, 13).ToString(), FXGrd1(FXGrd1.Row, 14).ToString(), en_bs_no, FXGrd1(FXGrd1.Row, 16).ToString(), FXGrd1(FXGrd1.Row, 17).ToString(), CDbl(FXGrd1(FXGrd1.Row, 18).ToString()), CDbl(FXGrd1(FXGrd1.Row, 19).ToString()), CDbl(FXGrd1(FXGrd1.Row, 20).ToString()), CDbl(FXGrd1(FXGrd1.Row, 21).ToString()), CDbl(FXGrd1(FXGrd1.Row, 22).ToString()), FXGrd1(FXGrd1.Row, 23).ToString(), temp_acc_info1, temp_acc_info2, temp_acc_info3, FXGrd1(FXGrd1.Row, 24).ToString(), FXGrd1(FXGrd1.Row, 25).ToString(), FXGrd1(FXGrd1.Row, 26).ToString(), FXGrd1(FXGrd1.Row, 27).ToString(), FXGrd1(FXGrd1.Row, 28).ToString(), temp_t_chk)
obj_code_insert(temp_rcm_code, "t_rcms")
End If
Next
End If