report .. ke disperazione!

[alchimista84]

Dim connessione As New ADODB.Connection
Dim tabella As New ADODB.Recordset
Dim tabella1 As New ADODB.Recordset
Dim query As String
Dim risultato As String

'dico alla capra del computer qual è il percorso e cosa deve usare x capirmi ...
connessione.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Freedom\Desktop\iociprovo.mdb;Persist Security Info=False"

'gli dico di aprire il percorso in una tabella ...
Set tabella.ActiveConnection = connessione

'gli do la query ...
query = "select nome as nome, cognome as cognome into newtab from cliente"

'la faccio eseguire nella tabella ...
tabella.Open query

'chiudo la conenssione o stampo...
connessione.Close

'avendo creato una nuova tabella ..devo prima chiudere poi devo ripetere alla capra il percorso .. altrimenti non funziona!!
connessione.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Freedom\Desktop\iociprovo.mdb;Persist Security Info=False"

'gli dico che deve aprire il percorso nella tabella1 ...
Set tabella1.ActiveConnection = connessione
'nuova query ...
query = "select nome from newtab"
'rivai con il limbo ...
tabella1.Open query
'sino a quando non finisce la tabella virtuale lui stampa i risultati della query ..
Do While Not tabella1.EOF
risultato = tabella1!nome & Chr(10)
MSFlexGrid1.AddItem risultato
tabella1.MoveNext
Loop
-------------------------------------------- qui da errore!! o dice ke è kiuso l'oggetto ... o impossibile trovare il metodo o i dati!

--> DataReport1.DataSource = tabella1
DataReport1.Show

'connessione.Close
'connessione.Open

[ladyBlu]

devi mettere Set davanti:

Set DataReport1.DataSource = tabella1

PS:
per cortesia, potresti utilizzare titoli più esplicativi quando apri le tue discussioni?
"report...ke disperazione" non lascia intendere quale sia il tuo problema

[alchimista84]

grazie aver risposto ..

mi spieghi una cosa?

xkè se dopo il report faccio connessione.close .. il report non parte +??


Set DataReport1.DataSource = tabella1
DataReport1.Show
connessione.Close