Consiglio sulla ricerca dei dati in un database

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

    Public Function CaricaRec(ByVal ObjNazione As PropertyNazioni) As PropertyNazioni
        Dim oNazione As PropertyNazioni = New PropertyNazioni
        Try
            SqlCmd.CommandText = "GetNazione"
            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.CodNazione = SqlDr.GetSqlString(1).Value
            End If
            Return oNazione
        Catch ex As Exception
            Throw ex
        Finally
            SqlDr.Close()
            SqlCmd.Parameters.Clear()
            SqlCmd.Dispose()
        End Try
    End Function

ALTER PROCEDURE [dbo].[GetNazione]
(
@Nazione Varchar(250)
)
AS
BEGIN
IF @Nazione IS NULL OR LEN(@Nazione) = 0
  Select nazione,Codnazione 
  From dbo.Nazioni 
  Where 1 = 0
ELSE
  Select nazione,Codnazione 
  From dbo.Nazioni 
  Where nazione LIKE @Nazione + N'%'
END