trouble with vb class obj return 1

[butchkmd]

I am making a function in a class to return 2 fields from a table in SQL 7 this is the code

Public Function GetReCurChgs(strCustno As String) As String

Dim rsTemp As ADODB.Recordset

Set rsTemp = New ADODB.Recordset

rsTemp.Open "select chg_desc,chg_amt from rcufil where
acct ='" & strCustno & "'", _
CN, adOpenStatic, adLockReadOnly

Do While Not rsTemp.EOF
GetReCurChgs = Trim(GetReCurChgs) & vbNewLine
rsTemp.MoveNext
Loop

rsTemp.Close

Set rsTemp = Nothing

End Function


the trouble is all that returns is blanks in quotes (actually squares show in the debugger) I know the field names are right and the data is there... any suggestions?

 

[Schroeder]

All you're doing is adding a vbNewLine character to GetReCurChgs for every record returned. You never actually added the contents of the records to the string. Those boxes are the debugger's interpretation of vbNewLine characters.
Try this:
Do While Not rsTemp.EOF
GetReCurChgs = rsTemp.Fields("chg_desc&quot & vbNewLine
rsTemp.MoveNext
Loop

Maybe you wanted both fields to be added... either way, just don't forget to actually write the field to your string.

 

[Schroeder]

Oops.
Make that:
Do While Not rsTemp.EOF
GetReCurChgs = GetReCurChgs & rsTemp.Fields("chg_desc&quot & vbNewLine
rsTemp.MoveNext


plus it looks like you do want both fields.. maybe put a delimiter between them or something.
GetReCurChgs = GetReCurChgs & rsTemp.Fields("chg_desc&quot & "," & rsTemp.Fields("chg_amt&quot & vbNewLine

 

[butchkmd]

worked out great thanks very much!