27/02/2008, 06:47
|
 | | | Fecha de Ingreso: enero-2002
Mensajes: 701
Antigüedad: 23 años, 3 meses Puntos: 8 | |
| Re: Actualizar agregando un nuevo registro
ok, entonces así quedaría: Cita: <%
id_historial= 341
referencia = "5345345"
Dim oConn, rs, SQL
Dim nombre
'Creo el objeto Connection
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bd1.mdb")
'en el viejito
Sql="UPDATE historia SET estatus = 0 where id_historial = " & id_historial
oConn.Execute(SQL)
'creamos el nuevo con el estatus en 1 y la referencia actualizada
Sql="INSERT INTO historia "
Sql=Sql & "SELECT id_tipo, 1," & referencia & ",campo1, campo2, campoN WHERE id_historial = " & id_historial
oConn.Execute(SQL)
Response.Write("SE ACTUALIZO tabla")
oConn.Close
%>
Saludos! |