Que tal mi nombre es Alberto Rodriguez, Soy Ing. En Sistemas y tengo programando web desde el 2002, asi que lo principal que posteare sera progamacion web, con alguna que otra aportacion de visual Basic, .Net y por supuesto Videojuegos
Asi como dice el titulo, estos post seran un minitutorial para hacer un ABC(Altas, Bajas y Cambios) en asp. El dia de hoy veremos como hacer un ALTA de un formulario html con los campos, NOMBRE,EMAIL,SEXO,ACTIVO , la informacion la recivira una pagina asp la cual la enviara a un server SQL SERVER 2005, para estos ejemplos tambien podemos usar SQL SERVER EXPRESS.
Este es el codigo de la pagina agregar.html, en este codigo es un simple forumlario que contiene una tabla de 5 rengloes por dos columnas, un poco de info sobre las etiquetas seria, la etiqueta Form se utliza para encapsular un formulario y poder enviarlo hacia alguna pagina, el INPUT tiene varioas opciones, puede ser un boton, un boton de enviar formulario (SUBMIT), el que es solo boton(BUTTON), un campo oculto(HIDDEN), un CHECKBOx(el cuadro que puedes palomear), un Radio Boton (el que es un circulo), el de texto (TEXT), el de contraseñas (PASSWORD), eL FILE(nos sirve para subir archivos), el IMAGE, y el RESET(como lo dice su nombre, borra el formulario)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| <form action="REC_agregar.asp" method="post">
<table style="width: 100%;" border="0">
<tbody>
<tr>
<td style="width: 82px;">Nombre</td>
<td><input name="nombre" size="50" type="text" /></td>
</tr>
<tr>
<td style="width: 82px;">Email</td>
<td><input name="email" size="50" type="text" /></td>
</tr>
<tr>
<td style="width: 82px;">Sexo</td>
<td><select name="sexo"> <option value="F">Femenino</option> <option value="M">Masculino</option> </select></td>
</tr>
<tr>
<td style="width: 82px; height: 24px;">Activo</td>
<td style="height: 24px;"><input type="checkbox" value="ON" /></td>
</tr>
<tr>
<td style="width: 82px;"></td>
<td><input type="submit" value="Enviar" /></td>
</tr>
</tbody></table>
</form> |
Ahora que ya tenemos el codigo html que envia el formulario al archivo REC_agregar.asp, hay que crear el archivo que va a recivir la informacion del formulario y la mandara al SQL SERVER.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| On Error resume Next
''''''''Recolectamos las variables enviadas al agregar_usuario.html
NOMBRE_F=REQUEST.FORM("nombre") ''''''''<--recuerden que el nombre con el cual recolectamos la informacion es el mismo que esta en el formulario
PASSWORD_F=REQUEST.FORM("password")
EMAIL_F=REQUEST.FORM("email")
SEXO_F=REQUEST.FORM("sexo")
ACTIVO_F=REQUEST.FORM("activo")
''''''''haremos una validacion para el checkbox, RECUERDEN que en la base de datos lo tenemos declarado como bit.
if ACTIVO_F = "ON" THEN
ACTIVO_F=1
ELSE
ACTIVO_F=0
END IF
''''''''Se crea RecordSet Usuarios
Set Rs = Server.CreateObject("ADODB.RecordSet")
''''''''Se crea instancia del objeto conexion
Set conexion = Server.CreateObject("ADODB.Connection")
''''''''Se Declara la cadena de conexion enn la variable CadenaDeConexion
CadenaDeConexion = "Provider=SQLNCLI; Data Source=TuServer; User ID=TuUsuario; Password=TuPassword; Initial Catalog=TuBD;"
''''''''Se Abre Conexion con la cadena del CadenaDeConexion
conexion.Open CadenaDeConexion
'''''''' Cadena SQL Usuarios
CadenaSQL = "INSERT INTO USUARIOS(NOMBRE,PASSWORD,EMAIL,SEXO,ACTIVO) VALUES(''''''''"& NOMBRE_F &"'''''''',''''''''"& PASSWORD_F &"'''''''',''''''''"& EMAIL_F &"'''''''',''''''''"& SEXO_F &"'''''''',''''''''"& ACTIVO_F &"'''''''')"
''''''''Ejecutamos la cadena SQL en el server
RS = conexion.execute(CadenaSQL)
If Err.Number <> 0 then
HandleError Err.Description
Error.Clear
End If
''''''''Recuerden en cerrar la conexion
conexion.close
Response.write "Usuario agregado.
<a>Regresar a carga de usuario</a>" |
Ahora les dejo el codigo de la tabla, por si gustan recrear la tabla en alguno de sus servidores.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[USUARIOS](
[ID] [int] IDENTITY(1,1) NOT NULL,
[NOMBRE] [nvarchar](50) NOT NULL,
[PASSWORD] [nvarchar](50) NOT NULL,
[EMAIL] [nvarchar](50) NOT NULL,
[SEXO] [nvarchar](1) NOT NULL,
[ACTIVO] [bit] NOT NULL CONSTRAINT [DF_USUARIOS_ACTIVO] DEFAULT ((0)),
CONSTRAINT [PK_USUARIOS] PRIMARY KEY CLUSTERED
(
[ID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY] |
Dentro del codigo vienen la descripcion de lo que el codigo hace, espero que no tengan ninguna duda, y en dado caso que tengan una duda con gusto se las ampliaremos en los comentarios.
Saludos y recuerda que solo existen 2 tipos de persona, las que conocen binario y las que no.
Beto Asp, HTML, MSSQL
