URGENTE:capturar datos para actualizar consulta

musu143 · #1 (**permalink**) 11/04/2012, 09:55

Hola, necesito hacer una consulta en asp con los datos previamente leidos de la misma tabla, es decir, tengo una select que lee la primera fila de una tabla. De la select me guarda dos valores (universidad y facultad) para ir con ellos a una consulta donde me modifica los campos que cumplen que sea igual la universidad y la facultad. Mi problema es que no se como pasarle esas variables al update. Dejo el codigo a ver si alguien me puede ayudar:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Dim Ad
Dim Ad_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim fac
Dim uni
Dim numPlaz

Repeat1__numRows = -1
Repeat1__index = 0
Ad_numRows = Ad_numRows + Repeat1__numRows

Set Ad = Server.CreateObject("ADODB.Recordset")
Ad.ActiveConnection = MM_Conexion1_STRING
Ad.Source = "SELECT * FROM Admitidos"
Ad.CursorType = 0
Ad.CursorLocation = 2
Ad.LockType = 1
Ad.Open()
Ad_numRows = 0
%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_Conexion1_STRING
Command1.CommandText = "UPDATE [Admitidos] SET NOTA= 30, CANDIDATO=true, SUPLENTE=true WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND FACULTAD='" + Replace(fac, "'", "''") + "' ;"

Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
%>
<html>
<head>
</head>
<body>

<% While ((Repeat1__numRows <> 0) AND (NOT Ad.EOF)) %>

 <%=(Ad.Fields.Item("FACULTAD").Value)%> 
 <%=(Ad.Fields.Item("UNIVERSIDAD").Value)%>
 <%numPlaz=(Ad.Fields.Item("NUM PLAZAS").Value)%> 

<%
If (Request.QueryString("FACULTAD") <> "") Then
fac = Request.QueryString("FACULTAD")
End If
%>

<%Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Ad.MoveNext()%>
<%WEND%>

</body>
</html>
<%
Ad.Close()
Set Ad = Nothing
%>

Lo que esta en rojo es lo que no me funciona aunque no me da ningun error pero no me lo coge la consulta. ALguien sabe como solucionar esto? Estaria muy agradecida a todo el que me pudiera ayudar.

pempas · #2 (**permalink**) 12/04/2012, 03:57

Buenas,
lo que veo es que estás capturando la variable "fac" después de pasar el parámetro a la sql, deberías de capturarla antes, creo que es eso.

musu143 · #3 (**permalink**) 12/04/2012, 04:27

Hay un erro en el codigo que he copiado, en realidad es asi, te marco en otro color lo que he cambiado:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Dim Ad
Dim Ad_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim fac
Dim uni
Dim numPlaz

Repeat1__numRows = -1
Repeat1__index = 0
Ad_numRows = Ad_numRows + Repeat1__numRows

Set Ad = Server.CreateObject("ADODB.Recordset")
Ad.ActiveConnection = MM_Conexion1_STRING
Ad.Source = "SELECT * FROM Admitidos"
Ad.CursorType = 0
Ad.CursorLocation = 2
Ad.LockType = 1
Ad.Open()
Ad_numRows = 0
%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_Conexion1_STRING
Command1.CommandText = "UPDATE [Admitidos] SET NOTA= 30, CANDIDATO=true, SUPLENTE=true WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND FACULTAD='" + Replace(fac, "'", "''") + "' ;"

Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
%>
<html>
<head>
</head>
<body>

<% While ((Repeat1__numRows <> 0) AND (NOT Ad.EOF)) %>

 <%fac=(Ad.Fields.Item("FACULTAD").Value)%>
 <%uni=(Ad.Fields.Item("UNIVERSIDAD").Value)%>
 <%numPlaz=(Ad.Fields.Item("NUM PLAZAS").Value)%> 

<%
If (numPlazas <> "") Then
Command1.Execute()
End If
%>

<%Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Ad.MoveNext()%>
<%WEND%>

</body>
</html>
<%
Ad.Close()
Set Ad = Nothing
%>

Las variables me las recoje bien porque con un response.write me las va escribiendo en pantalla, lo que no me las pasa a la consulta sql, ¿alguna idea?

pempas · #4 (**permalink**) 12/04/2012, 04:46

Sigue pasando lo mismo, la variable "uni" y "fac" la recoges después de hacer la sql, vamos, que cuando haces la sql estas dos variables están vacías, por eso no va.

musu143 · #5 (**permalink**) 12/04/2012, 04:48

Pero entonces ¿donde las pongo? Si estuvieran vacias con me las escribiria...no??

pempas · #6 (**permalink**) 12/04/2012, 04:52

A ver, esto es muy sencillo, ASP ejecuta el trabajo por lotes, es decir, primero ejecuta lo que está más arriba, tu aquí declaras la variable:

Código PHP:

  
Dim Ad
Dim Ad_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim fac 
Dim uni
Dim numPlaz
 
Repeat1__numRows = -1
Repeat1__index = 0
Ad_numRows = Ad_numRows + Repeat1__numRows
 
Set Ad = Server.CreateObject("ADODB.Recordset")
Ad.ActiveConnection = MM_Conexion1_STRING
Ad.Source = "SELECT * FROM Admitidos"
Ad.CursorType = 0
Ad.CursorLocation = 2
Ad.LockType = 1
Ad.Open()
Ad_numRows = 0

Aquí ejecutas un update:

Código PHP:

  <%
 
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_Conexion1_STRING
Command1.CommandText = "UPDATE [Admitidos] SET NOTA= 30, CANDIDATO=true,  SUPLENTE=true WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND  FACULTAD='" + Replace(fac, "'", "''") + "' ;"
 
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
%>

Y luego aquí, le pasas el valor a la variable:

Código PHP:

  <% While ((Repeat1__numRows <> 0) AND (NOT Ad.EOF)) %>
 
 <BR><%fac=(Ad.Fields.Item("FACULTAD").Value)%><B  R />
<BR><%uni=(Ad.Fields.Item("UNIVERSIDAD").Value)%><  B R />
<BR><%numPlaz=(Ad.Fields.Item("NUM PLAZAS").Value)%><BR />
 
<%
If (numPlazas <> "") Then 
Command1.Execute()
End If
%>
 
<%Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Ad.MoveNext()%>
<%WEND%>

Eso significa que cuando haces esto:

Código PHP:

  Command1.CommandText = "UPDATE [Admitidos] SET NOTA= 30, CANDIDATO=true,  SUPLENTE=true WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND  FACULTAD='" + Replace(fac, "'", "''") + "' ;"

Lo que realmente está escribiendo tu código es esto:

Código PHP:

  UPDATE [Admitidos] SET NOTA= 30, CANDIDATO=true, SUPLENTE=true WHERE  UNIVERSIDAD= '' AND FACULTAD='' ;

Porque cuando haces la SQL, las variables NO tienen valor declarado, ¿entiendes?

Abajo las escribirá bien porque ya le has pasado un valor en el While.

un saludo.

musu143 · #7 (**permalink**) 12/04/2012, 04:52

Ademas, el comando command1.Execute() lo tengo puesto en el if. Con eso el update se me ejecuta cuando entra en el if y ya me ha leido las varibales fac y uni. No??? Aqui la cuestion es que tiene q leer dos veces de la misma tabla, una donde me guarda ls variables segun va leyendo filas y otra donde me actualiza las filas que coinciden con esas variables. Ese es el proposito, la verdad es que es algo lioso...

musu143 · #8 (**permalink**) 12/04/2012, 04:53

Te agradezco un monton que te tomes tantas molestias pero entonces, ¿como lo soluciono?

pempas · #9 (**permalink**) 12/04/2012, 04:54

El código correcto sería así:

Código PHP:

  
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Conexion1.asp" -->
<%
 
Dim Ad
Dim Ad_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim fac 
Dim uni
Dim numPlaz
 
Repeat1__numRows = -1
Repeat1__index = 0
Ad_numRows = Ad_numRows + Repeat1__numRows
 
Set Ad = Server.CreateObject("ADODB.Recordset")
Ad.ActiveConnection = MM_Conexion1_STRING
Ad.Source = "SELECT * FROM Admitidos"
Ad.CursorType = 0
Ad.CursorLocation = 2
Ad.LockType = 1
Ad.Open()
Ad_numRows = 0
%>

<html>
<head>
</head>
<body>
 
<% While ((Repeat1__numRows <> 0) AND (NOT Ad.EOF)) %>
 
 <BR><%fac=(Ad.Fields.Item("FACULTAD").Value)%><B  R />
<BR><%uni=(Ad.Fields.Item("UNIVERSIDAD").Value)%><  B R />
<BR><%numPlaz=(Ad.Fields.Item("NUM PLAZAS").Value)%><BR />
 
<%
If (numPlazas <> "") Then 
set Command1 = Server.CreateObject("ADODB.Command")
  Command1.ActiveConnection = MM_Conexion1_STRING
  Command1.CommandText = "UPDATE [Admitidos] SET NOTA= 30, CANDIDATO=true,  SUPLENTE=true WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND  FACULTAD='" + Replace(fac, "'", "''") + "' ;"
  
  Command1.CommandType = 1
  Command1.CommandTimeout = 0
  Command1.Prepared = true
 Command1.Execute()
End If
%>
 
<%Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Ad.MoveNext()%>
<%WEND%>
 


</body>
</html>
<%
Ad.Close()
Set Ad = Nothing
%>

pempas · #10 (**permalink**) 12/04/2012, 04:55

Primero recoges, y luego grabas.

musu143 · #11 (**permalink**) 12/04/2012, 05:00

Cita:

Iniciado por pempas

Primero recoges, y luego grabas.

GRACIAS GRACIAS GRACIAS Y GRACIAS.... Me habia vuelto loca con esto

pempas · #12 (**permalink**) 12/04/2012, 05:02

De nada!

musu143 · #13 (**permalink**) 16/04/2012, 05:20

Hola de nuevo a ver si me puedes contestar otra duda que me surge. Despues de ejecutar la primera actualizacion, quiero que, a partir de las variables que me recoge, inserte otro update, un delete y otro update. Si meto el update justo detras me da error, de esta forma:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Dim Ad
Dim Ad_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim fac
Dim uni
Dim numPlaz
Dim nif

Repeat1__numRows = -1
Repeat1__index = 0
Ad_numRows = Ad_numRows + Repeat1__numRows

Set Ad = Server.CreateObject("ADODB.Recordset")
Ad.ActiveConnection = MM_Conexion1_STRING
Ad.Source = "SELECT * FROM Admitidos ORDER BY OPCION, NOTA"
Ad.CursorType = 0
Ad.CursorLocation = 2
Ad.LockType = 1
Ad.Open()
Ad_numRows = 0
%>

<html>
<head>
</head>
<body>

<% While ((Repeat1__numRows <> 0) AND (NOT Ad.EOF)) %>

 <%fac=(Ad.Fields.Item("FACULTAD").Value)%>
 <%uni=(Ad.Fields.Item("UNIVERSIDAD").Value)%> 
 <%numPlaz=(Ad.Fields.Item("NUM PLAZAS").Value)%> 
 <%nif=(Ad.Fields.Item("NIF").Value)%> 

<%
If (numPlaz > 0) Then

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_Conexion1_STRING
Command1.CommandText = "UPDATE [Admitidos] SET NOTA= 0, CANDIDATO=true, SUPLENTE=false WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND FACULTAD='" + Replace(fac, "'", "''") + "' ;"

Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

set Command2 = Server.CreateObject("ADODB.Command")
Command2.ActiveConnection = MM_Conexion1_STRING
Command2.CommandText = "UPDATE Admitidos [NUM PLAZAS]=[NUM PLAZAS]-1 WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND FACULTAD='" + Replace(fac, "'", "''") + "' ; "
Command2.CommandType = 1
Command2.CommandTimeout = 0
Command2.Prepared = true
Command2.Execute()

End If
%>

<%Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Ad.MoveNext()%>
<%WEND%>

</body>
</html>
<%
Ad.Close()
Set Ad = Nothing
%>

Alguna idea??

musu143 · #14 (**permalink**) 17/04/2012, 12:53

Hola Pempas, podrias analizar este codigo para ver por que me da ese error que describo abajo???

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Dim Ad
Dim Ad_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim fac
Dim uni

Dim numPlaz
Dim nif
Dim opc
Dim can
Dim sup

Repeat1__numRows = -1
Repeat1__index = 0
Ad_numRows = Ad_numRows + Repeat1__numRows

Set Ad = Server.CreateObject("ADODB.Recordset")
Ad.ActiveConnection = MM_Conexion1_STRING
Ad.Source = "SELECT * FROM Admitidos ORDER BY OPCION, NOTA"
Ad.CursorType = 0
Ad.CursorLocation = 2
Ad.LockType = 1
Ad.Open()
Ad_numRows = 0
%>

<html>
<head>
</head>
<body>

<% While ((Repeat1__numRows <> 0) AND (NOT Ad.EOF)) %>

 <%fac=(Ad.Fields.Item("FACULTAD").Value)%>
 <%uni=(Ad.Fields.Item("UNIVERSIDAD").Value)% > 
 <%numPlaz=(Ad.Fields.Item("NUM PLAZAS").Value)%> 
 <%nif=(Ad.Fields.Item("NIF").Value)%> 
 <%opc=(Ad.Fields.Item("OPCION").Value)%> 

<%
If (numPlaz > 0) Then 'Si el numero de plazas de la fila que es leida es mayor que cero, actualiza ese NIF a CANDIDATO=true, SUPLENTE=false'

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_Conexion1_STRING
Command1.CommandText = "UPDATE Admitidos SET CANDIDATO=true, SUPLENTE=false WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND FACULTAD='" + Replace(fac, "'", "''") + "' and NIF = '" + Replace(nif, "'", "''") + "';"

Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

'Como ya tiene un candidato en esa universidad/facultad, debe de actualizar el numero de plazas, con lo cual, le resta una en todas las filas donde aparezca el par universidad/facultad'

set Command2 = Server.CreateObject("ADODB.Command")
Command2.ActiveConnection = MM_Conexion1_STRING
Command2.CommandText = "UPDATE Admitidos SET [NUM PLAZAS]='" + Replace(numPlaz-&1, "'", "''") + "' WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND FACULTAD='" + Replace(fac, "'", "''") + "' ;"

Command2.CommandType = 1
Command2.CommandTimeout = 0
Command2.Prepared = true
Command2.Execute()

'Despues de ejecutar la consulta, lee los datos de candidato y suplente para ver si tiene que seguir haciendo actualizacion o borrado de filas'

can=(Ad.Fields.Item("CANDIDATO").Value)
sup=(Ad.Fields.Item("SUPLENTE").Value)

If can=true Then 'Si ha encontrado un candidato, debe mirar si el nif de ese candidato aparece mas veces en la tabla y tiene mas veces el campo candidato=true. Si es asi, mira la opcion y si esta ultima es menos, borra la fila primera ya que candidatos con menos opcion se borran de la tabla'

set Command3 = Server.CreateObject("ADODB.Command")
Command3.ActiveConnection = MM_Conexion1_STRING
Command3.CommandText = "DELETE Id FROM Admitidos WHERE NIF = '" + Replace(nif, "'", "''") + "' AND ('" + Replace(opc, "'", "''") + "' > EXISTS(SELECT OPCION FROM Admitidos WHERE NIF = '" + Replace(nif, "'", "''") + "' AND CANDIDATO=true));"

Command3.CommandType = 1
Command3.CommandTimeout = 0
Command3.Prepared = true
Command3.Execute()
end if

'Si ha entrado en ese if, quiere decir que ha borrado esa fila, por tanto, debemos actualizar una vez mas el numero de plazas, ya que habria otra vacante es esa universidad/facultad que hemos borrado
'
set Command5 = Server.CreateObject("ADODB.Command")
Command5.ActiveConnection = MM_Conexion1_STRING
Command5.CommandText = "UPDATE [Admitidos] SET [NUM PLAZAS]='" + Replace(numPlaz+&1, "'", "''") + "' WHERE UNIVERSIDAD= '" + Replace(uni, "'", "''") + "' AND FACULTAD='" + Replace(fac, "'", "''") + "' ;"

Command5.CommandType = 1
Command5.CommandTimeout = 0
Command5.Prepared = true
Command5.Execute() 'Aqui es donde me da error'

If sup=true then 'Aqui hacemos lo mismo que antes, si suplente=true, miramos si hay por encima y borramos este, pero aqui no cambiamos el numero de plazas ya que eso solo afecta a los que son candidatos, pues los suplentes no restan plaza'

set Command4 = Server.CreateObject("ADODB.Command")
Command4.ActiveConnection = MM_Conexion1_STRING
Command4.CommandText = "DELETE Id FROM Admitidos WHERE NIF = '" + Replace(nif, "'", "''") + "' AND '" + Replace(opc, "'", "''") + "' > EXISTS (SELECT OPCION FROM Admitidos WHERE NIF = '" + Replace(nif, "'", "''") + "' AND SUPLENTE=true);"

Command4.CommandType = 1
Command4.CommandTimeout = 0
Command4.Prepared = true
Command4.Execute()
end if

End If
%>

<%Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Ad.MoveNext()%>
<%wend%>

</body>
</html>
<%
Ad.Close()
Set Ad = Nothing
%>

Y me da el siguienjte error:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Controlador ODBC Microsoft Access] No se pudo actualizar; actualmente está bloqueado por el usuario 'admin' en la máquina 'NORA-PC'.

/Becas/Untitled-1.asp, línea 63

pempas · #15 (**permalink**) 20/04/2012, 05:15

Buenas,
lo único que debes de hacer es cerrar la base de datos desde el Access!! que está abierta.

Lo que te dice es que no puede grabar en la base de datos porque la tienes abierta.