No me enojo, rápidamente repasemos la creación de una clase, que finalmente es un objeto, el cual tiene propiedades, métodos y eventos, hasta ahora lo que hemos hecho con nuestra clase, son métodos no? es decir, hemos hecho que nuestra clase ejecute ciertas cosas, pero también podemos asignarle propiedades, vamos a decir, la propiedad nombre de una clase...
Código:
Class estudiante
Private m_nombre
Public Property Get nombre()
nombre = m_nombre
End Property
Public Property Let nombre(p_data)
m_nombre = p_data
End Property
Public Sub GetRec(intID)
dim, ObjConn, qry, rs, param, cmd
Set ObjConn = Server.CreateObject("ADODB.COnnection")
Set rs = Server.CreateObject("ADODB.Recordset")
Set cmd = Server.CreateObject("ADODB.Command")
qry = "SELECT nombre FROM tbl_estudiantes WHERE estudiante_id = ? "
Set param = cmd.CreateParameters("estudiante_id", adVarchar, adParamInput, intID)
cmd.Parameters.Append(param)
ObjConn.Open strConnect
cmd.ActiveConnection = ObjConn
cmd.CommandType = adCmdText
cmd.CommandText = qry
rs.CursorType = 3
rs.Open cmd
If not rs.EOF Then
m_nombre = rs("nombre")
Else
m_nombre = Null
End If
ObjConn.Close
Set ObJConn = Nothing
Set rs = Nothing
Set param = Nothing
Set cmd = Nothing
End Sub
End Class
Ok, hasta aqui tenemos una clase con una propiedad y un método no es así? la propiedad nombre de la clase, y un método GetRec, que hasta ahora nos regresa solamente una propiedad de la clase, nuestra única propiedad que tenemos ok?
Supongamos pues que tenemos ya mediante cualquier proceso un ID válido para un estudiante, mediante ese ID, podremos saber todas sus propiedades, nombre, apellido, dirección, etc...llamando a nuestro método GetRec de la clase estudiante....
'Instanciamos a nuestra clase
estudiante_id = 15
Set ObjEstudiante = New Estudiante
'Llamamos a nuestro método GetRec
ObjEstudiante.GetRec(estudiante_id)
'Imprimimos el nombre del estudiante
Response.Write ObjEstudiante.Nombre
Y eso es todo, solo necesitaremos tener tantas propiedades como queramos, como ya habíamos mencionado, las propiedades tienen 2 estados, un estado interno y otro externo(m_nombre, nombre), o sea que para cada propiedad necesitas instanciarla como Private variable_interna, necesitas un Get y un Let...checa la asignación de valor a la propiedad dentro de la clase.
Salu2,