Problema - Consulta con parametros.

[kid]

Tengo el siguiente código:

Código:

Set CoComando = Server.CreateObject("ADODB.Command")
CoComando.ActiveConnection = Mi_STRING

CoComando.CommandText = "insert mensajes (msg_id,msg_titulo,msg_emailautor,msg_temaID,msg_respuestaA,msg_fechaEnvio,msg_texto,Msg_respuestas) values (?, ?, ?, ?, ?, ?, ?, ?)"

CoComando.CommandType = 1
Set p1 = CoComando.CreateParameter("ID", 3, 1)
p1.value = ID
Set p2 = CoComando.CreateParameter("titulo", 200, 1) ' dejar en 200
p2.value = "re: " & Left(Filtro(request("respuesta")),20) & "..."
Set p3 = CoComando.CreateParameter("emailautor", 200, 1)
p3.value = filtro(request("mail"))
Set p4 = CoComando.CreateParameter("temaid", 3, 1)
p4.value = request("foro_id")
Set p5 = CoComando.CreateParameter("respuestaA", 200, 1)
p5.value = request("respuestaA")
Set p6 = CoComando.CreateParameter("fechaenvio", 200, 1)
p6.value = Dia & " " & Hora
Set p7 = CoComando.CreateParameter("respuesta", 200, 1)
p7.value = filtro(request("respuesta"))
Set p8 = CoComando.CreateParameter("Msg_respuestas", 200, 1)
p8.value = filtro(request("respuesta"))
	
CoComando.Parameters.Append p1
CoComando.Parameters.Append p2
CoComando.Parameters.Append p3
CoComando.Parameters.Append p4
CoComando.Parameters.Append p5
CoComando.Parameters.Append p6
CoComando.Parameters.Append p7
CoComando.Parameters.Append p8
	
Set ob_rs = CoComando.Execute

Con el cual me aparece el siguiente error.

ADODB.Parameters error '800a0e7c'

Objeto Parameter mal definido. Se proporcionó información incompleta o incoherente.

/mi_ruta/template.asp, línea 118

Y en esa linea tengo.

Código:

CoComando.Parameters.Append p2

O sea, la falla está en ese parametro ?.. que puede ser?

Saludos!

[u_goldman]

¿Qué tipo de dato es ese parámetro?
Yo te recomiendo utilizar

Código:

Set parametro = comando.CreateParmameter("nombre", tipoDeDato, tipoDeParametro, tamano, valor)

Saludos

[kid]

El 2° parametro es un VarChar.

[u_goldman]

Y 200 es su longitud?

Código:

Set param = cmd.CreateParameter("titulo", adVarChar, adParamInput, 200, valor)
cmd.Parameters.Append(param)

A lo mejor vas a necesitar las constantes de ADO.

Saludos

[kid]

No, es que me base en este sitio:

http://www.webconcerns.co.uk/asp/sql...sqlqueries.asp

Y ahi muestra el valor de las constantes.

[gabrielh11]

Tienes que especificar el tamaño del varchar en el siguiente parametro.