Problems with Object Collection 1

[MEGUIA]

Hi

I'm using Visual Basic 6.0 SP5

I'm create it a class named ClsCpy that uses a collection, it's works fine when a filled the collection with data but when I called the object in the same instance doesn't bring the information.

I'm sending the class ClsCpy and the subroutine that I use to fill the collection class at the is an example on how I'm trying to get the information from the collection class.

*********************************************************
Private mvarCPYSRC As String 'local copy
Private mvarCPYDST As String 'local copy
Private mvarFLAG As Boolean 'local copy
Private mvarMvarMap As Collection 'local copy


Public Property Set MvarMap(ByVal vData As Collection)
Set mvarMvarMap = vData
End Property
Public Property Get MvarMap() As Collection
Set MvarMap = mvarMvarMap
End Property
Public Property Let FLAG(ByVal vData As Boolean)
mvarFLAG = vData
End Property
Public Property Get FLAG() As Boolean
FLAG = mvarFLAG
End Property
Public Property Let CPYDST(ByVal vData As String)
mvarCPYDST = vData
End Property
Public Property Get CPYDST() As String
CPYDST = mvarCPYDST
End Property
Public Property Let CPYSRC(ByVal vData As String)
mvarCPYSRC = vData
End Property
Public Property Get CPYSRC() As String
CPYSRC = mvarCPYSRC
End Property

Public Function MapCount() As Integer
MapCount = MvarMap.Count
End Function
Public Function AddMap(Nindex As Integer) As ClSCpy
Dim spkNew As New ClSCpy
MvarMap.Add spkNew, CStr(Nindex)
Set AddMap = spkNew
End Function
Public Sub Remove(Nindex As Integer)
Dim lLast As Long
lLast = MvarMap.Count
MvarMap.Remove CStr(Nindex)
End Sub
Public Property Get Count() As Integer
Count = MvarMap.Count
End Property

Private Sub Class_Initialize()
Set MvarMap = New Collection
End Sub

***SubRoutine that fill's the object collection

Public Sub FillObj()
Dim X As Integer
Dim J As String
Set cn = New ADODB.Connection
With cn
.ConnectionString = "oMapTble"
.CursorLocation = adUseClient
.Open
End With
X = 0
Set objcpy = New ClSCpy
Set rst = New ADODB.Recordset
rst.Open "Select * from tblmap", cn
With rst
Do While Not .EOF
X = X + 1
With objcpy
.AddMap X
.CPYDST = Trim(rst("MMAP&quot)
.CPYSRC = Trim(rst("MMAPD&quot)
.FLAG = rst("MFLAG&quot
End With
.MoveNext
Loop
End With
rst.Close
cn.Close

**************************************************

***Example of how do I retrieve the collection data********
dim x as integer
dim j as string
X = 0

For X = 1 To objcpy.MapCount

J = objcpy.MvarMap(X).CPYDST
Next
End Sub

 

[JohnYingling]

It appears that you do not have
Option Explicit
at the top of the Class Module.
You refer to MvarMap but it is not defined anywhere.
There IS a mvarMvarMap.

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[MEGUIA]

Hi

Yes ther is an Option Explicit and a Private Mvarmap as collection, instaciate it at he class initialize.

Thank You

 

[MEGUIA]

Hi

Yes, there is an Option Explicit and a Private Mvarmap as collection, instaciate it at he class initialize.

Thank You

 

[MEGUIA]

Hi

Yes, there is an Option Explicit and a Private Mvarmap as collection, instaciate it at the class initialize method.

Thank You

 

[JohnYingling]

I saw that.
I saw that.
I saw that.
Private Sub Class_Initialize()
Set MvarMap = New Collection
End Sub

But where is MvarMap defined.
It is not here.
Private mvarCPYSRC As String 'local copy
Private mvarCPYDST As String 'local copy
Private mvarFLAG As Boolean 'local copy
Private mvarMvarMap As Collection 'local copy

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[MEGUIA]

Hi

Sorry for the not ending loop I've created, problems with network.

Yes the "Private mvarMvarMap As Collection 'local copy" it's declared inside the class ClsCpy.

Thank You

 

[JohnYingling]

Please read more carefully.
I see
mvarMvarMap in
Private mvarMvarMap As Collection 'local copy

But where is MvarMap defined for
Set MvarMap = New Collection

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[MEGUIA]

Sorry

In the class named ClsCpy - Class_Initialize.

Example:

Private Sub Class_Initialize()
Set MvarMap = New Collection
End Sub

Thank You

 

[JohnYingling]

You are in a loop.
I did not ask where you SET mvarMap. I asked where mvapmap is defined, as in Private mvarmap as collection. There is none in the code you supplied. If there is one somewhere, there is still a problem because you make references to both mvarmvarmap and mvarmap but they are not the same collection. Perhaps you should pick ONE name and stick with it.

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[MEGUIA]

Sorry,


I saw the problem.

thank you