- BBDD en ACCESS que contiene X preguntas (unas 150 creo)
- Un VB 6.0
- Codigo Propio
- Quiero hacer un RAndomize
La cosa es que estoy haciendo un Trivial, la BBDD contiene varias preguntas con 3 opciones cada una, quiero recojer los valores pero en plan random para que cada vez que cambies de pregunta elija una diferente entre la base de datos.
Me podriais echar una mano? Mi codigo es este, criticadlo, analizadlo y quemadlo si quereis xD
Private Function GetNovaPregunta(Optional Actual As Integer = -1) As Integer
Dim SQL As String
Dim BaseDeDades As DAO.Database ' DAO = Data Acces Objects -- ADO = ActiveX Data Objects
Dim rstPreguntes As DAO.Recordset ' conjunt de registres, representacio de la taula
Dim i As Integer
' Obrim BD
Set BaseDeDades = Workspaces(0).OpenDatabase(BD)
SQL = "SELECT MAX(id_P) as MAX, MIN(id_p) as MIN FROM PREGUNTAS;"
Set rstPreguntes = BaseDeDades.OpenRecordset(SQL)
If Not rstPreguntes.EOF Then
IndexMax = rstPreguntes.Fields("MAX")
IndexMin = rstPreguntes.Fields("MIN")
End If
rstPreguntes.Close: Set rstPreguntes = Nothing
BaseDeDades.Close: Set BaseDeDades = Nothing
Ale:
' Num aleatori
Randomize
i = Rnd * 100
If i > IndexMax Then
GoTo Ale
ElseIf i < IndexMin Then
GoTo Ale
ElseIf Actual > 0 And i = Actual Then
GoTo Ale
Else
GetNovaPregunta = i
End If
End Function
Frikimaster