	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.3

Can't See the Class Properties

Asked by NigelRocks in C# Programming Language, Visual Basic Programming

Tags: Visual Basic 6

Experts,

IN the attached code, I've implemented an interface and I'm not getting any compile errors in the class. However, when I try to access the properties of the class, I can't see them.

Ideas?

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:

           
           
             Option Explicit
 
Implements IClassificationTableInfo
'Implements IClassificationQuery
 
Private msTable As String
Private msTopicLinkTable As String
Private msExtendedTable As String
Private msIDField As String
Private msIDTableField As String
Private msFirstField As String
Private msSecondField As String
Private msSecondTableField As String
Private msFirstTableField As String
Private msecondField As String
Private msecondTableField As String
Private msThirdField As String
Private msThirdTableField As String
Private msTopicToClassificationTable As String
Private msLinkToClass As String
Private msLinkToTopic As String
Private msANDExclusionString As String
Private msOrderByTableField As String
Private msResultSet1 As String
Private msResultSet2 As String
Private msResultSet3 As String
 
 
Public Enum eClassificationQueryNumber
    Query1
    Query2
    Query3
End Enum
Private meQueryNumber As eClassificationQueryNumber
Public Property Get ClassificationQueryNumber() As eClassificationQueryNumber
    ClassificationQueryNumber = meQueryNumber
End Property
Public Property Let ClassificationQuery(ByVal value As eClassificationQueryNumber)
    meQueryNumber = value
End Property
 
'Private meClassificationQuery As geClassificationQuery
 
'Public Property Get ClassificationQuery() As geClassificationQuery
'    ClassificationQuery = meClassificationQuery
'End Property
'Public Property Let ClassificationQuery(ByVal value As geClassificationQuery)
'    meClassificationQuery = value
'End Property
 
 
'************************* IMPLEMENT IClassificationTableInfo INTERFACE ******************************
Private Property Get IClassificationTableInfo_sTable() As String
IClassificationTableInfo_sTable = msTable
End Property
Private Property Let IClassificationTableInfo_sTable(ByVal szTable As String)
msTable = szTable
End Property
 
 
 
Private Property Get IClassificationTableInfo_sTopicLinkTable() As String
    IClassificationTableInfo_sTopicLinkTable = msTopicLinkTable
End Property
Public Property Let IClassificationTableInfo_sTopicLinkTable(ByVal szTopicLinkTable As String)
    msTopicLinkTable = szTopicLinkTable
End Property
 
 
Private Property Get IClassificationTableInfo_sExtendedTable() As String
    IClassificationTableInfo_sExtendedTable = msExtendedTable
End Property
Public Property Let IClassificationTableInfo_sExtendedTable(ByVal szExtendedTable As String)
    msExtendedTable = szExtendedTable
End Property
 
 
Private Property Get IClassificationTableInfo_sIDField() As String
    IClassificationTableInfo_sIDField = msIDField
End Property
Public Property Let IClassificationTableInfo_sIDField(ByVal szIDField As String)
    msIDField = szIDField
End Property
 
 
Private Property Get IClassificationTableInfo_sIDTableField() As String
    IClassificationTableInfo_sIDTableField = msIDTableField
End Property
Public Property Let IClassificationTableInfo_sIDTableField(ByVal szIDTableField As String)
    msIDTableField = szIDTableField
End Property
 
 
Private Property Get IClassificationTableInfo_sFirstField() As String
    IClassificationTableInfo_sFirstField = msFirstField
End Property
Public Property Let IClassificationTableInfo_sFirstField(ByVal szFirstField As String)
    msFirstField = szFirstField
End Property
 
 
 
Private Property Get IClassificationTableInfo_sFirstTableField() As String
    IClassificationTableInfo_sFirstTableField = msFirstTableField
End Property
Public Property Let IClassificationTableInfo_sFirstTableField(ByVal szFirstTableField As String)
    msFirstTableField = szFirstTableField
End Property
 
 
 
Private Property Get IClassificationTableInfo_sSecondField() As String
    IClassificationTableInfo_sSecondField = msecondField
End Property
Public Property Let IClassificationTableInfo_sSecondField(ByVal szSecondField As String)
    msecondField = szSecondField
End Property
 
 
 
Private Property Get IClassificationTableInfo_sSecondTableField() As String
    IClassificationTableInfo_sSecondTableField = msecondTableField
End Property
Public Property Let IClassificationTableInfo_sSecondTableField(ByVal szSecondTableField As String)
    msecondTableField = szSecondTableField
End Property
 
 
 
Private Property Get IClassificationTableInfo_sThirdField() As String
    IClassificationTableInfo_sThirdField = msThirdField
End Property
Public Property Let IClassificationTableInfo_sThirdField(ByVal szThirdField As String)
    msThirdField = szThirdField
End Property
 
 
 
Private Property Get IClassificationTableInfo_sThirdTableField() As String
    IClassificationTableInfo_sThirdTableField = msThirdTableField
End Property
Public Property Let IClassificationTableInfo_sThirdTableField(ByVal szThirdTableField As String)
    msThirdTableField = szThirdTableField
End Property
 
 
Private Property Get IClassificationTableInfo_sTopicToClassificationTable() As String
    IClassificationTableInfo_sTopicToClassificationTable = msTopicToClassificationTable
End Property
Public Property Let IClassificationTableInfo_sTopicToClassificationTable(ByVal szTopicToClassificationTable As String)
    msTopicToClassificationTable = szTopicToClassificationTable
End Property
 
 
Private Property Get IClassificationTableInfo_sLinkToClass() As String
    IClassificationTableInfo_sLinkToClass = msLinkToClass
End Property
Public Property Let IClassificationTableInfo_sLinkToClass(ByVal szLinkToClass As String)
    msLinkToClass = szLinkToClass
End Property
 
 
Private Property Get IClassificationTableInfo_sLinkToTopic() As String
    IClassificationTableInfo_sLinkToTopic = msLinkToTopic
End Property
Public Property Let IClassificationTableInfo_sLinkToTopic(ByVal szLinkToTopic As String)
    msLinkToTopic = szLinkToTopic
End Property
 
 
Private Property Get IClassificationTableInfo_sANDExclusionString() As String
    IClassificationTableInfo_sANDExclusionString = msANDExclusionString
End Property
Public Property Let IClassificationTableInfo_sANDExclusionString(ByVal szANDExclusionString As String)
    msANDExclusionString = szANDExclusionString
End Property
 
 
Private Property Get IClassificationTableInfo_sOrderByTableField() As String
    IClassificationTableInfo_sOrderByTableField = msOrderByTableField
End Property
Public Property Let IClassificationTableInfo_sOrderByTableField(ByVal szOrderByTableField As String)
    msOrderByTableField = szOrderByTableField
End Property
 
 
Private Property Get IClassificationTableInfo_sResultSet1() As String
    IClassificationTableInfo_sResultSet1 = msResultSet1
End Property
Public Property Let IClassificationTableInfo_sResultSet1(ByVal szResultSet1 As String)
    msResultSet1 = szResultSet1
End Property
 
 
Private Property Get IClassificationTableInfo_sResultSet2() As String
    IClassificationTableInfo_sResultSet2 = msResultSet2
End Property
Public Property Let IClassificationTableInfo_sResultSet2(ByVal szResultSet2 As String)
    msResultSet2 = szResultSet2
End Property
 
 
 
Private Property Get IClassificationTableInfo_sResultSet3() As String
    IClassificationTableInfo_sResultSet3 = msResultSet3
End Property
Public Property Let IClassificationTableInfo_sResultSet3(ByVal szResultSet3 As String)
    msResultSet3 = szResultSet3
End Property
'**********************************************************************************************
 
 
 
'************************* IMPLEMENT IClassificationQuery INTERFACE ******************************
'Private Property Get IClassificationQuery_nQuery1() As Integer
'    IClassificationQuery_nQuery1 = mnQuery1
'End Property
'Private Property Let IClassificationQuery_nQuery1(ByVal nzQuery1 As Integer)
'    mnQuery1 = nzQuery1
'End Property
 
'Private Property Get IClassificationQuery_nQuery2() As Integer
'    IClassificationQuery_nQuery2 = mnQuery2
'End Property
'Private Property Let IClassificationQuery_nQuery2(ByVal nzQuery2 As Integer)
'    mnQuery2 = nzQuery2
'End Property
 
'Private Property Get IClassificationQuery_nQuery3() As Integer
'    IClassificationQuery_nQuery3 = mnQuery3
'End Property
'Private Property Let IClassificationQuery_nQuery3(ByVal nzQuery3 As Integer)
'    mnQuery3 = nzQuery3
'End Property
'**********************************************************************************************
 
 
 
 
 
Public Sub Initialize(eClassification As geClassification)
 
    'Intialize the note table info
    'Note table information
    
    Select Case eClassification
    
        Case geClassification.HowTo
        
            msTable = "HowTo"
            msTopicToClassificationTable = "Topics_To_HowTo"
            msIDField = "HowTo_ID"
            msIDTableField = "HowTo.HowTo_ID"
            msFirstField = "Task_Description"
            msFirstTableField = "HowTo.Task_Description"
            msSecondField = "Task_HowTo"
            msSecondTableField = "HowTo.Task_HowTo"
            msTopicToClassificationTable = "Topics_To_HowTo"
            msLinkToClass = "Topics_To_HowTo.HowTo_ID=HowTo.HowTo_ID"
            msLinkToTopic = "Topics_To_HowTo.Topic_ID=Topics.Topic_ID"
            msOrderByTableField = "HowTo.HowTo_ID"
                        
        Case geClassification.Notes
            msTable = "Notes"
            msTopicToClassificationTable = "Topics_To_Notes"
            msIDField = "Note_ID"
            msIDTableField = "Notes.Note_ID"
            msResultSet1 = " Notes.Note_ID,Notes.Note_Category_Description,Notes.Notes_Title,Notes.Notes_Description "
            msFirstField = "Notes_Description"
            msFirstTableField = "Notes.Notes_Description"
            msecondField = "Note_Category_Description"
            msecondTableField = "Notes.Note_Category_Description"
            msThirdField = "Notes_Title"
            msThirdTableField = "Notes.Notes_Title"
            msTopicToClassificationTable = "Topics_To_Notes"
            msLinkToClass = "Topics_To_Notes.Note_ID=Notes.Note_ID"
            msLinkToTopic = "Topics_To_Notes.Topic_ID=Topics.Topic_ID"
            msANDExclusionString = "'DONE', 'TO DO', 'GENERAL NOTES'"
            msOrderByTableField = "Topics.Topic_ID,nc.Note_Category_Description"
            msExtendedTable = "Notes INNER JOIN Note_Categories nc ON nc.Note_Category_ID=Notes.Notes_Category)"
            
        Case geClassification.Troubleshoot
        
            gtTroubleshootTableInfo.sTable = "Problems"
            gtTroubleshootTableInfo.sTopicToClassificationTable = "Topics_To_Problems"
            gtTroubleshootTableInfo.sIDField = "Problem_ID"
            gtTroubleshootTableInfo.sExtendedTable = " (Problems INNER JOIN Solutions ON Solutions.Solutions_Problem_ID = Problems.Problem_ID) "
            gtTroubleshootTableInfo.sIDTableField = "Problems.Problem_ID"
            gtTroubleshootTableInfo.sFirstField = "Problem_Short_Desc"
            gtTroubleshootTableInfo.sFirstTableField = "Problems.Problem_Short_Desc"
            gtTroubleshootTableInfo.sSecondField = "Problem_Description"
            gtTroubleshootTableInfo.sSecondTableField = "Problems.Problem_Description"
            gtTroubleshootTableInfo.sThirdField = "Solution_Description"
            gtTroubleshootTableInfo.sThirdTableField = "Solutions.Solution_Description"
            gtTroubleshootTableInfo.sTopicToClassificationTable = "Topics_To_Problems"
            gtTroubleshootTableInfo.sLinkToClass = "Topics_To_Problems.Problem_ID=Problems.Problem_ID"
            gtTroubleshootTableInfo.sLinkToTopic = "Topics_To_Problems.Topic_ID=Topics.Topic_ID"
            gtTroubleshootTableInfo.sOrderByTableField = "Problems.Problem_ID"
                
        Case geClassification.WhereIsIt
                     
            gtWhereIsItTableInfo.sTable = "WhereIsIt"
            gtWhereIsItTableInfo.sTopicToClassificationTable = "WhereIsIt_To_HowTo"
            gtWhereIsItTableInfo.sIDField = "WhereIsIt_ID"
            gtWhereIsItTableInfo.sIDTableField = "WhereIsIt.WhereIsIt_ID"
            gtWhereIsItTableInfo.sFirstField = "Item"
            gtWhereIsItTableInfo.sFirstTableField = "WhereIsIt.Item"
            gtWhereIsItTableInfo.sSecondField = "Location"
            gtWhereIsItTableInfo.sSecondTableField = "WhereIsIt.Location"
            gtWhereIsItTableInfo.sTopicToClassificationTable = "Topics_To_WhereIsIt"
            gtWhereIsItTableInfo.sLinkToClass = "Topics_To_WhereIsIt.WhereIsIt_ID=WhereIsIt.WhereIsIt_ID"
            gtWhereIsItTableInfo.sLinkToTopic = "Topics_To_WhereIsIt.Topic_ID=Topics.Topic_ID"
            gtWhereIsItTableInfo.sOrderByTableField = "WhereIsIt.WhereIsIt_ID"
                     
             
    End Select
 
End Sub
 
 
Public Function sGetClassificationQuery(eClassifiaction As geClassification, eClassificationQuery As geClassificationQuery) As String
 
    Dim sSQL As String
 
    Select Case eClassificationQuery
        
        Case geClassificationQuery.HowToQuery1
            sSQL = "SELECT HowTo.HowTo_ID,HowTo.Task_Description,HowTo.Task_HowTo "
            sSQL = " FROM HowTo "
        Case geClassificationQuery.NoteQuery1
            sSQL = "SELECT Notes.Note_ID,Note_Categories.Note_Category_Description,Notes.Notes_Title,Notes.Notes_Description "
            sSQL = sSQL & " FROM Notes "
            sSQL = sSQL & " INNER JOIN Note_Categories ON Note_Categories.Note_Category_ID=Notes.Note_Category "
            'bc2
    
    End Select
 
 
End Function
 
'bc1
Public Function rsGetClassificationRecordset(eClassification As geClassification, meClassificationQuery) As Recordset
'bc1
    Dim sSQL As String
    Dim rs As Recordset
 
    Select Case eClassificationQuery
        
        Case geClassificationQuery.HowToQuery1
            sSQL = "SELECT HowTo.HowTo_ID,HowTo.Task_Description,HowTo.Task_HowTo "
            sSQL = " FROM HowTo "
        Case geClassificationQuery.NoteQuery1
            sSQL = "SELECT Notes.Note_ID,Note_Categories.Note_Category_Description,Notes.Notes_Title,Notes.Notes_Description "
            sSQL = sSQL & " FROM Notes "
            sSQL = sSQL & " INNER JOIN Note_Categories ON Note_Categories.Note_Category_ID=Notes.Note_Category "
            'bc2
    
    End Select
 
    Set rs = gdbKnowledgeTracker.OpenRecordset(sSQL)
    Set rsGetClassificationRecordset = rs
    
 
End Function

           
         

	Title
1	Strange error compiling a class at runtime
2	Accessing class properties
3	Abstract class and interface
4	Testing Circular Array Queue Implemen…
5	What are conditions for static members…
6	Comparing Identical classes & passing…

Can't See the Class Properties

Asked by NigelRocks in C# Programming Language, Visual Basic Programming

Tags: Visual Basic 6

About this solution