VB.Net/Database ADO.net/Sql Data Type

Select @@Identity

<source lang="vbnet"> Imports System.Windows.Forms Imports System.Data.SqlClient Imports System.Data

Public Class Form1

   Inherits System.Windows.Forms.Form
   Public Shared Sub Main()
       Dim MyIdentityValue As Integer
       Dim objConnection As New SqlClient.SqlConnection("server=.;database=pubs;trusted_connection=true")
       Dim objCommand As New SqlClient.SqlCommand("INSERT INTO jobs (desc, minV, maxV) VALUES("desc", 50, 100)")
       objConnection.Open()
       objCommand.Connection = objConnection
       If objCommand.ExecuteNonQuery > 0 = True Then
           Dim objIdentifier As New SqlClient.SqlCommand("Select @@Identity", objConnection)
           Try
               MyIdentityValue = objIdentifier.ExecuteScalar
           Catch
               MyIdentityValue = 0
           End Try
       End If
       objConnection.Close()
       System.Console.WriteLine(MyIdentityValue)
   End Sub

End Class

 </source>

Sql data type: integer, date and decimal

<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Xml 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 cmd As New SqlCommand()
       cmd.rumandText = "SELECT * FROM Employee"
       cmd.Connection = con
       Try
           con.Open()
           Dim reader As SqlDataReader = cmd.ExecuteReader()
           Dim OrderIDIdx As Integer = reader.GetOrdinal("ID")
           "Dim OrderDateIdx As Integer = reader.GetOrdinal("FirstName")
           "Dim OrderFreightIdx As Integer = reader.GetOrdinal("LastName")
           Do
               While reader.Read()
                   Dim OrderID As Integer = reader.GetInt32(OrderIDIdx)
                   "Dim OrderDate As DateTime = reader.GetDateTime(OrderDateIdx)
                   "Dim OrderFreight As Decimal = reader.GetDecimal(OrderFreightIdx)
                   "Console.WriteLine(OrderID & vbTab & OrderDate & vbTab & OrderFreight)
                   Console.WriteLine(OrderID & vbTab )
               End While
           Loop While reader.NextResult()
           reader.Close()
       Finally
           con.Close()
       End Try
   End Sub

End Class

 </source>

Type safe data from SqlDataReader

<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Xml 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 cmd As New SqlCommand()
       cmd.rumandText = "SELECT * FROM Employee"
       cmd.Connection = con
       Try
           con.Open()
           Dim reader As SqlDataReader = cmd.ExecuteReader()
           Dim OrderIDIdx As Integer = reader.GetOrdinal("ID")
           "Dim OrderDateIdx As Integer = reader.GetOrdinal("FirstName")
           "Dim OrderFreightIdx As Integer = reader.GetOrdinal("LastName")
           Do
               While reader.Read()
                   Dim OrderID As Integer = reader.GetInt32(OrderIDIdx)
                   "Dim OrderDate As DateTime = reader.GetDateTime(OrderDateIdx)
                   "Dim OrderFreight As Decimal = reader.GetDecimal(OrderFreightIdx)
                   "Console.WriteLine(OrderID & vbTab & OrderDate & vbTab & OrderFreight)
                   Console.WriteLine(OrderID & vbTab )
               End While
           Loop While reader.NextResult()
           reader.Close()
       Finally
           con.Close()
       End Try
   End Sub

End Class

 </source>