Şuanda kullandığım kodlar aşağıda..
Fakat dikkat ediyorum hep belirli şekilde dağıtıyor.. Her defasında farklı yapmasını için ne yapmalıyım?
Visual basic 6.0 kullanmaktayım
Alıntı
Private Sub Command1_Click()
Set rec = New ADODB.Recordset
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = DersTakip.mdb"
rec.Open "select * from VERILER ", conn, adOpenKeyset, adLockOptimistic
Dim i As Integer
For i = 0 To 10
Randomize
rec!Rastgele = Int((10 * Rnd) + 1)
rec.Update
Next
rec.Close
Set rec = Nothing
conn.Close
FillFlexGrid
End Sub
