OleDbDataReader.Item : OleDbDataReader « System.Data.OleDb « VB.Net by API

1. VB.Net by API
2. System.Data.OleDb
3. OleDbDataReader

OleDbDataReader.Item

  
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.CommandText = "Select * From Customers"
         cmd.CommandType = 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

   
    
  

Related examples in the same category