Torna al Thread
Dim conString = ConfigurationManager.ConnectionStrings("DB_GESTIONE_ALBERGHI")
Dim strConnString As String = conString.ConnectionString
Using db As New SqlConnection(strConnString)
db.Open()
Using sqlcmd As New SqlCommand("Get_Arrivi_Partenze", db)
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Parameters.AddWithValue("@codicealbergo", SqlDbType.DateTime).Value = codalbergo
sqlcmd.Parameters.AddWithValue("@data1", SqlDbType.DateTime).Value = dalgiorno
sqlcmd.Parameters.AddWithValue("@data2", SqlDbType.DateTime).Value = algiorno
Using sqldr As SqlDataReader = sqlcmd.ExecuteReader
While sqldr.Read
leggo i dati e li passo agli oggetti
End While
End Using
End Using
End Using