xkè nn stampa?

[9178angel]

ok raga, ci siamo...nel flex grid stampa...il problema è nel datagrid!
ora vi faccio vedè un pò il code:

Private Sub CMDquery1_Click()
 Set tabella1.ActiveConnection = cn
    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
   CMBtab.AddItem "RISULTATI"
           If CMBtab.ListIndex = 5 Then
            ADOtab.RecordSource = "RISULTATI"
            ADOtab.Refresh
           End If
End If
End Sub

please aiutatemiiiiiii!

[9178angel]

grazie per avermi kiuso il forum... se non rispondete qui è logico ke ne apro un altro! sembra che una volta diventate un pò vekkiotte le discussioni, tutti ci passano sopra!
ma qui è questione importantissima....
ho bisogno di risolvere qs problema al + presto!

[ladyBlu]

Originariamente inviato da 9178angel
grazie per avermi kiuso il forum... se non rispondete qui è logico ke ne apro un altro! sembra che una volta diventate un pò vekkiotte le discussioni, tutti ci passano sopra!
ma qui è questione importantissima....
ho bisogno di risolvere qs problema al + presto!

prego, ho fatto il mio dovere. E' vietato dal regolamento aprire discussioni uguali ad altre aperte in precedenza... e la regola dice di chiudere.

[9178angel]

MA ALMENO AIUTATEMI
ho preso 40 agli scritti vorrei almeno un 35 agli orali... se mi aiutate posso farcela vi prego