xkè nn stampa?

[9178angel]

ho il seguente codice:

Private Sub CMDquery1_Click()
Set tabella1.ActiveConnection = cn
CMBtab.AddItem "RISULTATI"
If CMBtab.ListIndex = 5 Then
ADOtab.RecordSource = "RISULTATI"
ADOtab.Refresh
End If
query1 = "SELECT * FROM RISULTATI"
On Error Resume Next 'serve per far avanti il codice nonstante si sia verificato un errore
tabella1.Open query1
If Err.Number = -2147217865 Then ' codice di errore per tabella non trovata
tabella1.Close
'fai la query di creazione
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"
Else
tabella1.Close
query1 = "DROP TABLE RISULTATI"
cn.Execute query1
'fai la query di creazione

query1 = "SELECT * FROM MSysObjects where name = 'RISULTATI'"
tabella1.Open query1
If tabella1.EOF Or tabella1.BOF Then
tabella1.Close
'fai la query di creazione
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
End If
On Error GoTo 0 ' serve per eliminare il resume next


'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) _
& tabella1!Risposte_Esatte
FLEXquery.AddItem risultato1
tabella1.MoveNext
Loop
End If
End Sub

xkè nn stampa nulla? HELP ME!PLEASE!

[xegallo]

perchè non scrivi dei titoli decenti e il codice come si conviene a una persona che ha tutto l'interesse a farlo leggere
se non mi aiuti prima tu essendo quantomeno educato con chi legge come speri che lo faccia io

[9178angel]

ok, scusate l'indecenza del codice:

'attivo la connessione
Set tabella1.ActiveConnection = cn

'qui uso delle combo box per aggiungere la tabella che andremo a creare nel dbgrig "RISULTATI"
CMBtab.AddItem "RISULTATI"
If CMBtab.ListIndex = 5 Then
ADOtab.RecordSource = "RISULTATI"
ADOtab.Refresh
End If

query1 = "SELECT * FROM RISULTATI"
On Error Resume Next 'serve per far avanti il codice nonstante si sia verificato un errore
tabella1.Open query1
If Err.Number = -2147217865 Then ' codice di errore per tabella non trovata
tabella1.Close

'fai la query di creazione
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"

'codice per cancellare la tabella nel caso in cui voglia rispingere il comando
Else
tabella1.Close
query1 = "DROP TABLE RISULTATI"
cn.Execute query1

'fai la query di creazione
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"
cn.Execute query1
End If
On Error GoTo 0 ' serve per eliminare il resume next


'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) _
& tabella1!Risposte_Esatte
FLEXquery.AddItem risultato1
tabella1.MoveNext
Loop
End If
End Sub


sxerando che si capisca qualcosa

[Gigi84]

xegallo intendeva di usare i tag [ C O D E ] e [ / C O D E ] (senza spazi)
in modo da formattare il codice..

se hai capito allora
    bene(:))
altrimenti
    male_moltomale(:mad: )
fine

:gren: :gren:

potresti addirittura evidenziare dov'è il codice sbagliato, dove ti aspetti che stampi!

[9178angel]

vediamo un pò:

'attivo la connessione 
Set tabella1.ActiveConnection = cn 
'qui uso delle combo box per aggiungere la tabella che andremo a creare nel dbgrig "RISULTATI" 
CMBtab.AddItem "RISULTATI" 
If CMBtab.ListIndex = 5 Then 
ADOtab.RecordSource = "RISULTATI" 
ADOtab.Refresh 
End If 
query1 = "SELECT * FROM RISULTATI" 
On Error Resume Next 'serve per far avanti il codice nonstante si sia verificato un errore 
tabella1.Open query1 
If Err.Number = -2147217865 Then ' codice di errore per tabella non trovata 
tabella1.Close 
'fai la query di creazione 
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" 
'codice per cancellare la tabella nel caso in cui voglia rispingere il comando 
Else 
tabella1.Close 
query1 = "DROP TABLE RISULTATI" 
cn.Execute query1 
'fai la query di creazione 
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" cn.Execute query1 
End If 
On Error GoTo 0 ' serve per eliminare il resume next 
'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) _ 
& tabella1!Risposte_Esatte 
FLEXquery.AddItem risultato1 
tabella1.MoveNext 
Loop 
End If 
End Sub

VA MEGLIO?

[Gigi84]

il codice.. non l'ho capito tanto.. :master:

cmq, sei sicuro di non estrarre un recordset vuoto??

[9178angel]

anche se fosse vuoto mi dovrebbe inserire almeno i nomi dei campi cm lo fa x le altre tabelle!

[9178angel]

rispondete vi prego

[Gigi84]

scusa una cosa:
ma la query "SELECT ... INTO .. " che query è?? non mi sembra che crei una tabella, come commenti sopra..
non l'ho mai sentita,al massimo SELECT FROM o INSERT INTO.. ma magari sono io che sono ignorante..!

[9178angel]

quello è il comando! quella stessa query se la eseguo in access funziona...è in vb che da i numeri!