Access 2013 - Dbase (.dbf) Table Import option

I've got it!

I successfully imported .dbf to Ms Access 2013. It took 5 secs for 1MB File about 11,000+ rows and algorithm can be further optimized.

Supports basic types TEXT,MEMO,DATETIME,DOUBLE,YESNO data types.

The algorithm goes like this:

1. Connect to .dbf using ADO
2. Extract columns names and datatype
3. Generate Access CREATE TABLE DDL from extracted columns of .dbf
4. Execute obtained CREATE TABLE DDL.
5. Extract rows from .dbf then insert to new table.
6. Import finished.

Anyone still interested? :D

Excellent. Where there's a will, there's a way.

I'll try to create a function that imports .dbf to new access table.

Dear friend,

I'm not an expert in Ms Access. But I'll explain to you of what I only know.

In ms access, there is a way to manipulate files .csv, .xls, .mdb, etc. not by using wizard, but by coding (programmatically) in VBA (Code Builder). I used this code below to connect and throw sql commands to .dbf files (could be DDL or DML you can check visual foxpro reference to sql commands it supports)

You can start with this and take a first stab:

    'You can run this without referencing ADO Library

    Dim cn As Object

    Dim rs As Object

    Dim strSql As String

    Dim strConnection As String

    Set cn = CreateObject("ADODB.Connection")

    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

        "Data Source=C:\YourDir_thatcontains_dbf_files\;" & _

        "Extended Properties=dBase IV"

    strSql = "SELECT [COL1],[COL_ETC] FROM DBF_TABLE"      'do not include extension name

    cn.Open strConnection

    Set rs = cn.Execute(strSql)

    While Not rs.EOF

      Debug.Print rs.Fields("COL1").Value & vbTab & rs.Fields("COL_ETC").Value

      'Or do somethin else you need to do

      rs.MoveNext

    Wend

    rs.Close

    Set rs = Nothing

    cn.Close

    Set cn = Nothing