Ho un piccolo problema. Mi è stato chiesto di fare un programma semplice per l'erogazione di test automatizzati.
Praticamente, ho una form nella quale c'è una textbox che pesca, ad una ad una, le domande da un database Access97, poi ci sono 4 checkbox con le opzioni di risposta.
Il database è così composto:
NomeCampo | TipoDati
Domanda Testo
Opzione1 Testo
Opzione2 Testo
Opzione3 Testo
Opzione4 Testo
Risposta1 Sì/No
Risposta2 Sì/No
Risposta3 Sì/No
Risposta4 Sì/No
Purtroppo, mi è stato chiesto di utilizzare l'oggetto data per interfacciarmi al database, con i DAO e non tramite ADO.
Con l'uso di un command button per passare di volta in volta alla domanda successiva già avrei risolto.
Dim ldb As Database
Dim rs As Recordset
______________________________________
Set ldb = OpenDatabase("C:\Domande.mdb")
Set rs = ldb.OpenRecordset("SELECT * FROM quiz")
lblDomanda.Caption = rs.Fields("Domanda")
Check1.Caption = rs.Fields("Opzione1")
Check2.Caption = rs.Fields("Opzione2")
Check3.Caption = rs.Fields("Opzione3")
Check4.Caption = rs.Fields("Opzione4")
______________________________________
Private Sub Command4_Click()
rs.MoveNext
End Sub
______________________________________
Al momento ho settato le proprietà di Data1 così:
-Connect: Access
-DatabaseName: C:\Domande.mdb
-RecordSource: Quiz (ho provato anche con "SELECT * FROM quiz" che sapevo essere più affidabile
Purtoppo, non riesco ad utilizzare il controllo data, ovvero vorrei che quando l'utente preme le frecce di direzionamento, il recordset si sposti di volta in volta al record voluto.
Qualche consiglio?
Grazie...