vb2005中如何将sql查询得到的数据存入数组?
vb2005中如何将sql查询得到的数据存入数组?谢谢~提供下思路也好
'************************************
类似下面vb6代码的功能,可惜我不会vb6

Dim RS As ADODB.Recordset
Dim CONN As ADODB.Connection
Set CONN = CreateObject( "ADODB.Connection ")

CONN.Open "PUBS "
sql = "select * from authors "
Set RS = CONN.Execute(sql)

MsgBox RS.GetString(, 10)
RS.MoveFirst

这个例程连接SQL Server PUBS数据库,将所有的作者名字提取进一个记录集中,然后将

它的最开始的10行拉直变成一个字符串.
'************************************

[解决办法]
Dim conn as new SqlConnection( "Data Source=xxxxx;Initial Catalog=pubs;User ID=xxxx;Password=xxxxx ")
Dim com As New SqlCommand( "select au_lname from authors ", conn)
Dim mydata As New DataSet
Dim ada As New SqlDataAdapter
If conn.State = ConnectionState.Closed Then conn.Open()
ada.SelectCommand = com
ada.Fill(mydata, ( "test "))
conn.Close()
Dim total As Int32 = mydata.Tables( "test ").Rows.Count
ReDim pub_name(total)
Dim i As Int32
For i = 0 To total - 1
pub_name(i) = mydata.Tables( "test ").Rows(i).Item(0)
Next

方法比较笨，但能得到你要的效果
嘿嘿
[解决办法]
如果只需要名字
用reader效率应该高点
while(reader.Read())
{
Arraylist.add(....)
}