vb.net 遍历数据(vb6转.net)

[linste]

vb.net 怎样现实vb6中的代码
如下：

Dim Rs As New Recordset
Dim Item As ListItem

Rs.CursorLocation = adUseClient

Rs.Open "select *　from tbl_Base_User ", cn, 3, 2

ListView1.ListItems.Clear

If Rs.RecordCount > 0 Then
Do While Not Rs.EOF
Set Item = ListView1.ListItems.Add()

Item.Text = Rs!UserID
Item.SubItems(1) = Rs!UserName
Rs.MoveNext
Loop
End If

[tuoshi]

用SqlDataReader

参考：http://msdn.microsoft.com/zh-cn/library/system.data.sqlclient.sqldatareader(VS.80).aspx

[lrjt1980]

那有什么意义吗

[wuyq11]

这种技术还有多少人使用，技术是不断发展的，使用ADO.net或数据库操作类
For Each dr As DataRow In dt.Rows

Next
http://topic.csdn.net/u/20071206/10/9c3d8285-70f2-48e5-879f-9298a1f038f5.html

[贝隆]

学习

[tuoshi]

是SQL Server那就用SqlDataReader，有什么不清楚的么？

[linste]

SqlDataReader 不会用，有没有相关代码

[tuoshi]

唉，你有没有认真看回帖啊，我第一个回复上不是已经贴了MSDN的帮助文档链接了么？

    Dim queryString As String = _
        "SELECT OrderID, CustomerID FROM dbo.Orders;"

    Using connection As New SqlConnection(connectionString)
        Dim command As New SqlCommand(queryString, connection)
        connection.Open()

        Dim reader As SqlDataReader = command.ExecuteReader()

        ' Call Read before accessing data.
        While reader.Read()
            Console.WriteLine(String.Format("{0}, {1}", _
                reader(0), reader(1)))
        End While

        ' Call Close when done reading.
        reader.Close()
    End Using

把connectionString改成你的数据库连接串。

[linste]

- - ok 结贴了

[xunis]

哦

[linste]

还是不明白

[cnapc]

MSDN ADO.net

[linste]

谁有遍历的实例，贴点代码出来

[tuoshi]

你是什么数据库？

[linste]

sql 2005