VB.NET Sql Select Statement Source Code Example

Posted by on Sunday, December 6, 2009 · Leave a Comment 

VB.NET Sql Select Statement Source Code

Purpose: – Illustrates using and writing to an .
Prerequistes:

  1. Install Visual Basic (Express or Standard Edition)
  2. Install SQL Server Express
  3. Download Northwind Database
  4. Attach Northwind Database to Databases in Sql Express

Notes:

  • Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
  • You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

  1. Use VB 2008 (Express or Standard) Edition
  2. Create new project; select Console Application; name of Project could be VBNET_Syntax.
  3. Right-click project name in solution explorer; add new folder; name of folder could be DatabaseADONET
  4. Right-click folder; add class; class name could be clsSqlSelect.vb
  5. Copy code into clsSqlSelect.vb
  6. Copy code into Module1.vb
  7. Click green arrow to start with debugging

Step 1: Use View Plain to Cut-n-paste code into clsSqlSelect.vb

 
Imports System
Imports System.Data
Imports System.Data.SqlClient
 
 
Public Class clsSQLSelect
    Shared WithEvents con As SqlConnection
 
    Sub Main()
        con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=SSPI")
 
        ' Create the command object
        Dim str As String = "SELECT EmployeeID, FirstName, LastName FROM Employees"
        Dim cmd As New SqlCommand(str, con)
 
        Dim da As New SqlDataAdapter(cmd)
 
        Dim ds As New DataSet()
 
        da.Fill(ds, "Employees")
 
        Dim dc As DataColumn
        For Each dc In ds.Tables(0).Columns
            Console.Write("{0,15}", dc.ColumnName)
        Next
 
        Console.Write(vbCrLf)
 
        Dim dr As DataRow
        For Each dr In ds.Tables(0).Rows
            Dim i As Integer
            For i = 1 To ds.Tables(0).Columns.Count
                Console.Write("{0,15}", dr(i - 1))
            Next i
            Console.Write(vbCrLf)
        Next
        Console.ReadLine()
    End Sub
 
End Class

Step 2: Use View Plain to Cut-n-paste code into Module1.vb

Module Module1
 
    Sub Main()
        '***** DataBaseADONET *************
 
        Dim mySQLSelect As New clsSQLSelect
        mySQLSelect.Main()
 
 
 
    End Sub
 
End Module

Filed under Code Samples · Tagged with ,