VB.Net by API/System.Data.OleDb/OleDbDataReader

Материал из VB Эксперт
Перейти к: навигация, поиск

OleDbDataReader.Item

<source lang="vbnet"> Option Strict On Imports System.Data Imports System.Data.OleDb Public Module UsingStatement

  Public Sub Main()
     Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NorthWind.mdb")
     Dim cmd As New OleDbCommand
     Dim dr As OleDbDataReader
     Using conn
        conn.Open
        cmd.rumandText = "Select * From Customers"
        cmd.rumandType = CommandType.Text
        cmd.Connection = conn
        dr = cmd.ExecuteReader()
        If dr.HasRows Then
           Do While dr.Read()
              " Get first and last name of customer
              Console.WriteLine(CStr(dr.Item(1)) & " " & CStr(dr.Item(2)))
           Loop
        Else
           Console.WriteLine("The table has no rows.")
        End If
     End Using
  End Sub

End Module


 </source>