Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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