[VB6]Popolare un DataGrid senza ADO

[thunderlips]

Ciao a tutti, ho spulciato i vecchi thread ma non ho trovato nulla che facesse al caso mio.

Ho un recordset creato tramite:

Private DMConnection As Workspace
Private DMDatabase As Database
Private DMRecordset As Recordset


Set DMConnection = DBEngine.Workspaces(0)
Set DMDatabase = DMConnection.OpenDatabase(db)
Set DMRecordset = DMDatabase.OpenRecordset(SQLQuery)

dove db ed SQLQuery sono due variabili contenenti i valori necessari ai due metodi utilizzati.

Posso con questo metodo popolarmi un controllo MSDataGrid con il contenuto del mio Recordset? E se sì come?

Grazie

[thunderlips]

Scusate se uppo, ma nessuno ha nemmeno una minima idea?

[darkblOOd]

setta come dataSource della griglia il recordset

[thunderlips]

Bo', sicuramente sbaglio qualcosa se faccio:

DomandeDGrid.DataSource = questions 'questions è un recordset ed è popolato poiché lo verifico in precedenza

Mi dice "Method or data member not found" evidenziandomi ".DataSource" (che però compare nell'elenco delle proprietà dell'oggetto DataGrid "DomandeDGrid").

Se invece faccio

Set DomandeDGrid.DataSource = questions

Mi dice "13 Type mismatch", senza evidenziare nulla e senza popolarmi il DataGrid...

Boh...??

[thunderlips]

Non esiste davvero nessuno che sappia darmi una mano a risolvere questa questione?

[thunderlips]

Bo', io dico che la speranza è l'ultima a morire: se qualcuno potesse essere così gentile da darmi una risposta gliene sarei grato, anche se sembra che a nessuno sia mai capitato...

[darkblOOd]

che io sappia si fa così, hai aperto il recordset e l'hai popolato prima di settarlo come DataSource?

[thunderlips]

Sì, il recordset è popolato, ho pure fatto un ciclo che stampa tutti i record del recorset con Debug.Print e l'assegnazione al DataGrid la faccio successivamente, quindi sono sicuro che il recordset sia popolato.

Quello che non capisco è cosa sia quel "13 Type mismatch"...

Se ti può essere utile per capire questo è un pezzo del codice in questione, praticamente ho creato una classe che mi gestisce le connessioni e l'esecuzione delle query sul database e la utilizzo ogni volta che devo prendere i inserire o modificare dei dati nel database

    Set questionData = New DataManager
    questionData.Name = "QuestionsFinder"
    
    connect = questionData.DatabaseConnect(applicationPath)
    
    If connect = True Then
        SQLQuery = "SELECT domanda FROM questions"
        testQuestions = questionData.ExecuteQuery(SQLQuery)
        If (testQuestions = True) Then
            Set questions = questionData.RS
            questions.MoveFirst
            Do While i < questions.RecordCount
                Debug.Print questions.Fields("domanda")
                i = i + 1
                questions.MoveNext
            Loop
            Set DomandeDGrid.DataSource = questions
            'DomandeDGrid.DataSource = questions
        Else
            MsgBox "Errore durante l'esecuzione della query." 
        End If
    Else
        MsgBox "Errore: connessione al database non riuscita"
    End If

[Teddy]

Che tipo di cursori stai usando?
Lato client o lato server?
Se non specifichi niente i cursori vengono impostati di default di tipo server.
Ciao

[thunderlips]

Il mio database è in locale: cosa sono e come faccio ad impostare i cursori? Ti ricordo che comunque con questo metodo non sto utilizzando ADO.