Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Windows.Forms
Imports System.Data.SqlClient
Public Class MainClass
Shared Dim WithEvents con As SqlConnection
Shared Sub Main()
con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI")
Dim str As String = "SELECT ID, FirstName, LastName FROM Employee"
Dim cmd As New SqlCommand(str, con)
Dim da As New SqlDataAdapter(cmd)
Dim ds As New DataSet()
da.Fill(ds, "Employee")
' Display the column names
Dim dc As DataColumn
For Each dc In ds.Tables(0).Columns
Console.Write("{0,15}", dc.ColumnName)
Next
' Add a newline after the column headings
Console.Write(vbCrLf)
' Display the data for each row. Loop through the rows first.
Dim dr As DataRow
For Each dr In ds.Tables(0).Rows
' Then loop through the columns for the current row.
Dim i As Integer
For i = 1 To ds.Tables(0).Columns.Count
Console.Write("{0,15}", dr(i - 1))
Next i
' Add a line break after every row
Console.Write(vbCrLf)
Next
End Sub
End Class
|
