如何将检索列从数据读取器保存到数组中？

Question

我想检索表中约800行的单列，并将这些值保存在数组中以便稍后参考。我该怎么做？我试过：

con = New OleDb.OleDbConnection("provider=SQLOLEDB;data source=PC;initial catalog=DB1;integrated security=SSPI") 

    cmd = New OleDbCommand("select col1 from table1", con) 

    con.Open() 

    r = cmd.ExecuteReader 

    While r.Read 

     prev_ob(i) = r.Item(0)(0) 

     i = i + 1 

    End While 

    For i = 0 To UBound(prev_ob) 

     Console.WriteLine(prev_ob(i)) 

    Next` 

而且它没有工作。 col1是Int64类型，数组prev_ob（）也是。请让我知道如何将它保存到数组中。

Answer 1

什么是错误的越来越？更多信息将帮助您尽快获得答案。

试试这个：

Dim int64list As New List(Of Int64) 

cmd = New OleDbCommand("select col1 from table1", con) 

    con.Open() 
    r = cmd.ExecuteReader 

    While r.Read 

     int64list.Add(Convert.ToInt64(r.Item(0)) 

    End While 

For Each obj In int64list 
    Console.WriteLine(obj) 
Next obj 

PS我写在C＃工程样品，并试图翻译成VB.net。