Linked sql (info)

Imports System.Data.SqlClient
Public Class GestoreNazioni
    Public Function CaricaRec(ByVal ObjNazione As PropertyNazioni) As PropertyNazioni
        Dim oNazione As PropertyNazioni = New PropertyNazioni
        Try
            SqlCmd.CommandText = "GetNazione_new"
            SqlCmd.Parameters.Add("@Nazione", SqlDbType.VarChar).Value = ObjNazione.Nazione
            SqlCmd.Connection = Db
            SqlCmd.CommandType = CommandType.StoredProcedure
            SqlDr = SqlCmd.ExecuteReader
            If SqlDr.Read() Then
                oNazione.Nazione = SqlDr.GetSqlString(0).Value()
                oNazione.CodiceNazIstat = SqlDr.GetSqlInt32(1).Value
            End If
            Return oNazione
        Catch ex As Exception
            Throw ex
        Finally
            SqlDr.Close()
            SqlCmd.Parameters.Clear()
            SqlCmd.Dispose()
        End Try
    End Function
End Class

Public Class PropertyNazioni
    Private codnazIstat As Int32
    Private Naz, Codnaz As String
    Public Property CodiceNazIstat() As Int32
        Get
            Return codnazIstat
        End Get
        Set(ByVal value As Int32)
            codnazIstat = value
        End Set
    End Property
    Public Property Nazione() As String
        Get
            Return Naz
        End Get
        Set(ByVal value As String)
            Naz = value
        End Set
    End Property
    Public Property CodNazione() As String
        Get
            Return Codnaz
        End Get
        Set(ByVal value As String)
            Codnaz = value
        End Set
    End Property
End Class
Public Class NazioniCollection
    Inherits CollectionBase
    ' Aggiunge l'oggetto alla collection
    Public Sub Add(ByVal item As PropertyNazioni)
        List.Add(item)
    End Sub

    ' Ritorna l'n-esimo elemento
    Public ReadOnly Property Item(ByVal index As Int32) As PropertyNazioni
        Get
            Return CType(List(index), PropertyNazioni)
        End Get
    End Property
End Class

>DataTable e DataSet sono un lontano ricordo anche perchè

   Public Function CaricaRec(ByVal ObjAlb As PropertyAlb) As PropertyAlb
        Dim OAlb As PropertyAlb = New PropertyAlb
        Try
            SqlCmd.CommandText = "GetAlb_new"
            SqlCmd.Parameters.Add("@CodAlb", SqlDbType.Int).Value = ObjAlb.CodiceAlbergo
            SqlCmd.Parameters.Add("@Codcomune", SqlDbType.Int).Value = ObjAlb.CodiceComune
            SqlCmd.Connection = Db
            SqlCmd.CommandType = CommandType.StoredProcedure
            SqlDr = SqlCmd.ExecuteReader
            If SqlDr.Read() Then
                OAlb.CodiceAlbergo = SqlDr.GetSqlInt32(0).Value
                OAlb.Descrizione = SqlDr.GetSqlString(1).Value
                OAlb.Indirizzo = SqlDr.GetSqlString(2).Value
                OAlb.CapAlb = SqlDr.GetSqlString(3).Value
                OAlb.CittaAlb = SqlDr.GetSqlString(4).Value
                OAlb.CodiceComune = SqlDr.GetSqlInt32(5).Value
                OAlb.Provincia = SqlDr.GetSqlString(6).Value
                OAlb.CodiceProvincia = SqlDr.GetSqlInt32(7).Value
                OAlb.CodiceRegione = SqlDr.GetSqlInt32(8).Value
                OAlb.CodiceCategoria = SqlDr.GetSqlInt32(9).Value
                OAlb.Categoria = SqlDr.GetSqlString(10).Value
                OAlb.PartitaIva = SqlDr.GetSqlString(11).Value
                OAlb.TelAlb = SqlDr.GetSqlString(12).Value
                OAlb.FaxAlb = SqlDr.GetSqlString(13).Value
                OAlb.EmailAlb = SqlDr.GetSqlString(14).Value
                OAlb.SitoAlb = SqlDr.GetSqlString(15).Value
                OAlb.VersProgramma = SqlDr.GetSqlString(16).Value
                OAlb.Nrpostiletto = SqlDr.GetSqlInt32(17).Value
                OAlb.Nrpostilettoconfermati = SqlDr.GetSqlInt32(18).Value
                If SqlDr.GetSqlDateTime(19).IsNull = True Then
                    OAlb.DataAttivazione = Nothing
                Else
                    OAlb.DataAttivazione = SqlDr.GetSqlDateTime(19).Value
                End If
                If SqlDr.GetSqlDateTime(20).IsNull = True Then
                    OAlb.DataScadenza = Nothing
                Else
                    OAlb.DataScadenza = SqlDr.GetSqlDateTime(20).Value
                End If
                OAlb.BloccoRecord = SqlDr.GetSqlInt32(21).Value
                OAlb.Password = SqlDr.GetSqlString(22).Value
                OAlb.CodiceDependance = SqlDr.GetSqlInt32(23).Value
                OAlb.BloccoAccesso = SqlDr.GetSqlInt32(26).Value
            End If
            Return OAlb
        Catch ex As Exception
            Throw ex
        Finally
            SqlDr.Close()
            SqlCmd.Parameters.Clear()
            SqlCmd.Dispose()
        End Try
    End Function

Imports System.Collections.Generic
Public Partial Class ProductList
Inherits Report
Public Sub New()
InitializeComponent()
' Create a generic list of Product and
' add sample products
Dim products As New List(Of Product)()
products.Add(New Product("bicycle"))
products.Add(New Product("helmet"))
products.Add(New Product("shoes"))
' Assign the generic list as the report DataSource
Me.DataSource = products
End Sub
End Class
' A very simple class with a single Name property
Public Class Product
Private _name As String
Public Sub New(ByVal name As String)
_name = name
End Sub
Public Property Name() As String
Get
Return _name
End Get
Set
_name = value
End Set
End Property
End Class