Dengan source code dibawah ini Anda akan lebih mudah mengimport data-data file DBF ke Access.
Option Compare Database Option Explicit Private Sub cmdImport_Click() Dim FullPath As String Dim CurrentPath As String Dim TableHRDExist As Boolean Dim i As Integer On Error GoTo errorImport ' Ambil direktori beserta nama file database ini FullPath = CurrentDb.Name ' Ambil hanya direktorinya saja CurrentPath = Left$(FullPath, InStrRev(FullPath, "\", , vbBinaryCompare) - 1) & "\" ' Hapus table [Data HRD] CurrentDb.Execute "DROP TABLE [Data HRD];" TransferDBF: ' Transfer file DataHRD.DBF to be table Data HRD DoCmd.TransferDatabase _ acImport, "dBase III", CurrentPath, acTable, _ "DataHRD.DBF", "Data HRD", False i = 0 For i = 0 To CurrentDb.TableDefs.Count - 1 If CurrentDb.TableDefs(i).Name = "Data HRD" Then TableHRDExist = True End If Next ' Jika table [Data HRD] tidak ada ulangi TransferDBF. ' Hal ini untuk mengecek berhasilkah transfer database? ' Biasanya transfer database tidak berhasil, ' sehingga harus dilakukan pengecekan If Not TableHRDExist Then GoTo TransferDBF End If MsgBox "Transfer file DBF telah berhasil.", , "Info" Exit Sub errorImport: Resume Next End SubFile DBF telah disertakan dalam paket download dibawah ini, nama file-nya adalah DataHRD.DBF, jika proses import telah berhasil, maka akan muncul tampilan seperti dibawah ini:
Proses import tsb akan menghasilkan satu table dengan nama Data HRD dengan beberapa record yang juga telah berhasil di import (lihat gambar dibawah).
Tools kecil ini semoga bisa memberikan manfaat.
No comments:
Post a Comment