OOP ASP question

LAYGO · #1 (**permalink**) November 10th, 2009, 03:25 PM

I'm working on a class and I'm curious about setting properties values.

I'm just getting started in OOP and I'm using some online examples. I've been able to successfully incorporate 2 main classes into my application.

I'm curious about how to make this work or possibly a different method:

Code:

Public Class Foo
    Private privID
    Private privName
    
    Private Sub Class_Initialize()
        ' granted the pID isn't set yet, but maybe define another method to get it
        ' this was all just flying by the seat of my pants
        Call mGetName
    End Sub
    
    Public Property Get pID
        pID = privID
    End Property
    Public Property Let pID(value)
        privID = value
    End Property
    
    Public Property pName
        pName = privName
    End Property
    
    Private Sub mGetName
        ' some query here WHERE ID = pID
        privName = [query results]
    End Sub
End Class

Dim cFoo, Name
Set cFoo = New Foo
cFoo.pID = (Form/QueryString/Session)
Name = cFoo.pName

<%= cFoo.pName %>

Versus this idea:

Code:

Public Class Foo
    Private privName
    
    Public Property Get pName
        pName = privName
    End Property
    Public Property Let pName(value)
        privName = value
    End Property
    
    Private Function mGetName(value)
        ' some query here WHERE ID = value
        mGetName = [query results]
    End Function
End Class

Dim cFoo, Name
Set cFoo = New Foo
cFoo.pName = cFoo.mGetName(Form/QueryString/Session)

<%= cFoo.pName %>

Any advantage of one technique over the other? I'd imagine there are even other techniques.

Any insight is appreciated.

LAYGO · #2 (**permalink**) November 10th, 2009, 03:32 PM

I guess writing all that out & thinking about it more, the 2nd technique seems much more compact.

The one question I had (that I failed to ask) is how would a method define a property or several properties?

Code:

Public Class Foo
    Property p1
    Property p2
    ....
    Property pN
    
    Private Sub Class_Initialize()
        Call mGetProperties
    End Sub
    
    Private Sub mGetProperties
        ' query to get the data
        p1 = row1,col1
        p2 = row1,col2
        p3 = row1,col3
        .....
        pN = rowN,colX
    End Sub
End Class

Need to download code?

Navigation