Ayuda urgente con variables

[bubu]

Hola a todos,

Tengo un problema que no se como solucionar. En una misma pagina tengo 2 sentencias SQL, donde la primera (SQL2) ha de pasar un valor a la segunda (SQL) para que esta muestre una serie de resultados. EL problema està en que no se como pasarle el parametro se SQL2 a SQL. Os pongo el código para que lo veais más claro.

<%
Dim Nom
Dim Cognom
Nom= request.Form("nom")
Cognom = request.Form("cognom")

SQL2 = "SELECT CodColab FROM Colab WHERE CodUsuari='"& nom &"'"

set RsColabCercar = Server.CreateObject("ADODB.Recordset")
RsColabCercar.Open SQL2,MM_Incidencies2_STRING

SQL = "SELECT TipEstat,TitSolic,TxtSolic,DatSolic,CodColabAlta FROM Feines WHERE CodColabSolic='"& SQL2 &"'"

set RsIncidenciesCercar = Server.CreateObject("ADODB.Recordset")
RsIncidenciesCercar.Open SQL,MM_Incidencies_STRING

RsColabCercar_numRows2 = 0
RsIncidenciesCercar_numRows = 0


Dim Repeat1__numRows
Repeat1__numRows = -1
RsIncidenciesCercar_numRows = RsIncidenciesCercar_numRows + Repeat1__numRows

%>

[3pies]

Prueba a poner la sentencia sin las comillas simples (creo que debería funcionarte):

Código:

SQL = "SELECT TipEstat,TitSolic,TxtSolic,DatSolic,CodColabAlta FROM Feines WHERE CodColabSolic=("& SQL2 &")"

[bubu]

Que va tampoco me funciona.

Por cierto muchas gracias por tu apoyo

[3pies]

¿Qué error te da?
Haz esto a ver como te construye la sentencia:

Código:

SQL = "SELECT TipEstat,TitSolic,TxtSolic,DatSolic,CodColabAlta FROM Feines WHERE CodColabSolic=("& SQL2 &")"
response.write SQL
response.end

[bubu]

al poner el código me muestra lo siguiente:

SELECT TipEstat,TitSolic,TxtSolic,DatSolic,CodColabAlta FROM Feines WHERE CodColabSolic=(SELECT CodColab FROM Colab WHERE CodUsuari='davzab')

pero 'davzab' es el texto que yo he puesto en el formulario.

La idea es que yo pongo en un formulario el texto DavZab, SQL2 lo que hace es comparar este texto con un código (en este caso 656), este codigo se ha de pasar a SQL para que muestre unos resultados.

Me explico?

Espero puedas ayudarme. Muchas gracias

[3pies]

¿Pero qué error te da (quítale esos dos responses que te decía)?

[bubu]

El error que me da es: No se puede mostrar la pagina.

la sentencia que construye es:

SELECT TipEstat,TitSolic,TxtSolic,DatSolic,CodColabAlta FROM Feines WHERE CodColabSolic=(SELECT CodColab FROM Colab WHERE CodUsuari='davzab')

[3pies]

Haz esto, para ver el error de forma descriptiva:
En el IE, ves al menú Herramientas -> Op. de inernet -> Opciones avanzadas, y desmarca "Mostrar mensajes descriptivos de los errores http".

Cierra IE, y vuelve a ejecutar la página a ver que error te sale.

[bubu]

El error que me da es:

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC SQL Server Driver][SQL Server]Invalid object name 'Colab'.

/jordi/visualitzar.asp, line 21

[Dorita]

Hola bubu, no se si estaré equivocada o no, pero, no debería ir en la segunda sentencia sql el recordset? según yo, debería ser así:

SQL2 = "SELECT CodColab FROM Colab WHERE CodUsuari='"& nom &"'"

set RsColabCercar = Server.CreateObject("ADODB.Recordset")
RsColabCercar.Open SQL2,MM_Incidencies2_STRING


SQL = "SELECT TipEstat,TitSolic,TxtSolic,DatSolic,CodColabAlta FROM Feines WHERE CodColabSolic= '"& RsColabCercar ("CodColab")&"'"

y las comillas simples solo van si el resultado de la 2º sentencia sql no es numérica.

repito, no se si estaré equivocada o no, pero al menos yo siempre lo hago así.

salu2.-

[bubu]

Muchas gracias Dorita, ahora ya me funciona.

Os agradezco a todos el apoyo.

Un saludo.

[Dorita]

De nada, me alegro q te funcione OK.-

salu2.-