Salva il recordset intero In In formato TXT o XML If Rs.RecordCount > 0 Then Rs.MoveFirst Rs.Filter = "Mese = " & Mese & " and Anno = " & Anno & " and OraclePensionati = true" ' formato XML Rs.Save App.Path & "\Documenti\Pensionati" & Mese & "_" & Anno & ".xml", adPersistXML ' formato testo Dim strFormat As String strFormat = Rs.GetString Open App.Path & "\Documenti\Pensionati" & Mese & "_" & Anno & ".txt" For Output As #1 Print #1, strFormat Close #1 End If |