ASP - ingreso de datos en tabla relacional

 
Vista:

ingreso de datos en tabla relacional

Publicado por Millicent (11 intervenciones) el 11/05/2006 00:12:22
Hola

Alguien me puede decir como puedo agregar datos en una tabla relacional, lo que hago es lo siguiente

Primero despliego los registros del codigo de dispositivos, estos van acompañados con un campo para que ahi ingrese la cantidad, los registros del codigo(Dispositivo) estan almacenados en una tabla, y ahi todo sale bien , pero para el ingreso de las cantidades no pasa nada , ya que las quiero almacenar en otra tabla ('entradas'). Alguien me puede ayudar.

Pongo el codigo que estoy usando.
<%
Else
C=Request.Form("Codigo")

filePath=Server.MapPath("My Base.mdb")
Set Ob_Conn=Server.CreateObject("ADODB.Connection")
Ob_Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&filePath
Set Ob_RS=Server.CreateObject("ADODB.Recordset")

'Ob_Conn.Open"ContenedoresRack"

Set Ob_RS=Ob_Conn.Execute("SELECT Dispositivo.Codigo,Entradas.Cantidad FROM Dispositivo,Entradas Where Dispositivo.Codigo=Entradas.Codigo and Dispositivo.Cliente like '"& C &"'")

If Request.form ("Mostrar")<>""Then
Response.Write"<Form Method=Post Action= ingreso..asp >"
Response.Write"<Center><Table border=0><tr><th>Dispositivo<th>Cantidad"

Do While (Not Ob_RS.eof)
Response.Write "<tr><td>"& Ob_RS("Codigo")
Response.Write "<TD><Input size=2 Name="& Ob_RS("Cantidad")&">"

Ob_RS.MoveNext
Loop
%>

</table>
<input type=hidden name=Grupo value="<%=C%>"><br>
<input type=submit value=Enviar></form>

<%

Else

For Each Codigo In Request.Form
If Codigo <> "C" Then
Ob_RS.Filter="Codigo='"& Codigo &"'"
Ob_RS ("Cantidad")= CSng(Request.Form(Codigo))
Ob_RS.Update
End If

Next

Response.Write"<h3>Datos Ingresados</h3>"
End If
Ob_RS.Close
Ob_Conn.Close

End If

%>
</body>
</html>

GRaCiAs
Salud2
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder