Join Method Problem

[DracKewl]

Hey All,

I could do this another way but want to know why using the JOIN function
will not work.
Join(sourcearray[, delimiter])

My Code:
Dim test as String
test = Join(gConCatalogue.ConvRS.GetRows(, 1, 0), [,])

What I'm doing is taking all the items from one column in an ADO recordset
and passing it with comma delimited into a string. But this does not work.

Any ideas?

 

[Brendan Reynolds]

The square brackets aren't part of the syntax, they indicate that what's
between them is optional. Try "," instead of [,].

 

[DracKewl]

I get an error:
Can't asign to array.

The square brackets aren't part of the syntax, they indicate that what's
between them is optional. Try "," instead of [,].

--
Brendan Reynolds
Access MVP

Hey All,

I could do this another way but want to know why using the JOIN function
will not work.
Join(sourcearray[, delimiter])

My Code:
Dim test as String
test = Join(gConCatalogue.ConvRS.GetRows(, 1, 0), [,])

What I'm doing is taking all the items from one column in an ADO recordset
and passing it with comma delimited into a string. But this does not
work.

Any ideas?

 

[DracKewl]

Got sick of trying to make it work. Created my own function.
Here is the call
CommaDelString(gConCatalogue.ConvRS.GetRows(, 1, 0),
gConCatalogue.ConvRS.RecordCount)

Private Function CommaDelString(recset As Variant, count As Integer) As String
Dim intCount As Integer
Dim strString As String
intCount = 0
Do
strString = strString & recset(0, intCount) & ","
intCount = intCount + 1
Loop While intCount < (count - 1)

strString = strString & recset(0, intCount)
CommaDelString = strString

End Function

I get an error:
Can't asign to array.

The square brackets aren't part of the syntax, they indicate that what's
between them is optional. Try "," instead of [,].

--
Brendan Reynolds
Access MVP

Hey All,

I could do this another way but want to know why using the JOIN function
will not work.
Join(sourcearray[, delimiter])

My Code:
Dim test as String
test = Join(gConCatalogue.ConvRS.GetRows(, 1, 0), [,])

What I'm doing is taking all the items from one column in an ADO recordset
and passing it with comma delimited into a string. But this does not
work.

Any ideas?