prendere due moni a caso da una tabella con vb6

[djleo]

vi posto il codice ke mi prende i due nomi a caso

 
Sub crea()
Randomize
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\torneo.mdb"
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open stringa
    rs.Open "sfide", cn, 3, 3
    rs.AddNew
        rs("sa") = rs.Source = " select top 1 * from [giocatori] order by rnd([id]);"
        rs("sb") = rs.Source = " select top 1 * from [giocatori] order by rnd([id]);"
    rs.Update
    Set cn = Nothing
    Set rs = Nothing
End Sub

facendo cosi mi prende solo due nomi io voglio che mi deve creare le coppie di tutti in nomi presenti nella tabella
lo so devo usare un cilco ma non so quale sia il più adatto

[Joe Taras]

Credo allora che devi fare una select e riempirti un array e sull'array prendi dei nomi a caso e volta per volta li cancelli dall'array (o li marchi come già estratti) fino a formare tutto il tabellone con le sfide.

[djleo]

non ci sarebbe un altro modo

[Joe Taras]

Ossia?

Quello che ti ho consigliato, non impatta sul DB, altrimenti dovresti mettere un flag sulla tabella che tiene conto del record estratto per poi risettarlo quando hai finito, sarebbe molto brutta come cosa.

Non è difficile quello che ti ho detto.

Fai la query
Cicli sul risultato della query riempiendo l'array impostando il flag a N
Crei un ciclo che estrae i dati dall'array solo se esistono righe con flag a N

Good job!