Berbagi: Upload dari Excel ke Database dengan VB6

Bagaimana caranya untuk upload data excel ke database yang kita miliki?

Misal, sebut saja kita ingin upload data karyawan kita yang berada di file excel dengan tampilan seperti gambar di bawah ini

dan anggap saja kita memiliki database dengan table karyawan adalah m_employee dengan field-field yang dimiliki adalah sebagai berikut:

emp_code => NIK

emp_nid => NIK

emp_name => Nama Karyawan

emp_activeyn => masih menjadi karyawan ataukah telah resign

emp_divcode => Departemen karyawan

emp_subdivcode => Sub Departemen karyawan

emp_poscode => Jabatan karyawan

emp_status => Status karyawan apakah kontrak, permanen atau training

emp_entryid => Siapakah yang melakukan proses input

emp_firsentry => Kapankah yang kali pertama melakukan proses entry

Untuk melakukan proses upload data tersebut, berikut adalah langkah yang harus disiapkan:

Tambahkan Reference untuk Microsoft Excel dari Menu

Project – Reference

dan akan tampil seperti gambar di bawah ini

siapkan form kosong seperti gambar di bawah ini

Beri nama cmdUpload untuk CommandButton

Copykan syntax di bawah ini di form tersebut

Private Sub cmdUpload_Click()

txtSumber.Text = CmdDialog.FileName

Set ExlObj = CreateObject(“excel.application”)

ExlObj.Workbooks.Open txtSumber.TextFor A = 2 To 1000000

Connect.Execute “INSERT INTO M_EMPLOYEE_COPY(EMP_CODE,EMP_NID,EMP_NAME,EMP_ACTIVEYN,” & _

“EMP_DIVCODE,EMP_SUBDIVCODE,EMP_POSCODE,EMP_STATUS,” & _

“EMP_ENTRYID,EMP_FIRSTENTRY) VALUES(” & _

“‘” & ExlObj.ActiveSheet.Cells(A, 1).Value & “‘,” & _

“‘” & Replace(ExlObj.ActiveSheet.Cells(A, 2).Value, “‘”, “`”) & “‘,” & _

“‘T’,” & _

“‘” & ExlObj.ActiveSheet.Cells(A, 3).Value & “‘,” & _

“‘” & ExlObj.ActiveSheet.Cells(A, 4).Value & “‘,” & _

“‘” & ExlObj.ActiveSheet.Cells(A, 5).Value & “‘,” & _

“‘” & ExlObj.ActiveSheet.Cells(A, 6).Value & “‘,” & _

“‘SYSTEM’,'” & Format(Now, “YYYY/MM/DD HH:MM:SS”) & “‘)”, , adCmdText

If ExlObj.ActiveSheet.Cells(A, 2) = “” Then

Exit For

End If

End Sub

Selamat Mencoba,
Sumber: https://wawangunawan.wordpress.com/2011/11/24/upload-dari-excel-ke-database-dengan-vb6/

Berbagi