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
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
0