Mega Code Archive

 
Categories / VB.Net / ADO Database
 

Get data from SqlDataReader by Data type

Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass    Shared Sub Main()       Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _           "integrated security=sspi;database=MyDatabase")       'Sql Query       Dim sql As String = "SELECT ID, FirstName FROM Employee"       'Create Command object       Dim thisCommand As New SqlCommand(sql, thisConnection)       Try          ' Open Connection          thisConnection.Open()          Console.WriteLine("Connection Opened")                 ' Execute Query          Dim thisReader As SqlDataReader = thisCommand.ExecuteReader()          ' Fetch Data          While (thisReader.Read())             Console.WriteLine("{0} | {1} ", _             thisReader.GetInt32(0), _             thisReader.GetString(1).PadLeft(32))          End While          'Close DataReader          thisReader.Close()       Catch ex As SqlException          ' Display error          Console.WriteLine("Error: " & ex.ToString())       Finally          ' Close Connection          thisConnection.Close()          Console.WriteLine("Connection Closed")       End Try    End Sub End Class