Mega Code Archive
Read the result sets from two select command
<![CDATA[
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 sql1 As String ="SELECT FirstName, LastName FROM Employee; "
'Sql Query 2
Dim sql2 As String ="SELECT LastName, FirstName FROM Employee;"
'Combine queries
Dim sql As String = sql1 & sql2
'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()
' Loop through result sets
Do
' Fetch Data
While (thisReader.Read())
Console.WriteLine("{0} | {1}", _
thisReader(0), _
thisReader(1))
End While
Console.WriteLine("".PadLeft(60, "="))
Loop While (thisReader.NextResult())
'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
]]>