Foros del Web - Ver Mensaje Individual - Ayuda con Guardar,Modificar,Eliminar datos de una base de datos

tammander · #4 (**permalink**) 12/03/2007, 10:18

El listado de los datos te lo dejo a ti XD

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim cnn, rcs, SQL
set cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
cnn.Open "driver={SQL Server};server=EFUENTES; database=Osiris; uid=sa;pwd="

' Borrado / busqueda para actualizar
if request.QueryString("borrar") <> "" then
    cnn.execute("DELETE FROM usuarios WHERE rut = " & request.QueryString("borrar")
elseif request.QueryString("update") <> "" then
    set rs = cnn.execute("SELECT * FROM usuarios WHERE rut = " & request.QueryString("update")
end if

' Insercion / modificacion de registros
if request.Form("rut") <> "" then
    if request.Form("action") = "update" then
        sql = "UPDATE usuarios SET nombre = '" & request.Form("nombre") & "'"
        sql = sql & ", clave = '" & request.Form("clave") & "'"
        sql = sql & ", perfil = '" & request.Form("perfil") & "'"
        sql = sql & ", sucursal = '" & request.Form("sucursal") & "'"
        sql = sql & " WHERE rut = " & request.Form("rut") ' Actualizar
    else
        ' Comprobamos que no exista
        Dim rsd
        set rsd = Server.CreateObject("ADODB.Recordset")
        set rsd = cnn.execute("SELECT rut FROM usuarios WHERE rut = " & request.Form("rut")
        existe = not rsd.EOF
        rsd.close()
    
        if not existe then
            sql = "INSERT INTO usuarios (rut, nombre, clave, perfil, sucursal) VALUES ("
            sql = sql & "'" & request.Form("rut") & "'"    
            sql = sql & ",'" & request.Form("nombre") & "'"    
            sql = sql & ",'" & request.Form("clave") & "'"    
            sql = sql & ",'" & request.Form("perfil") & "'"    
            sql = sql & ",'" & request.Form("sucursal") & "')"    
        end if
        
    end if
end if

' Lo ideal es que controles el SQL injection
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
</head>

<body>
<form id="form1" name="form1" method="post" action="">
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td>RUT</td>
      <td><input type="text" name="rut" value="<% if isObject(rs) then response.Write(rs.fields("rut").value %>" /></td>
    </tr>
    <tr>
      <td>Nombre</td>
      <td><input type="text" name="nombre" value="<% if  isObject(rs) then response.Write(rs.fields("nombre").value %>" /></td>
    </tr>
    <tr>
      <td>Clave</td>
      <td><input type="text" name="clave" value="<% if  isObject(rs) then response.Write(rs.fields("clave").value %>" /></td>
    </tr>
    <tr>
      <td>Perfil</td>
      <td><input type="text" name="perfil" value="<% if  isObject(rs) then response.Write(rs.fields("perfil").value %>" /></td>
    </tr>
    <tr>
      <td>Sucursal</td>
      <td><input type="text" name="sucursal" value="<% if  isObject(rs) then response.Write(rs.fields("sucursal").value %>" /></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" align="center">
      <input type="hidden" name="action" value="<% if isObject(rs) response.Write("update") else response.Write("insert") %>" />      
      
      <input type="submit" name="Submit" value="Enviar" /></td>
    </tr>
  </table>
</form>
</body>
</html>

Un saludo