Error en llamada a Store Procedure

14/01/2004 - 02:33 por Kleyber Briceño | Informe spam
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Hola a todos. Un cordial saludo. El problema es el siguiente: tengo el
siguiente c&oacute;digo de VB
<p>Private Sub cmdCargrManif_Click()
<br>Dim clsPrueba As clsConex
<br>&nbsp;&nbsp; Set clsPrueba = New clsConex
<br>&nbsp;&nbsp; With clsPrueba.Command
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandType = adCmdStoredProc
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandText = "Sp_CargaManif"
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Parameters.Append .CreateParameter("@pFecha",
adChar, adParamInput, "20031130")
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set clsPrueba.Rst = .Execute
<br>&nbsp;&nbsp; End With
<br>End Sub
<p>Este procedimiento llama a Store Procedure de VB, pasandole como parametro
una fecha, pero al ejecutrse la instrucci&oacute;n .Execute VB me devuelve
el error: Procedure 'Sp_CargaManif'&nbsp; expects parameter '@pFecha',
which was not supplied. Es decir no se pasa o no se lee el parametro.
<p>Muchas gracias de antemano a quien pueda ayudarme
<p>La estructura del Store procedure es la siguiente
<p>CREATE PROCEDURE Sp_CargaManif&nbsp; @pFecha char(10)&nbsp; AS
<br>&nbsp;
<br>SELECT NumTour, Fecha, Nombre, Procedencia, CodOpc, CodLoc, CodLiner,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
CodCloser1, CodCloser2,Calificacion, NumCtto
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Deposito, Observaciones
<br>FROM tblManifiesto
<br>WHERE Fecha = @pFecha
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;</html>

Preguntas similare

Leer las respuestas

#1 Kleyber Briceño
14/01/2004 - 04:29 | Informe spam
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<body bgcolor="#FFFFFF">
Gracias por responder Gustavo, pero ya lo&nbsp; prob&eacute; y no funciona.
<p>"Gustavo Larriera [MVP]" wrote:
<blockquote TYPE=CITE><style></style>
<font face="Arial"><font size=-1>DISCLAIMER:
No soy ningun experto en Visual Basic :-)</font></font>&nbsp;<font face="Arial"><font size=-1>?No
deberias indicar las posiciones donde van los par&aacute;metros, usando
el signo "?" ? Es decir:</font></font>&nbsp;<font face="Times New Roman"><font size=+0>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
.CommandText = "Sp_CargaManif ?"</font></font><font face="Arial"><font size=-1>saludos</font></font><font face="Arial"><font size=-1>gux</font></font>&nbsp;
<br>--
<br>Gustavo Larriera, MSFT MVP-SQL
<br>Uruguay LatAm
<br>
<br>This message is provided "AS IS" with no warranties expressed or implied,
and confers no rights.
<br>
<blockquote dir=ltr
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">"Kleyber
Brice&ntilde;o" &lt;<a href="mailto:"></a>>
wrote in message <a href="news:">news:</a>...Hola
a todos. Un cordial saludo. El problema es el siguiente: tengo el siguiente
c&oacute;digo de VB
<p>Private Sub cmdCargrManif_Click()
<br>Dim clsPrueba As clsConex
<br>&nbsp;&nbsp; Set clsPrueba = New clsConex
<br>&nbsp;&nbsp; With clsPrueba.Command
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandType = adCmdStoredProc
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandText = "Sp_CargaManif"
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Parameters.Append .CreateParameter("@pFecha",
adChar, adParamInput, "20031130")
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set clsPrueba.Rst = .Execute
<br>&nbsp;&nbsp; End With
<br>End Sub
<p>Este procedimiento llama a Store Procedure de VB, pasandole como parametro
una fecha, pero al ejecutrse la instrucci&oacute;n .Execute VB me devuelve
el error: Procedure 'Sp_CargaManif'&nbsp; expects parameter '@pFecha',
which was not supplied. Es decir no se pasa o no se lee el parametro.
<p>Muchas gracias de antemano a quien pueda ayudarme
<p>La estructura del Store procedure es la siguiente
<p>CREATE PROCEDURE Sp_CargaManif&nbsp; @pFecha char(10)&nbsp; AS
<p>SELECT NumTour, Fecha, Nombre, Procedencia, CodOpc, CodLoc, CodLiner,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
CodCloser1, CodCloser2,Calificacion, NumCtto
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Deposito, Observaciones
<br>FROM tblManifiesto
<br>WHERE Fecha = @pFecha
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;</blockquote>
</blockquote>

</body>
</html>
Respuesta Responder a este mensaje
#2 Manuel Etcheto
14/01/2004 - 05:58 | Informe spam
Hola
Creo que el problema es que al pasarle los parámetros al
nuevo parámetro (valga la redundancia) no estás pasando el
value, porque el 4º es el tamaño máximo (en tu caso 8)

prueba con
.Parameters.Append .CreateParameter("@pFecha", adChar,
adParamInput, 8, "20031130")

Suerte
Manuel


DISCLAIMER: No soy ningun experto en Visual Basic :-)

?No deberias indicar las posiciones donde van los


parámetros, usando el signo "?" ? Es decir:

.CommandText = "Sp_CargaManif ?"

saludos
gux

Gustavo Larriera, MSFT MVP-SQL
Uruguay LatAm

This message is provided "AS IS" with no warranties


expressed or implied, and confers no rights.


"Kleyber Briceño" wrote in


message news:
Hola a todos. Un cordial saludo. El problema es el


siguiente: tengo el siguiente código de VB
Private Sub cmdCargrManif_Click()
Dim clsPrueba As clsConex
Set clsPrueba = New clsConex
With clsPrueba.Command
.CommandType = adCmdStoredProc
.CommandText = "Sp_CargaManif"
.Parameters.Append .CreateParameter("@pFecha",


adChar, adParamInput, "20031130")
Set clsPrueba.Rst = .Execute
End With
End Sub

Este procedimiento llama a Store Procedure de VB,


pasandole como parametro una fecha, pero al ejecutrse la
instrucción .Execute VB me devuelve el error:
Procedure 'Sp_CargaManif' expects parameter '@pFecha',
which was not supplied. Es decir no se pasa o no se lee el
parametro.

Muchas gracias de antemano a quien pueda ayudarme

La estructura del Store procedure es la siguiente

CREATE PROCEDURE Sp_CargaManif @pFecha char(10) AS

SELECT NumTour, Fecha, Nombre, Procedencia, CodOpc,


CodLoc, CodLiner,
CodCloser1, CodCloser2,Calificacion,


NumCtto
Deposito, Observaciones
FROM tblManifiesto
WHERE Fecha = @pFecha






Respuesta Responder a este mensaje
#3 Rubén Vigón
14/01/2004 - 08:41 | Informe spam
Cambia ésta línea:

.Parameters.Append .CreateParameter("@pFecha", adChar, adParamInput, "20031130")

Por ésta:

.Parameters.Append .CreateParameter("@pFecha", adChar, adParamInput, 10, "20031130")

(el 4º argumento de «CreateParameter» recibe el tamaño del parámetro, no su valor)

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
Respuesta Responder a este mensaje
#4 Kleyber Briceño
14/01/2004 - 14:04 | Informe spam
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Ahora si abre el recordset. Muchas gracias a Manuel y a Ruben
<p>Kleyber Brice&ntilde;o wrote:
<blockquote TYPE=CITE>Hola a todos. Un cordial saludo. El problema es el
siguiente: tengo el siguiente c&oacute;digo de VB
<p>Private Sub cmdCargrManif_Click()
<br>Dim clsPrueba As clsConex
<br>&nbsp;&nbsp; Set clsPrueba = New clsConex
<br>&nbsp;&nbsp; With clsPrueba.Command
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandType = adCmdStoredProc
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandText = "Sp_CargaManif"
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Parameters.Append .CreateParameter("@pFecha",
adChar, adParamInput, "20031130")
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set clsPrueba.Rst = .Execute
<br>&nbsp;&nbsp; End With
<br>End Sub
<p>Este procedimiento llama a Store Procedure de VB, pasandole como parametro
una fecha, pero al ejecutrse la instrucci&oacute;n .Execute VB me devuelve
el error: Procedure 'Sp_CargaManif'&nbsp; expects parameter '@pFecha',
which was not supplied. Es decir no se pasa o no se lee el parametro.
<p>Muchas gracias de antemano a quien pueda ayudarme
<p>La estructura del Store procedure es la siguiente
<p>CREATE PROCEDURE Sp_CargaManif&nbsp; @pFecha char(10)&nbsp; AS
<p>SELECT NumTour, Fecha, Nombre, Procedencia, CodOpc, CodLoc, CodLiner,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
CodCloser1, CodCloser2,Calificacion, NumCtto
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Deposito, Observaciones
<br>FROM tblManifiesto
<br>WHERE Fecha = @pFecha
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;</blockquote>
</html>
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida