|
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
|