Jika
Anda awalnya membuat program for DOS dengan data menggunakan file DBF,
dikemudian hari ingin migrate ke Access, Anda tidak perlu cemas
dengan data-data sebelumnya.
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 Sub
File 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.
