348 messaggi dal 10 marzo 2013
Come da titolo ho bisogno di eseguire quest'operazione.
Il codice che sto utilizzando e il seguente, ovviamente non mi funziona, ma non mi da neppire nessun errore, aggiorna il dato ma non lo scrive sull'altra tabella.

Grazie a tutti

Protected Sub BtnRenewal_Click(sender As Object, e As EventArgs) Handles BtnRenewal.Click

Dim IdStoricoP As String = Request.QueryString("IdStoricoP")
Dim cmd As New SqlCommand()
Dim cmdins As New SqlCommand()
Dim strins As String
cmd.Connection = conn
Dim RecAff As Integer
Dim sqlMod As String

If TxtDataConvalida.Text = "" Then
WebMsgBox(" IL CAMPO DATA CONVALIDA NON PUOESSERE VUOTO")
End If

sqlMod = "UPDATE T_StoricoProf SET "
sqlMod = sqlMod & "IdProfessional=@IdProfessional"
sqlMod = sqlMod & ",IdUser=@IdUser"
sqlMod = sqlMod & ",IdBrevetto=@IdBrevetto"
sqlMod = sqlMod & ",IdCodiceSpecialità=@IdCodiceSpecialità"
sqlMod = sqlMod & ",DataConvalida=@DataConvalida"
sqlMod = sqlMod & ",P_CodiceIcd=@P_CodiceIcd"
sqlMod = sqlMod & ",IdesaPoint=@IdesaPoint"
sqlMod = sqlMod & ",dataRinnovo=@dataRinnovo"
sqlMod = sqlMod & ",AnnoRinnovo=@AnnoRinnovo"
sqlMod = sqlMod & " Where idStoricoP=@idStoricoP "

cmd.Connection = conn
cmd.CommandText = "SELECT TipologiaBrevetto FROM T_Brevetti WHERE idBrevetto = @idBrevetto"
cmd.Parameters.Add("@IdBrevetto", SqlDbType.Int).Value = DrpNewCert.SelectedValue
conn.Open()

If cmd.ExecuteScalar = 1 Then 'SE é UN BREVETTO
sqlMod = sqlMod & "UPDATE [T_Professional] SET"
sqlMod = sqlMod & " idBrevetto = @idBrevetto"
sqlMod = sqlMod & ", IdUser = @IdUser"
sqlMod = sqlMod & ", P_DataConsegnaBrev = @DataConvalida"
sqlMod = sqlMod & ",P_CodiceIcd = @P_CodiceIcd"
sqlMod = sqlMod & ",IdEsaPoint = @IdEsaPoint"
sqlMod = sqlMod & ",P_annoRinnovo = @P_AnnoRinnovo"
sqlMod = sqlMod & " WHERE IdProfessional = @IdProfessional"
End If

cmd.CommandText = sqlMod
cmd.Parameters.Add("@IdStoricoP", SqlDbType.Int).Value = Request.QueryString("IdStoricoP")
cmd.Parameters.Add("IdUser", SqlDbType.Int).Value = Request.Cookies("Mycookie")("IdUtenti")
cmd.Parameters.Add("@Idprofessional", SqlDbType.Int).Value = DrpSurnameProf.SelectedValue
'cmd.Parameters.Add("@IdBrevetto", SqlDbType.Int).Value = DrpNewCert.SelectedValue
cmd.Parameters.Add("@IdCodiceSpecialità", SqlDbType.Int).Value = DrpNewSpecialita.SelectedValue
cmd.Parameters.Add("@DataConvalida", SqlDbType.Date).Value = TxtDataConvalida.Text
cmd.Parameters.Add("@P_CodiceIcd", SqlDbType.Int).Value = DrpSurIcd.SelectedValue
cmd.Parameters.Add("@IdesaPoint", SqlDbType.Int).Value = DrpEsaPoint.SelectedValue
cmd.Parameters.Add("@AnnoRinnovo", SqlDbType.VarChar).Value = TxtAnnoRinnovo.Text
cmd.Parameters.Add("@P_AnnoRinnovo", SqlDbType.VarChar).Value = TxtAnnoRinnovo.Text
If TxtDataRinnovo.Text = "" Then
cmd.Parameters.Add("@dataRinnovo", SqlDbType.Date).Value = DBNull.Value
Else
cmd.Parameters.Add("@dataRinnovo", SqlDbType.Date).Value = TxtDataRinnovo.Text
End If
'conn.Open()
cmd.ExecuteNonQuery()
RecAff = cmd.ExecuteNonQuery
If (cmd.ExecuteNonQuery()) Then
Response.Redirect("./NuovoBrevetto.aspx")
Else
Response.Write("<font color=red size=12><blink>ERRORE DI INSERIMENTO !!</font></blink>")
End If

strins = " Insert T_RinnovoPro (" 'INSERISCE IL BREVETTO NELLA TABELLA RINNOVI IN MODO CHE SIA TUTTO AGIORNATO
strins = strins & " IdProfessional"
strins = strins & ",IdUser"
strins = strins & ",AnnoRinnovo"
strins = strins & ",IdBrevetto"
strins = strins & ",IdCodiceSpecialità"
strins = strins & ",DataRinnovo"
strins = strins & ",InactiveStatusM"
strins = strins & ",InactiveStatusQMP"
strins = strins & ",InactiveStatusA"
strins = strins & ")VALUES("
strins = strins & "@IdProfessional"
strins = strins & ",@IdUser"
strins = strins & ",@AnnoRinnovo"
strins = strins & ",@IdBrevetto"
strins = strins & ",@IdCodiceSpecialità"
strins = strins & ",@DataRinnovo"
strins = strins & ",@InactiveStatusM"
strins = strins & ",@InactiveStatusQMP"
strins = strins & ",@InactiveStatusA"
strins = strins & ")"

cmdins.CommandText = strins
cmdins.Parameters.Add("@Idprofessional", SqlDbType.Int).Value = DrpSurnameProf.SelectedValue
cmdins.Parameters.Add("@IdUser", SqlDbType.Int).Value = Request.Cookies("mycookie")("IdUtenti")
cmdins.Parameters.Add("@P_DataConsegnaBrev", SqlDbType.Date).Value = TxtDataConvalida.Text
cmdins.Parameters.Add("@IdCodiceSpecialità", SqlDbType.Int).Value = DrpNewSpecialita.SelectedValue
cmdins.Parameters.Add("@DataConvalida", SqlDbType.Date).Value = TxtDataConvalida.Text
cmdins.Parameters.Add("@P_CodiceIcd", SqlDbType.Int).Value = DrpSurIcd.SelectedValue
cmdins.Parameters.Add("@IdesaPoint", SqlDbType.Int).Value = DrpEsaPoint.SelectedValue
cmdins.Parameters.Add("@AnnoRinnovo", SqlDbType.VarChar).Value = TxtAnnoRinnovo.Text
If TxtDataRinnovo.Text = "" Then
cmdins.Parameters.Add("@dataRinnovo", SqlDbType.Date).Value = DBNull.Value
Else
cmdins.Parameters.Add("@dataRinnovo", SqlDbType.Date).Value = TxtDataRinnovo.Text
End If
cmdins.Parameters.Add("@InactiveStatusM", SqlDbType.Bit).Value = False
cmdins.Parameters.Add("@InactiveStatusQMP", SqlDbType.Bit).Value = False
cmdins.Parameters.Add("@InactiveStatusA", SqlDbType.Bit).Value = False
conn.Open()
cmdins.ExecuteNonQuery()
conn.Close()
Response.Redirect("./NuovoBrevetto.aspx")

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.