Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Save Recordset to a file

Sub PersistRecordset()     Dim strFileName As String     strFileName = "c:\test.txt"     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.CursorType = adOpenStatic     rst.LockType = adLockOptimistic     rst.Open Source:="Select * from Employees ", _         Options:=adCmdText     On Error Resume Next     Kill strFileName     rst.Save strFileName, adPersistADTG     rst.Close     Set rst = Nothing End Sub