Invalid Use Of Property Problem

[darrel]

hin there i hope someone can tell what i been doing wrong with my program, my program is this i want to display all my database records in a text box e.i text3(0) to (15), it seems the connection doesnt have any problem. but whenever i run my program an error pop up to indicating "INVALID USE OF PROPERTY" what is this..

This is my code:

 
Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim x As Integer
Dim strsql As String
Dim strconn As String
 
'Database Connection__________________________________________________
Set cnn = New ADODB.Connection
cnn.ConnectionString = _
 "Provider=Microsoft.Jet.OLEDB.3.51;" & _
          "Data Source=" & App.Path & "\dbTimeScheduling2.mdb;"
cnn.Open strconn
'Database Connection____________________________________________________
 
'Subject Codes
 
 strsqql = "SELECT * from SUBJECTS WHERE Primary ID 'ABA0101**'"
 Set rs = New ADODB.Recordset
 rs.MaxRecords = 1
 rs.Open strsql, conn, adOpenDynamic, adLockOptimistic
 
    While rs.EOF <> True
        For x = 0 To 15 Step 1
            Text3(x).Text rs.Fields("SUBJECT CODES").Value
 
         rs.MoveNext
        Next x
    Wend
 
End Sub
 
 

I hope some body can figure out what is wrong with my program. Thank you very much...

[Killer42]

I'm not sure whether it's the cause of your problem, but I believe I can see at least two places where you've left out an equals sign. Unless there's something wrong with the way the code was copied into your post, I suppose.

You didn't tell us exactly where the problem is reported, or what version of VB you're using. Though judging by the control array, I'd say VB6. Anyway, these are the two lines which immediately caught my attention, each followed by what I think they should look like...

SELECT * from SUBJECTS WHERE Primary ID 'ABA0101**'
SELECT * from SUBJECTS WHERE PrimaryID = 'ABA0101**'
 
Text3(x).Text rs.Fields("SUBJECT CODES").Value
Text3(x).Text = rs.Fields("SUBJECT CODES").Value

(Note the underline showing where I also removed a space.)

One more thing - are those asterisks actually part of the value, or are they supposed to represent a wildcard - that is, a position where you don't know the exact characters?

[Tig201]

Just thought I’d mention that if your table or field names contain spaces you need to enclose them in bracket

SELECT * from SUBJECTS WHERE [Primary ID] = 'ABA0101**'

[darrel]

Thank you for entertaining my question am getting the error in this area of my code:

 
Text3(x).Text rs.Field ("SUBJECT CODES").Value
 
 

To be specific the ".Text" area is the highlighted one.
I'am going to try the one you have said..

Ill keep you posted..

Again Thank you..

[darrel]

Mr. Killer ive tried all what have you said but it doesnt change anything, i still recieve th INAVALID USE OF PROPERTY...

I dont know y???

Can you help me with, i figured out the my code that i dont have the word "LIKE" ive tried it, but it doesnt change anything..


Hope you can figure out the problem. Thank you in advance.

[danp129]

Repost your current code, note the line you're having trouble executing again, and a sample record that is in your database that you would expect to have been found by your SQL query.

[danp129]

Quote

Hi there, good day! i need some help in displaying my records,,, my assignment is i have to display a database records in a labels.

Disregard my last post, I didn't realize this was homework.

[Killer42]

Ok, I think we need to clarify exactly what is going on, rather than just relying on what it looks like.

• Is this VB6?
• Is Text3 an array of TextBox controls?
• Which time around the loop does the error occur? Or, to put it another way, what is the value of x?
• Is this line copied exactly as it was in your code?
  Text3(x).Text rs.Field ("SUBJECT CODES").Value
  Because as far as I can tell, it doesn't mean anything. It simply lists a control property and a database field, without saying what to do with them. I'm sure there should be an assignment (=) between them.
• A fundamental rule of debugging - simplify!
  Is it the textbox or the database field which is causing the problem? It sounds like the textbox, so get rid of the database field until you've made sure. Copy the line, comment out the original, and change the new one to something like
  Text3(x).Text = "A"
  Then see what happens at that point.
• If you haven't already, learn to use the debugging facilities provded by the IDE (Integrated Development Environment, I think that is). These allow you to interrupt the code, step through it one statement at a time, examine and change variable values on the fly, etc.
• Is this a homework/classwork assignment?
  (Dan, don't worry about it. We're happy to help people to debug and understand their code for homework assignments, as long as they are making a real effort to do the work themselves. The problem is when people just paste assignment questions here and expect us to answer them.)

[danp129]

Yes but most (but not all) of the time I don't have the patience to be a teacher and teach best concepts and practices. I don't mean to push him away but the question I asked was relevant to what I wanted to know to help, and after figuring out it was homework, I didn't want him to post what I asked him for and then not continue to help.

I like to help out and your post above was great help for a student because he can learn from it, you didn't just fix the problem. But I don't have *that* much patience.

[darrel]

Yes my program is in VB6.
Yes! Text3(x).Text is a control array.
Yes! its a database field, and that is my problem.
It is a work project not a class home work.

[Killer42]

Yes but most (but not all) of the time I don't have the patience to be a teacher and teach best concepts and practices. I don't mean to push him away but the question I asked was relevant to what I wanted to know to help, and after figuring out it was homework, I didn't want him to post what I asked him for and then not continue to help.

I like to help out and your post above was great help for a student because he can learn from it, you didn't just fix the problem. But I don't have *that* much patience.

Fair enough. I just thought you were concerned about the site's homework policy or something.

I've got patience "in spades". :)

[danp129]

Well I did also have a slight thought of it being against policy too if it matters :P

Darrel
Anyhow I had thought that if you wanted to use a wildcard through ODBC to access you had to use %, and that the * only worked inside of access... I can't remember and it's getting to late for me to test it (which I was going to earlier) but that's the reason I wanted a sample record to know what you was trying to match. I also wanted the current code cause I don't know what all you tried from previous people's posts. I'm sorry I assumed it was for school but it appeared to be.

[feli]

Private Sub Command1_Click()
    Label2.Visible
End Sub
 

this shows invalid use of property when the button is clicked