AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios en ClsEncuestas

Browse Source
This commit is contained in:
Raúl Pimienta
2022-01-04 01:06:59 -07:00
parent dacece7d70
commit 68df958f9d
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsEncuestas.vb
View File

@@ -411,7 +411,7 @@ Public Class ClsEncuestas
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Enc_EncuestasRespuestasGet", CommandType.StoredProcedure) DataAdapter("PA_Enc_EncuestasRespuestasGet", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEncuesta", SqlDbType.VarChar).Value = CveEncuesta .Add("@CveEncuesta", SqlDbType.Int).Value = CveEncuesta
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -426,7 +426,7 @@ Public Class ClsEncuestas
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Enc_EncuestasRespuestasUpdate", CommandType.StoredProcedure) DataAdapter("PA_Enc_EncuestasRespuestasUpdate", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveRespuesta", SqlDbType.VarChar).Value = CveRespuesta .Add("@CveRespuesta", SqlDbType.Int).Value = CveRespuesta
.Add("@Respuesta", SqlDbType.VarChar).Value = Respuesta .Add("@Respuesta", SqlDbType.VarChar).Value = Respuesta
.Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta .Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta
End With End With
@@ -444,7 +444,7 @@ Public Class ClsEncuestas
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Enc_EncuestasRespuestasRemove", CommandType.StoredProcedure) DataAdapter("PA_Enc_EncuestasRespuestasRemove", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveRespuesta", SqlDbType.VarChar).Value = CveRespuesta .Add("@CveRespuesta", SqlDbType.Int).Value = CveRespuesta
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)