Modulo De Ingreso De Datos

Modulo de Ingreso de Datos Para agregar registros, es necesario crear dos archivos, el primer archivo permitirá ingresar los datos que se desean agregar, y el segundo archivo los agrega a la tabla y mostrara el contenido de la misma.

Willeams Medina Email - [email protected]

Pasos a realizar • • • • • •

Crear la base de datos Tecnologico Crear la tabla alumnos Crear la tabla opcion Crear el archivo Nro 01 formulario.asp Crear el archivo Nro 02 combinar.asp Ejecutar el archivo Nro 01 formulario.asp Willeams Medina Email - [email protected]

Tabla alumnos

Tabla opcion

Archivo Nro 01 formulario.asp

Archivo Nro 02 combinar.asp

Codigo archivo Nro 01 • • • • • • • • • • • • •

Modulo de Ingreso de Datos

Codigo
Alumno
Sexo

Codigo archivo Nro 02 parte 01 •

<%

•

response.write "BIenvenidos"

•

Dim OBJConex, OBJRegistros, CadenaCmd

• •

SET OBJConex = Server.CreateObject ("ADODB.Connection") SET OBJRegistros = Server.CreateObject ("ADODB.Recordset")

•

OBJConex.Open "DSN=MyConex;UID=;PWD=;Database=Tecnologico"

• • •

vcodigo = request.querystring("txtcod") vnombre = request.querystring("txtnom") vsexo = request.querystring("txtsex")

•

CadenaCmd = "INSERT INTO alumnos (codigo, nombre, sexo) VALUES (' " & vcodigo & " ',' " & vnombre & " ', " & vsexo & ")"

•

SET OBJRegistros = OBJConex.Execute (CadenaCmd)

Codigo archivo Nro 02 parte 02 •

CadenaCmd = "Select * From Alumnos INNER JOIN Opcion ON Alumnos.sexo=Opcion.id"

•

SET OBJRegistros = OBJConex.Execute (CadenaCmd)

•

response.write ""

•

WHILE NOT OBJRegistros.EOF

•

Response.Write ""

•

OBJRegistros.MOVENEXT

•

WEND

•

response.write "

" & OBJRegistros(0).Value & "

" & OBJRegistros(1).Value & "

" & OBJRegistros(4).Value & "

"

•

OBJConex.Close

•

%>