¿Estás buscando una forma rápida y sencilla de actualizar registros en tu base de datos? Entonces, ADO es la solución que necesitas. En este artículo te explicaremos lo que debes saber sobre ADO y cómo utilizarlo para actualizar registros en tu base de datos de forma eficiente y eficaz. Sigue leyendo para descubrir más.
Actualización de registros de la base de datos es un proceso muy común que incluiría cualquier aplicación web típica de ASP. En este tutorial, veremos algunos ejemplos de códigos ADO/ASP que se pueden usar para actualizar registros en la base de datos.
Declaración de ACTUALIZACIÓN de SQL
Lenguaje de consulta estructurado también conocido como ‘sql‘ es el lenguaje estándar utilizado con la mayoría de las aplicaciones de bases de datos modernas. SQL nos proporciona un mecanismo para seleccionar, insertar, actualizar y modificar registros en una base de datos.
En este resumen, nos vamos a centrar en el SQL UPDATE
declaración. Para obtener información más detallada sobre sql, visite la sección SQL de este sitio. Hay docenas de tutoriales para ayudarlo a comprender mejor el lenguaje SQL.
Sintaxis
UPDATE tableName SET fieldName='value' WHERE [fieldName] = 'value'
Ejemplos
En este tutorial, echaremos un vistazo a dos páginas ASP. El primer ejemplo es una página ASP que un visitas de usuarios para mostrar los registros de una base de datos. Un usuario puede hacer clic en el botón del registro de empleado que desea actualizar. Aquí está el código HTML de la primera página.
<!DOCTYPE html>
<html>
<head>
<title>Employees</title>
<style type="text/css">
table {
border:1px solid #ABABAB;
border-collapse:collapse;
color:#4F4F4F;
}
th {
border:1px solid #ABABAB;
background-color:#5F5F5F;
color:#FFFFFF;padding:5px;
}
tr {
border:1px solid #ABABAB;
}
td {
border:1px solid #ABABAB;
padding:5px;
}
.btn {
width:25px;
border:1px solid gray;
}
</style>
</head>
<body>
<%
Dim oConn, oRs, ds
ds = "Driver={MySQL ODBC 3.51 Driver};SERVER=db-hostname;DATABASE=db-name;UID=userID;PWD=password"
Set oConn=Server.CreateObject("ADODB.Connection")
OConn.Open ds
Set oRs=Server.CreateObject("ADODB.Recordset")
oRs.open "SELECT * FROM employees",oConn
%>
<h1>Employees</h1>
<table>
<tr>
<%
for each x in oRs.Fields
Response.Write("<th>" & UCase(x.name) & "</th>")
next
%>
</tr>
<% do until oRs.EOF %>
<tr>
<form method="post" action="employeeUpdate.asp">
<%
for each x in oRs.Fields
if lcase(x.name)="id" then%>
<td>
<input type="submit" name="id" class="btn" value="<%=x.value%>">
</td>
<%else%>
<td><%Response.Write(x.value)%></td>
<%end if
next
%>
</form>
<%oRs.MoveNext%>
</tr>
<%
loop
oConn.close
%>
</table>
</body>
</html>
Cuando el usuario hace clic en el botón en el campo «ID», el usuario será llevado a una página llamada employeeUpdate.asp
. el siguiente ejemplo incluye el código ASP/ADO que se necesita para presentar al usuario la información necesaria input
elementos para que la información sobre el registro específico pueda actualizarse en el registro de la base de datos.
<!DOCTYPE html>
<html>
<head>
<title>Update</title>
<style type="text/css">
table {
border:1px solid #ABABAB;
border-collapse:collapse;
color:#4F4F4F;
}
tr {
border:1px solid #ABABAB;
}
td {
border:1px solid #ABABAB;
padding:5px;
}
.btn {
border:1px solid gray;
}
</style>
</head>
<body>
<%
Dim oConn, oRs, empID, sql
ds = "Driver={MySQL ODBC 3.51 Driver};SERVER=db-hostname;DATABASE=db-name;UID=userID;PWD=password"
Set oConn=Server.CreateObject("ADODB.Connection")
OConn.Open ds
empID = Request.Form("id")
If Request.Form("empName")="" then
Set oRs=Server.CreateObject("ADODB.Recordset")
oRs.open "SELECT * FROM employees WHERE id ='" & empID & "'",oConn
%>
<form method="post" action="employeeUpdate.asp">
<table>
<%for each x in oRs.Fields%>
<tr>
<td><%=x.name%></td>
<td><input name="<%=x.name%>" value="<%=x.value%>"></td>
</tr>
<%next%>
</table>
<br /><br />
<input type="submit" class="btn" value="Update record">
</form>
<%
Else
sql="UPDATE employees SET "
sql=sql & "empName="" & Request.Form("empName") & "","
sql=sql & "empTitle="" & Request.Form("empTitle") & """
sql=sql & " WHERE id ='" & empID & "'"
on error resume next
oConn.Execute sql
If err<>0 then
Response.Write("Error updating Record!")
Else
Response.Write("Record " & empID & " was updated!")
End If
End if
oConn.close
%>
</body>
</html>