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!!!

[urjose]

Donde esta la segunda parte?

<center><a href="http://www.forosdelweb.com/comment_usr.asp?usr=urjose">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

[kevin22]

Hola,

Todavia no he probado el codigo de las clases, pero parece muy interesante. Podrias mandarme la &quot;segunda parte&quot; o algun ejemplo mas?

Gracias.

[Ruchu]

calma amigos, quiza aun este haciendo la segunda parte.

no nos falles vgaray! ;)

[kandrade]

Hola..amigos..alguien podria decirme como derivar clases en ASP ..necesito heredarle a una clase las propiedades y metodos de otra.....tipo java .....OJALA y alguien pudiera orientarme..

Me urge muchisimo.... gracias.....

kiero que esta clase hererde a otra,.,, ¡COmo le hago?
<%

Class Class_ObjetosPantalla

dim valores (1000,2)
dim total

public sub put(vNombre,vValor)
valores(total,0)= Cstr(vNombre)
valores(total,1)= vValor
total = total + 1
End sub

End Class

%>

[moddy]

Como se puede traspasar parametro a una funcion de esa clase
me explico
como le enviaste nombre, apellido y asignatura

[u_goldman]

Iniciado por moddy

Como se puede traspasar parametro a una funcion de esa clase
me explico
como le enviaste nombre, apellido y asignatura

No entendi tu pregunta...puedes elaborar un poco mas?

Para contestar el post #5 (viejisimo, espero que haya encontrado la respuesta) no se puede, como primicia ASP 3.0 no soporta herencia, mucho menos hacia otra plataforma.

Saludos