Sobreescribir en access
Publicado por Angel (1 intervención) el 02/10/2006 16:07:20
Hola a todos y saludos.
Os comento mi caso por si podeis echarme una mano:
Estoy creando una página en la que a través de un formulario envío los datos a una base de datos en Access. El problema es que lo que quiero es que cada vez que se envíen machaquen los anteriores, es decir que se sobreescriban y sólo haya un solo dato para cada item en mi base.
También estoy teniendo problemas con los duplicados.
Os paso el código por si me podeis ayudar, obviamente soy un iniciado en esto de la programación.
<HTML>
<HEAD>
<TITLE>#</TITLE>
</HEAD>
<BODY>
<%
'Nuestras variables...
Dim Conn, RS, SQL
'Recogemos los valores del formulario
fecha=Request.Form("fecha")
primero1=Request.Form("primero1")
primero2=Request.Form("primero2")
primero3=Request.Form("primero2")
segundo1=Request.Form("segundo1")
segundo2=Request.Form("segundo2")
segundo3=Request.Form("segundo3")
postres=Request.Form("postres")
'Instanciamos y abrimos nuestro objeto de conexión
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "Dbq=" & Server.MapPath("menu.mdb")
set RS = Server.CreateObject("ADODB.Recordset")
'Creamos la sentencia SQL
'Ahora creamos la sentencia SQL
sSQL="Insert Into menu (fecha,primero1,primero2,primero3,segundo1,segundo2,segundo3,postres) values('"&fecha&"','"&primero1&"','"&primero2&"','"&primero3&"','"&segundo1&"','"&segundo2&"','"&segundo3&"','"&postres&"')"
'Ejecutamos la orden
Set RS = Conn.Execute(sSQL)
%>
<h2><div align="center">El menú ha sido actualizado, gracias</div></h2>
<%
'Cerramos la conexión
Conn.Close
%>
</BODY>
</HTML>
Os comento mi caso por si podeis echarme una mano:
Estoy creando una página en la que a través de un formulario envío los datos a una base de datos en Access. El problema es que lo que quiero es que cada vez que se envíen machaquen los anteriores, es decir que se sobreescriban y sólo haya un solo dato para cada item en mi base.
También estoy teniendo problemas con los duplicados.
Os paso el código por si me podeis ayudar, obviamente soy un iniciado en esto de la programación.
<HTML>
<HEAD>
<TITLE>#</TITLE>
</HEAD>
<BODY>
<%
'Nuestras variables...
Dim Conn, RS, SQL
'Recogemos los valores del formulario
fecha=Request.Form("fecha")
primero1=Request.Form("primero1")
primero2=Request.Form("primero2")
primero3=Request.Form("primero2")
segundo1=Request.Form("segundo1")
segundo2=Request.Form("segundo2")
segundo3=Request.Form("segundo3")
postres=Request.Form("postres")
'Instanciamos y abrimos nuestro objeto de conexión
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "Dbq=" & Server.MapPath("menu.mdb")
set RS = Server.CreateObject("ADODB.Recordset")
'Creamos la sentencia SQL
'Ahora creamos la sentencia SQL
sSQL="Insert Into menu (fecha,primero1,primero2,primero3,segundo1,segundo2,segundo3,postres) values('"&fecha&"','"&primero1&"','"&primero2&"','"&primero3&"','"&segundo1&"','"&segundo2&"','"&segundo3&"','"&postres&"')"
'Ejecutamos la orden
Set RS = Conn.Execute(sSQL)
%>
<h2><div align="center">El menú ha sido actualizado, gracias</div></h2>
<%
'Cerramos la conexión
Conn.Close
%>
</BODY>
</HTML>
Valora esta pregunta
0