为什么这样只能取到数据库的第一个数据?大家进来帮帮我呀1

Question

Dim i As Integer
 Dim strSQL As String
 Dim RecordDate As Recordset            '保存SQL语句搜索结果的记录集
 Set g_Conn = New Connection
  '连接到数据库
  With g_Conn
     .CursorLocation = adUseClient
     .CommandTimeout = 10
     ' 连接到ACCESS数据库
     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
     "Data Source=" & App.Path & "\" & "db2.mdb"
     .Open
  End With
    Adoana.ConnectionString = g_Conn.ConnectionString
    
    strSQL = "select id ,SCO from score"
    Set RecordDate = g_Conn.Execute(strSQL)
    
    
   
    px(i) = RecordDate("id").Value
   
    
    py(i) = RecordDate("sco").Value
                             上面的一段语句只能取到数据库的第一个语句,但是我想依次不断的取数据进行下面的计算,怎么班?(做的一个k均值的算法)'选k个初始聚类中心  z[i]
 For i = 0 To 2
  z0x(i) = px(i)
  z0y(i) = py(i)
Next i
For i = 1 To total
tp(i) = 0
Next i'进行迭代，对total个样本根据聚类中心进行分类

Answer 1

Dim i As Integer
 Dim strSQL As String
 Dim RecordDate As Recordset            '保存SQL语句搜索结果的记录集
 Set g_Conn = New Connection
  '连接到数据库
  With g_Conn
     .CursorLocation = adUseClient
     .CommandTimeout = 10
     ' 连接到ACCESS数据库
     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
     "Data Source=" & App.Path & "\" & "db2.mdb"
     .Open
  End With
    Adoana.ConnectionString = g_Conn.ConnectionString
    
    strSQL = "select id ,SCO from score"
    Set RecordDate = g_Conn.Execute(strSQL)
    
'********请看下面的语句******** 
dim j&
Where Not RecordDate.Eof
    px(j) = RecordDate("id").Value
    py(j) = RecordDate("sco").Value
    j=j+1
    RecordDate.MoveNext
Wend'************代码结束***********
   
    px(i) = RecordDate("id").Value
   
    
    py(i) = RecordDate("sco").Value
                             上面的一段语句只能取到数据库的第一个语句,但是我想依次不断的取数据进行下面的计算,怎么班?(做的一个k均值的算法)'选k个初始聚类中心  z[i]
 For i = 0 To 2
  z0x(i) = px(i)
  z0y(i) = py(i)
Next i
For i = 1 To total
tp(i) = 0
Next i

Answer 2

使用Recordset.MoveNext()方法遍历

Answer 3

管理--->给分
==============
随便给我点----------->开玩笑啦