Create text file based database : CSV « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. CSV

Create text file based database

 
Sub TextExample()
    Dim rs As ADODB.Recordset
    Dim cn As ADODB.Connection
    Dim sCS As String
    Dim sSQL As String
    Set cn = New ADODB.Connection
    sCS = "DefaultDir=C:\;"
    sCS = sCS & "Driver={Microsoft Text Driver (*.txt; *.csv)};"
    sCS = sCS & "DriverId=27;"
    cn.ConnectionString = sCS
    cn.Open
    Debug.Print cn.ConnectionString
    On Error Resume Next
    cn.Execute "CREATE TABLE [newfile.txt] (FirstName TEXT, LastName TEXT);"
    If Err.Number <> 0 And Err.Number <> vbObjectError + 3604 Then
        Debug.Print Err.Number & ": " & Err.Description
        Exit Sub
    End If
    sSQL = "INSERT INTO [newfile.txt] (FirstName, LastName) Values ('steve', 'roman');"
    cn.Execute sSQL
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM NewFile.txt", cn, adOpenDynamic, adLockOptimistic
    Debug.Print rs.Supports(adAddNew)
    Debug.Print rs.Supports(adBookmark)
    Debug.Print rs.Supports(adDelete)
    Debug.Print rs.Supports(adFind)
    Debug.Print rs.Supports(adUpdate)
    Debug.Print rs.Supports(adMovePrevious)
    
    rs.Close
    cn.Close

End Sub

 

Related examples in the same category