tabella di nuova creazione nel data grid come fare?

[9178angel]

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

cm faccio ad inserire la tabella RISULTATI nel datagrid? nel flex grid stampa il risultato xkè nn me lo inserisce nel data grid?

[ladyBlu]

Crossposting
http://forum.html.it/forum/showthrea...hreadid=476256