Mega Code Archive

 
Categories / VB.Net / ADO Database
 

Get number of columns in SqlDataReader

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 1       Dim sql As String ="SELECT  FirstName, LastName 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()          ' Get number of columns          Console.WriteLine()          Console.WriteLine("Number of columns in a row: {0}", _             thisReader.FieldCount)          '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