Discussione:
Variabili in una query
(troppo vecchio per rispondere)
Fulvio
2005-11-03 08:36:23 UTC
Permalink
Vorrei creare una tabella con una query da codice, passando una variabile.
Non ho ben chiaro la modalità di inserimento della variabile e delle "&" di
congiunzione, nel codice, me lo spiegate ? L'esempio è questo:

Private Sub Ins_record_Click()

variabile = "miavar"
Dim sql As String
DoCmd.Echo (echooff)
sql = "SELECT
template_prova.Id,template_prova.Cognome_nome,template_prova.interno,template_prova.cellulare INTO" 'variabile' "FROM template_prova"

DoCmd.runSql sql

End Sub
--
grazie
Fulvio Robbiani
Lorenzo(pyx)
2005-11-03 11:47:24 UTC
Permalink
Post by Fulvio
Vorrei creare una tabella con una query da codice, passando una variabile.
Non ho ben chiaro la modalità di inserimento della variabile e delle "&" di
Private Sub Ins_record_Click()
variabile = "miavar"
Dim sql As String
DoCmd.Echo (echooff)
sql = "SELECT
template_prova.Id,template_prova.Cognome_nome,template_prova.interno,template_prova.cellulare
INTO" 'variabile' "FROM template_prova"
DoCmd.runSql sql
End Sub
--
grazie
Fulvio Robbiani
Ciao,
stai facendo un "fritto misto" ;-)
Dal tuo codice mi pare che vuoi assegnare una serie di campi presi da
una tabella e inserirli in una variabile tramite codice SQL, non puoi
farlo con Jet.

Puoi invece usare le variabili per comporre un comando SQL legale, ad es.

Variabile testo e numerica:
sql="INSERT INTO template_prova(Id,Cognome_nome) "
sql=sql & "VALUES(" & 101 & ",""" & "CognomeNome" & """)"

Per assegnare invece un risultato di una select ad una variabile devi
usare DAO o ADO o comunque dei recordset e ancora la funzione
DLookup (vedi hlp)

Ciao
--
Lorenzo
Roberto da casa
2005-11-03 14:26:55 UTC
Permalink
Post by Fulvio
Vorrei creare una tabella con una query da codice, passando una variabile.
Non ho ben chiaro la modalità di inserimento della variabile e delle "&" di
Private Sub Ins_record_Click()
variabile = "miavar"
Dim sql As String
DoCmd.Echo (echooff)
sql = "SELECT
template_prova.Id,template_prova.Cognome_nome,template_prova.interno,templat
e_prova.cellulare INTO" 'variabile' "FROM template_prova"
Post by Fulvio
DoCmd.runSql sql
End Sub
Se variabile è una variabile stringa che contiene il nome dell tabella nella
quale vuoi accodare i record letti dalla tabella template_prova, prova così:

sql = "SELECT template_prova.Id,template_prova.Cognome_nome, " & _
"template_prova.interno,template_prova.cellulare INTO" & _
Chr$(34) & variabile & Chr$(34) & " FROM template_prova;"
Post by Fulvio
--
grazie
Prego
Post by Fulvio
Fulvio Robbiani
--
Roberto

-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Fulvio
2005-11-04 08:36:10 UTC
Permalink
Intanto ti ringrazio per l'attenzione.
Ho eseguito il modulo da te consigliato:

Private Sub Comando3_Click()
variabile = Environ("username")
Dim sql As String
DoCmd.Echo (echooff)

sql = "SELECT template_prova.Id,template_prova.Cognome_nome, " & _
"template_prova.interno,template_prova.cellulare INTO" & _
Chr$(34) & variabile & Chr$(34) & " FROM template_prova ;"

DoCmd.RunSQL sql

End Sub

La "variabile" viene sostituita ma l'esecuzione si ferma su "DoCmd.RunSQL
sql" con l'errore :

"3450, Errore di sintassi nella query. Proposizione della query incompleta".
Forse ho dimenticato di dire che la tabella "variabile" non è presente ma è
da creare, naturalmente questo comando verrà eseguito una sola volta.

Grazie ancora

ciao
--
Fulvio Robbiani
Post by Fulvio
Post by Fulvio
Vorrei creare una tabella con una query da codice, passando una variabile.
Non ho ben chiaro la modalità di inserimento della variabile e delle "&"
di
Post by Fulvio
Private Sub Ins_record_Click()
variabile = "miavar"
Dim sql As String
DoCmd.Echo (echooff)
sql = "SELECT
template_prova.Id,template_prova.Cognome_nome,template_prova.interno,templat
e_prova.cellulare INTO" 'variabile' "FROM template_prova"
Post by Fulvio
DoCmd.runSql sql
End Sub
Se variabile è una variabile stringa che contiene il nome dell tabella nella
sql = "SELECT template_prova.Id,template_prova.Cognome_nome, " & _
"template_prova.interno,template_prova.cellulare INTO" & _
Chr$(34) & variabile & Chr$(34) & " FROM template_prova;"
Post by Fulvio
--
grazie
Prego
Post by Fulvio
Fulvio Robbiani
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Roberto da casa
2005-11-05 11:02:21 UTC
Permalink
Post by Fulvio
Intanto ti ringrazio per l'attenzione.
Private Sub Comando3_Click()
variabile = Environ("username")
Dim sql As String
DoCmd.Echo (echooff)
sql = "SELECT template_prova.Id,template_prova.Cognome_nome, " & _
"template_prova.interno,template_prova.cellulare INTO" & _
Chr$(34) & variabile & Chr$(34) & " FROM template_prova ;"
DoCmd.RunSQL sql
End Sub
La "variabile" viene sostituita ma l'esecuzione si ferma su "DoCmd.RunSQL
"3450, Errore di sintassi nella query. Proposizione della query incompleta".
Forse ho dimenticato di dire che la tabella "variabile" non è presente ma è
da creare, naturalmente questo comando verrà eseguito una sola volta.
No, l'errore formale è dovuto al fatto che mi sono dimenticato di inserire
uno spazio dopo INTO; prova così:

sql = "SELECT template_prova.Id,template_prova.Cognome_nome, " & _
"template_prova.interno,template_prova.cellulare INTO " & _
Chr$(34) & variabile & Chr$(34) & " FROM template_prova;"

Naturalmente do per scontato che la tabella il cui nome è contenuto in
variabile deve esistere: come crearla sono problemi tuoi.
Post by Fulvio
Grazie ancora
Prego
Post by Fulvio
ciao
--
Fulvio Robbiani
[CUT]
--
Roberto

-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Fulvio
2005-11-07 00:16:06 UTC
Permalink
Grazie mille

ciao
--
Fulvio Robbiani
Post by Fulvio
Post by Fulvio
Intanto ti ringrazio per l'attenzione.
Private Sub Comando3_Click()
variabile = Environ("username")
Dim sql As String
DoCmd.Echo (echooff)
sql = "SELECT template_prova.Id,template_prova.Cognome_nome, " & _
"template_prova.interno,template_prova.cellulare INTO" & _
Chr$(34) & variabile & Chr$(34) & " FROM template_prova ;"
DoCmd.RunSQL sql
End Sub
La "variabile" viene sostituita ma l'esecuzione si ferma su "DoCmd.RunSQL
"3450, Errore di sintassi nella query. Proposizione della query
incompleta".
Post by Fulvio
Forse ho dimenticato di dire che la tabella "variabile" non è presente ma
è
Post by Fulvio
da creare, naturalmente questo comando verrà eseguito una sola volta.
No, l'errore formale è dovuto al fatto che mi sono dimenticato di inserire
sql = "SELECT template_prova.Id,template_prova.Cognome_nome, " & _
"template_prova.interno,template_prova.cellulare INTO " & _
Chr$(34) & variabile & Chr$(34) & " FROM template_prova;"
Naturalmente do per scontato che la tabella il cui nome è contenuto in
variabile deve esistere: come crearla sono problemi tuoi.
Post by Fulvio
Grazie ancora
Prego
Post by Fulvio
ciao
--
Fulvio Robbiani
[CUT]
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Continua a leggere su narkive:
Loading...