[vb6] Aiuto con tabbella acces

[djleo]

Ciao a tutti spero sapreste aiutarmi.
Ho un problema con un database mi spiego
in vb6 ho una sub che mi dovrebbe prendere due record a caso da una tabella del database
posto il codice:

Codice sorgente - presumibilmente Visual Basic
Sub crea()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
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, 1, 2
rs.AddNew
rs("giocatorea") = rs.Source = " Select * from [giocatori] order by rnd([id]);"
rs("giocatoreb") = rs.Source = " Select * from [giocatori] order by rnd([id]);"
rs.Update
End Sub


ma niente il risultato nella tabella è:
giocatorea giocatoreb
0 0

Come posso risolvere questo problema

[gibra]

Non capisco perchè tu usi i valori (mai usati) invece delle costanti mnemoniche:
rs.Open "sfide", cn, 1, 2
la costante mnemonica è immediata.

rs("giocatorea") = rs.Source = " Select * from [giocatori] order by rnd([id]);"
rs("giocatoreb") = rs.Source = " Select * from [giocatori] order by rnd([id]);"

Ma hai provato con il debug di queste due righe?
Sono completamente sballate.

Ciao

[oregon]

Come del resto ti e' stato risposto in

http://www.pierotofy.it/pages/extras...abbella_acces/