[access 2010] query per compilazione script php

[nelsonblu]

Questo è un esempio di una routine che crea dei nomeID.php in una cartella con percorso C:\temp
I file non devono esistere altrimenti aggiunge righi successivi se lanci piu volte il comando nello stesso file.
Se vuoi ogni volta 1file con un solo riga attiva la riga con "kill"

Private Sub esporta_Click() 
Dim DBCOrrente As DAO.Database 
Dim Tabella As DAO.Recordset 
Dim myFileName As String  
Set Db = CurrentDb 
Set Tabella = Db.OpenRecordset("qrytabella1", dbOpenDynaset) 
Do Until Tabella.EOF     
      myId = Tabella("ID")     
      myCampo = Tabella("nomeCampoUnico")  
      myFileName = "C:\Temp\" & myId & ".php" 
      'Kill myFileName 
      Open myFileName For Append As #1 
      Print #1, myCampo     
      Close #1     
      Tabella.MoveNext      
Loop 
Tabella.Close 
Db.Close 
End Sub