Torna al Thread

For C As Integer = 0 To Inserimenti - 1 If txt_Partenza.Text <> "" Then partito = 1 End If If albergo.AttivazioneImposta = 1 Then REM gestisco il passaggio del valore degli esenti alla collection codesenzione = List_Esenzioni.SelectedValue End If Try 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("Insert_movimenti_C59", db) sqlcmd.CommandType = CommandType.StoredProcedure sqlcmd.Parameters.AddWithValue("@codicealbergo", SqlDbType.Int).Value = albergo.CodAlbergo sqlcmd.Parameters.AddWithValue("@codicescheda", SqlDbType.Int).Value = UltimoCodice + C sqlcmd.Parameters.AddWithValue("@dataarrivo", SqlDbType.SmallDateTime).Value = CDate(txt_Arrivo.Text) If txt_Partenza.Text <> "" Then sqlcmd.Parameters.AddWithValue("@datapartenza", SqlDbType.SmallDateTime).Value = CDate(txt_Partenza.Text) End If sqlcmd.Parameters.AddWithValue("@codicecomune", SqlDbType.Int).Value = CodiceComune sqlcmd.Parameters.AddWithValue("@comune", SqlDbType.VarChar).Value = DescrizioneComune sqlcmd.Parameters.AddWithValue("@codiceprovincia", SqlDbType.Int).Value = CodiceProvincia sqlcmd.Parameters.AddWithValue("@provincia", SqlDbType.VarChar).Value = DescrizioneProvincia If opt_Italia.Checked = True Then sqlcmd.Parameters.AddWithValue("@codicestato", SqlDbType.Int).Value = CodiceRegione sqlcmd.Parameters.AddWithValue("@stato", SqlDbType.VarChar).Value = DescrizioneRegione Else sqlcmd.Parameters.AddWithValue("@codicestato", SqlDbType.Int).Value = CodiceStato sqlcmd.Parameters.AddWithValue("@stato", SqlDbType.VarChar).Value = DescrizioneStato End If sqlcmd.Parameters.AddWithValue("@partito", SqlDbType.Int).Value = partito sqlcmd.Parameters.AddWithValue("@codicegruppo", SqlDbType.Int).Value = CInt(ddl_Gruppi.SelectedValue) sqlcmd.Parameters.AddWithValue("@gruppo", SqlDbType.VarChar).Value = ddl_Gruppi.SelectedItem.Text sqlcmd.Parameters.AddWithValue("@idtassa", SqlDbType.Int).Value = codesenzione sqlcmd.ExecuteNonQuery() End Using End Using Catch ex As SqlException Catch ex As Exception End Try Next
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5