[access 2010] query per compilazione script php

scegli un altro forum

Indietro Ricarica Avanti

Autore

Discussione

luanca
Utente di HTML.it

Registrato il: Mar 2012

Provenienza:

Messaggi: 7

ICQ:

MSN:

Skype:

[access 2010] query per compilazione script php

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.

Segnala ad un moderatore | IP: Collegato | Permalink

31-03-2012 11:03

Clicca qui per inviare all'utente luanca un messaggio privato

Visualizza ulteriori messaggi scritti dall'utente luanca

Aggiungi l'utente luanca alla tua lista degli utenti amici

nelsonblu
Utente di HTML.it

Registrato il: Feb 2007

Provenienza:

Messaggi: 2233

ICQ :

MSN :

Skype :

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"

codice:

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

Ultima modifica ad opera dell'utente nelsonblu il 31-03-2012 alle 14:00

Segnala ad un moderatore | IP: Collegato | Permalink

31-03-2012 13:58

Clicca qui per inviare all'utente nelsonblu un messaggio privato

Visualizza ulteriori messaggi scritti dall'utente nelsonblu

Aggiungi l'utente nelsonblu alla tua lista degli utenti amici

luanca
Utente di HTML.it

Registrato il: Mar 2012

Provenienza:

Messaggi: 7

ICQ :

MSN :

Skype :

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.

Segnala ad un moderatore | IP: Collegato | Permalink

31-03-2012 15:26

nelsonblu
Utente di HTML.it

Registrato il: Feb 2007

Provenienza:

Messaggi: 2233

ICQ :

MSN :

Skype :

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

codice:

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

Segnala ad un moderatore | IP: Collegato | Permalink

31-03-2012 15:52

luanca
Utente di HTML.it

Registrato il: Mar 2012

Provenienza:

Messaggi: 7

ICQ :

MSN :

Skype :

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

Segnala ad un moderatore | IP: Collegato | Permalink

01-04-2012 11:24

luanca
Utente di HTML.it

Registrato il: Mar 2012

Provenienza:

Messaggi: 7

ICQ :

MSN :

Skype :

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!

Segnala ad un moderatore | IP: Collegato | Permalink

25-04-2012 12:06

Tutte le ore sono con fuso orario CET. Ora sono le 13:27.

Ultima discussione Prossima discussione

HTML.it forumSistemi operativi e softwareWindows e software[access 2010] query per compilazione script php

Versione per la stampa |

Invia il thread via email |

Ricevi aggiornamenti sul thread |

Scarica il thread

ciao Unregistered

HTML.it forumSistemi operativi e softwareWindows e software[access 2010] query per compilazione script php

[access 2010] query per compilazione script php

HTML.it forumSistemi operativi e softwareWindows e software[access 2010] query per compilazione script php

Cerchi un argomento specifico e hai fretta? Usa il motore di ricerca