query funzionanti in access ma non all'interno di un progetto vb

[9178angel]

per il mio esame di stato ho realizzato un progetto in visual basic
con delle query che in access funzionano tranquillamente, ma non all'interno di questo progetto! vorrei capire perchè! il codice è il seguente:

Private Sub CMDquery1_Click()
   Set tabella1.ActiveConnection = cn
   query1 = "SELECT ALLIEVI.codiceA,ALLIEVI.nome,ALLIEVI.cognome," & _
           "COUNT(*) AS Risposte_Esatte INTO RISULTATI " _
           & "FROM ALLIEVI,TEST_INIZIALE,RISPOSTE " _
           & "WHERE ALLIEVI.codiceI=TEST_INIZIALE.codiceI " _
           & "AND ALLIEVI.codiceA=RISPOSTE.codiceA " _
           & "AND RISPOSTE.risI=TEST_INIZIALE.risEs " _
           & "GROUP BY ALLIEVI.codiceA,ALLIEVI.nome,ALLIEVI.cognome"

   tabella1.Open query1
   Do While Not tabella1.EOF
      risultato1 = tabella1!codiceA & Chr(9) _
            & tabella1!nome & Chr(9) _
            & tabella1!cognome & Chr(9) _
            & tabella!Risposte_Esatte & Chr(9)
            FLEXquery.AddItem risultato1
            tabella1.MoveNext
   Loop
End Sub

perchè mi dice che l'input della query deve contenere almeno una tabella o una query? mah!
please rispondete!

[Kylnas]

Originariamente inviato da 9178angel
per il mio esame di stato ho realizzato un progetto in visual basic
con delle query che in access funzionano tranquillamente, ma non all'interno di questo progetto! vorrei capire perchè! il codice è il seguente:

Private Sub CMDquery1_Click()
Set tabella1.ActiveConnection = cn
query1 = "SELECT ALLIEVI.codiceA,ALLIEVI.nome,ALLIEVI.cognome,COUNT (*)AS Risposte_Esatte INTO RISULTATI" _
& "FROM ALLIEVI,TEST_INIZIALE,RISPOSTE" _
& "WHERE ALLIEVI.codiceI=TEST_INIZIALE.codiceI" _
& "AND ALLIEVI.codiceA=RISPOSTE.codiceA" _
& "AND RISPOSTE.risI=TEST_INIZIALE.risEs" _
& "GROUP BY ALLIEVI.codiceA,ALLIEVI.nome,ALLIEVI.cognome"
tabella1.Open query1
Do While Not tabella1.EOF
risultato1 = tabella1!codiceA & Chr(9) _
& tabella1!nome & Chr(9) _
& tabella1!cognome & Chr(9) _
& tabella!Risposte_Esatte & Chr(9)
FLEXquery.AddItem risultato1
tabella1.MoveNext
Loop
End Sub

perchè mi dice che l'input della query deve contenere almeno una tabella o una query? mah!
please rispondete!

Prova a vedere qual'è il valore della vaiabile query1 prima di eseguirla.

[ladyBlu]

che significa INTO RISULTATI scritto all'interno di una SELECT?
INTO si usa per le istruzioni di INSERT...
:master:

[darkblOOd]

Originariamente inviato da ladyBlu
che significa INTO RISULTATI scritto all'interno di una SELECT?
INTO si usa per le istruzioni di INSERT...
:master:

mette i valori della select in una variabile chiamara RISULTATI

fai come dice Kylnas

[ilmagowalter]

in access se scrivi INTO RISULTATI viene creata, se non esiste, una tabella che si chiamerà RISULTATI dove inserirà come struttura i campi presenti nell'istruzione select e come dati i record risultato della query
si può dire che è una query di creazione tabella

darkblOOd
INTO RISULTATI mette il valore in una variabile risultati in programmi scritti per esempio in COBOL su DB2 dove però la sintassi esatta sarebbe "INTO :RISULTATI" dove i : danno il significato di variabile host a risultati

9178angel
penso che il problema sia proprio in questa clausola INTO RISULTATI perchè query1 la dovresti eseguire con il metodo execute della connessione appunto perchè è una query di creazione e non la puoi scorrere come un recordset

ciao

[9178angel]

scusate, siccome è un progetto fai da te la mia prof che è una testa di c...o, scusate il termine, ste cose nn me le ha mai spiegate e quindi sto cercando di farle da sola! se gentilmente mi fate vedere un pò come si fa ve ne sarei grata!
please rispondete!

[9178angel]

non mi stampa la query!!!!!!!!

[DeBe99]

Private Sub CMDquery1_Click()
   Set tabella1.ActiveConnection = cn
   query1 = "SELECT ALLIEVI.codiceA,ALLIEVI.nome,ALLIEVI.cognome," & _
           "COUNT(*) AS Risposte_Esatte INTO RISULTATI " _
           & "FROM ALLIEVI,TEST_INIZIALE,RISPOSTE " _
           & "WHERE ALLIEVI.codiceI=TEST_INIZIALE.codiceI " _
           & "AND ALLIEVI.codiceA=RISPOSTE.codiceA " _
           & "AND RISPOSTE.risI=TEST_INIZIALE.risEs " _
           & "GROUP BY ALLIEVI.codiceA,ALLIEVI.nome,ALLIEVI.cognome"
   'Questa è una query di comando (non estrae record ma li elabora o li aggiunge), devi eseguirla sulla connessione, cosi:
   cn.Execute query1

   'poi apri la tabella e la scorri
   query1="SELECT * FROM RISULTATI"
   tabella1.Open query1

   Do While Not tabella1.EOF
      risultato1 = tabella1!codiceA & Chr(9) _
            & tabella1!nome & Chr(9) _
            & tabella1!cognome & Chr(9) _
            & tabella!Risposte_Esatte & Chr(9)
            FLEXquery.AddItem risultato1
            tabella1.MoveNext
   Loop
End Sub

[9178angel]

sorge un problema.... mi da un errore se provo a rispingere il tasto sulla query!!!! mi dice che la tabella creata è inesistente. domanda: e se io voglio aggiornarla?

[DeBe99]

Non ho capito.