[access 2010] query per compilazione script php

[luanca]

Buongiorno e un saluto a tutti sono un nuovo iscritto livello di esperienza in access:scarso.
La mia esigenza è la seguente: ho una tabella contenente alcuni campi [ID] [dato 1] [dato 2] con una query sono riuscito a formattare il contenuto di questi campi in un unico campo, in modo da ottenere uno script da inserire in una pagina php.
Ho bisogno di una soluzione per esportare ogni singolo record di questa query in singolo file php e che il file php ottenuto abbia nomefile: [id].php.
Purtroppo non conosco visual basic (credo offra una soluzione per questo).
Farlo fare ad access per me sarebbe molto flessibile.
Grazie.

[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

[luanca]

Ti ringrazio per la veloce risposta, ho iniziato da poco e ho difficoltà a far entrare il tuo codice nel mio Db.
Scusami se approfitto, magari altri neofiti potrebbero beneficiarne, potresti compilarmi il tuo codice con i dati reali del mio db?

nome DB: dizionario.mdb;
nome query: query1;
campi query: [id] [testo]

i record sono 2000, quindi dovrei produrre 2000 file php chiamati [id].php
con all'interno lo script proveniente da: [testo]

Access 2010 offre la possibilità di memorizzare il codice in moduli e moduli di classe, se non ti chiedo troppo, avrei bisogno di capire in quale di questi moduli devo andare a memorizzare il tuo script ed eventualmente come richiamarlo scusami ma sono veramente bianco!

Mi ritengo fortunato se in poco più di un mese sono riuscito a sfruttare probabilemnte a pieno le funzionalità delle Query.
Grazie per la pazienza.

[nelsonblu]

Ovviamente devi correggere anche il percorso della cartella che a me è C:\temp\

Dim DBCOrrente As DAO.Database 
Dim Tabella As DAO.Recordset 
Dim myFileName As String  
Set Db = CurrentDb 
Set Tabella = Db.OpenRecordset("query1", dbOpenDynaset) 
Do Until Tabella.EOF     
      myId = Tabella("id")     
      myCampo = Tabella("testo")  
      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

Se sei newbe con access lascia stare moduli e funzioni ma fai una semplice sub routine legata ad un pulsante in una maschera. E' la via piu semplice

In dettaglio.
- Crei una maschera vuota
- in modalità struttura ci aggiungi un pulsante ignorando il wizard
- Seleziona il pulsante e nella finestre delle proprietà vai sull'evento click
- generatore di codice
si aprira qualcosa di simile

Private Sub Comando1_Click()

End Sub

- Ci copi all'interno il mio codice
Salva e premi il pulsante

[luanca]

Mi hai salvato la vita amico! Grazie infinite, con la tua dritta mi si aprono orizzonti infiniti...

[luanca]

Ciao Nelsonblu, avrei un'altra piccola esigenza.
Ho bisogno di produrre un solo txt con un'altra query.
In questo caso però non deve produrre tanti file quanti sono i record, ma, un solo file con il contenuto di tutti i record.
Ragionando sullo stesso codice dell'esempio precedente come dovrei modificarlo per ottenere questo?
Grazie per la pazienza!