Mega Code Archive

 

Categories / VB.Net by API / System Data Oledb

 

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