Recuperar y editar campos en una base de datos

[armandoweb]

Estimados amigos:

Estoy intentando recuperar datos de un registro de una base de datos, ubicarlo en un formulario para poder editarlo y actualizarlo, pero necesito ayuda de como hacerlo. También podría servirme algún código de ejemplo o tutorial.
Desde ya gracias y espero sus posibles respuestas.
Gracias por anticipado.
Ariel.

[Prefontaine]

Aqué encontráras algunas utilidades www.asptutor.com

Un saludo

[TurKa]

Lo primero que debes hacer es realizar una consulta a la base de datos:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\DB\basededatos.mdb")

SQL = "SELECT campo1,campo2 FROM tabla Where IdentificadorDeRegistro ="&numeroIdentificadorDeRegistro
Set RS = CreateObject("ADODB.Recordset")
RS.Open SQL,Conn
%>

IdentificadorDeRegistro se refiere a un campo del registro que NO PUEDA SER EDITADO y que SEA ÚNICO (es decir que no repita en otro registro). Por ejemplo, puede ser un valor numérico de un campo autoincremental.
numeroIdentificadorDeRegistro será el valor numérico que corresponda al registro. Por ejemplo 1

El siguiente paso es crear el formulario insertando los datos recogidos:

<FORM METHOD=post ACTION=editar.asp>
<INPUT TYPE=hidden name=IdentificadorDeRegistro VALUE=numeroIdentificadorDeRegistro>
Campo1: <INPUT TYPE=text NAME=campo1 VALUE="<%=rs("campo1")%>"><br>
Campo2: <INPUT TYPE=text NAME=campo2 VALUE="<%=rs("campo2")%>"><br>
<INPUT TYPE=submit VALUE=Enviar>
</FORM>

Luego cierras los objetos y los vacías:

<%
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>

Una vez hecho esto, tendrás que crear una página llamada editar.asp para actualizar los datos. La página podrá tener este código:

<%
Const adLockOptimistic = 3
Const adOpenKeyset = 1

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\DB\basededatos.mdb")

SQL = "SELECT campo1,campo2 FROM tabla Where IdentificadorDeRegistro ="&Request.Form("numeroIdentificadorDeRegistro" )
Set RS = CreateObject("ADODB.Recordset")
RS.CursorType = adOpenKeyset
RS.LockType = adLockOptimistic
RS.Open SQL,Conn

If NOT RS.Eof Then
'si el registro existe actualiza los campos
RS("campo1") = Request.Form("campo1")
RS("campo2") = Request.Form("campo2")
RS.Update
Response.Write "El registro ha sido actualizado"

Else
'si el registro no existe lo informa
Response.Write "El registro no existe"
End If

RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>

Con eso ya tienes para empezar. Luego mira ASPTutor.com que tiene muchísima información y muy buena. Sino, visitas www.desarrolloweb.com/asp

Saludos!!!!