super_si

Its being 6months since ive used ADO stuff. I found an old Uni program which use's this printstatement to a form.
Private Sub printFields()

If rsMatch.EOF Then 'If at the end of recordset , terminate program
Unload Form1
rsMatch.Close ' Close the recordsets
dbConnection.Close ' and the connection
Exit Sub
End If

intMatchID = rsMatch("matchID") ' Get the ID for the this match
findSquad ' Find the squad who played in this match

' Print the information to the immediate window
Debug.Print " "
Debug.Print "Match ID: "; rsMatch("matchID")
Debug.Print rsMatch("matchDate")
Debug.Print "Against: "; rsMatch("teamName")
Debug.Print "At: "; rsMatch("venu")
Debug.Print "Referee: "; rsMatch("refereeForename") + " " + rsMatch("refereeSurname")
Debug.Print "Score: " + CStr(rsMatch("us")) + " " + CStr(rsMatch("them"))
Debug.Print "Squad:"

'Loop through the Squads recordset, printing filtered players
Do Until rsSquads.EOF
Debug.Print " "; rsSquads("playerForename"); " "; rsSquads("playerSurname"); " "; rsSquads("goals")
rsSquads.MoveNext
Loop

rsSquads.Close 'Close the Squads recordset again
End Sub

Its printing the info to debug. ive tried txtans.text tried labels.

Im tearing my hair out, whats the correct code to print in either a lable or text box.

Cant do any work till i get this simple thing working!

Cheers

Si

STi-Frenchie

IMHO Debug is of limited use (only for a line or two). Try dumping the data to a text *file* using

Open filename for Output as #n

and then printing the lines to it before

Close #n

closing it. Doing it that way, you'll have a permanent record (excuse the pun) of what's being read in the recordset.

super_si

debugs the example code mate.

I want to get rid the example and put the data in either lables or text boxes.

Just want to get that working, then make a start on my assignment! but ill be bugger if i can remember what i need to put something like

txtans.txt = rsmatch("venu")

or something.....

STi-Frenchie

Isn't the default property for a textbox .text ?

Try just using txtans = rsmatch("venu")

For labels, it should be labelname.caption = rsmatch("venu")

super_si

im well pissed off whats the angry bb code

it was a fooking = i was missing!!!

Cheers matey!! much appreiciated

STi-Frenchie

No problem. Hope the rest of the assignment flows smoothly for ya.

super_si

Come up with another issue, but ill get back to you.

Going to spend a little more trying to figure it out.

Si