Clases

[vgaray]

Parte 1:

Por definición una clase es un conjunto de variables y procedimientos contenidos bajo un mismo nombre.
Entonces podremos crear clases que contengan las actividades básicas sobre una base de datos, como sería agregar y editar un registro de la misma. Empecemos con la declaración de la clase, donde la grabarémos y luego su uso práctico.

A continuación como quedaría la clase que para este caso deseamos crear:

<%
Class Estudiante

Private var_Nombres
Private var_Apeidos
Private var_Asignatura
Private sql

Sub Obtener_datos()
var_Nombres = Request.Form("frm_nombres")
var_Apeidos = Request.Form("frm_apeidos")
var_Asignatura = Request.Form("frm_asignatura")
End Sub

Function Agregar()
'aqui abres base de datos
sql = "Insert into tabla (Nombres,Apeidos,Asignatura) Values "
sql = sql + "('" & var_nombres & "','" & var_apeidos & "','" & var_asignatura& "')"
connection.Execute sql
'cierras base de datos
Agregar = "Se agregó el estudiante " & var_nombre
End Function

Function Editar()
'aqui abres base de datos
'aqui el código para editar el registro en espécifico
connection.Execute sql
'cierras base de datos
Editar = "Se edito la info del estudiante " & var_nombre
End Function

End Class
%>

Graba el código anterior como Estudiantes.clas

Ahora verémos el uso práctico en alguna página ASP...

<<agregar_estudiante.asp>>

<!--#include file="Estudiantes.clas"-->
<%
Dim ObjEstudiante
Set ObjEstudiante = New Estudiante
ObjEstudiante.Obtener_datos()
Response.Write ObjEstudiante.Agregar()
Set ObjEstudiante = Nothing
%>

Bueno, ojalá hayas logrado ver con claridad el uso de las 'clases' y como te pueden ayudar a
'limpiar' tu código como lo podrás ver en la página 'agregar_estudiante.asp'.

En la segunda parte mostraré otro uso práctico de las clases.



---------------------
Tan libre como gratuito!!!