Cargar registros de una tabla en un Select Box Múltiple

[Nono Martínez]

Hola, que tal,

Estoy haciendo una funcion que cargue los registros de una tabla que contiene una serie de categorias dentro de una lista de selección multiple y quiero que marque también las categorias que haya seleccionado previamente un usuario. Esta relación esta contenida en otra tabla de la base de datos por lo que me obliga a anidar dos recordsets.

He probado las sentencias SQL pero estan bien, parece ser mas bien algun tipo de bloqueo, pero tambien probé con todas las combinaciones posibles y siempre me devuelve este error



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

Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1
control/includes/Ajmlib.asp, línea 105




El error es en esta linea

Set rsC = oConn.Execute("SELECT * FROM " & tablaAux & " WHERE IDUsuario=" & idusuario & " AND IDModulo=" & rs1(campo_id) & " ORDER BY " & campo_nombre & " DESC;")

Código PHP:

   Dim rs1  
 Dim strSQL 
 Dim rsC 
 Dim strSQLC 
 Set rs1 = oConn.Execute("SELECT * FROM " & tabla & " ORDER BY " & campo_nombre & " DESC;") 
 Response.Write "<select name=""" & nombre & """ multiple size=""" & max & """ id=""" & nombre & """ class=""input"">" 
 While NOT rs1.EOF 
  Response.Write "<option " 
  Set rsC = oConn.Execute("SELECT * FROM " & tablaAux & " WHERE IDUsuario=" & idusuario & " AND IDModulo=" & rs1(campo_id) & " ORDER BY " & campo_nombre & " DESC;")        
   If Not rsC.EOF Then 
   Response.Write " SELECTED " 
  End If 
  rsC.Close 
  Set rsC=Nothing 
  Response.Write "value=""" & rs1(campo_id) & """>" & rs1(campo_nombre) & "</option>" 
  rs1.MoveNext 
 Wend 
 rs1.Close 
 Response.Write "</select>"  
   

¿Alguien puede darme una idea?

Mil gracias

[Myakire]

Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1
control/includes/Ajmlib.asp, línea 105

mmm, a ver......, necesitariamos ver el resultado de la expresión sql de la linea que da el error
sql = "SELECT * FROM " & tablaAux & " WHERE IDUsuario=" & idusuario & " AND IDModulo=" & rs1(campo_id) & " ORDER BY " & campo_nombre & " DESC;"
response.write sql
response.end
Set rsC = oConn.Execute(sql)

Lo más seguro es que alguna de las variables no tenga el valor esperado, sospecho que será: campo_nombre

[Nono Martínez]

El resultado del 'response.write sql' es:

SELECT * FROM Tbl_ModulosAux WHERE IDUsuario=41 AND IDModulo=47 ORDER BY Nombre DESC;

Ya comprobé ambas antes de postear este tema, llevo algunos días dándole vueltas. Tiene que ser algo relacionado con algun tipo de bloqueo. Las tablas estan relacionadas y he probado extrayendo el recordset anidado y funciona perfectamente, pero si le coloco el recordset interior da error.

Me es necesario porque este proc lo uso dentro de la edición de un usuario para asignarle categorias, y necesito cargar las que se seleccionaron anteriormente en el momento de mostrar la ficha para editar.

Gracias :)

[Nono Martínez]

nadie puede darme alguna idea? :(

[mondroinfame]

Segun mi experiencia los mas seguro es que alguno de los nombres de los campos no esten bien escritos en la sentencia Sql, verifica toda la sentencia, por eso te recomiendo usar lo que ya mencionaron...

Response.Write sql
Response.End

esto antes de abrir el recordSet,para que no marque un error o de la siguiente manera, pero no la recomiendo ya que aparentemente a veces hace parecer que la pagina funciona


Response.Write sql
ON ERROR RESUME NEXT
miTabla.Open sql, cnn, 2, 3, 1

[Nono Martínez]

Las variables se pasan bien y las sentencias sql como ya he dicho se generan bien con dichas variables.


Si uso el ON ERROR RESUME NEXT genera bien el multipleselect pero no da el resultado correctamente (selecciona todo).

Pero sigue sin funcionar como debiera.... me va a volver loco esto...

[Myakire]

mmmmmm, el error de "Pocos parámetros. Se esperaba 1" nunca había visto que ocurriera por causas diferentes a que se ha escrito mal una consulta SQL.

Yo lo que haría es intentar cambiar las formas de trabajar en este caso. Por ejemplo:

Código:

Set rs1 = oConn.Execute("SELECT * FROM " & tabla & " ORDER BY " & campo_nombre & " DESC;")
While NOT rs1.EOF 
.....

Se puede cambiar por

Código:

set rs1= Server.CreateObject("adodb.recordset")
vSQL = "SELECT * FROM " & tabla & " ORDER BY " & campo_nombre & " DESC;"
rs1.Open vSQL, oConn, 3,3
'Incluso, aquí podrías hacer un:
Matriz = rs1.GetRows
rs1.close
set rs1 = nothing
For i=0 To UBound(Matriz,2)
  ....

Pueba Nono y nos dices

[Nono Martínez]

Interesante.. pruebo y os digo