arrays

What have you tried? Just loop through the array adding the contents to
some variable. If the arrays hold any substantial amount of data you will
want to get away from string concatenation and use a CopyMemory API method -
will be way too slow with concatenation...

String Builder Class:
<a style='text-decoration: underline;' href="http://www.vbaccelerator.com/home/VB/Code/Techniques/StringBuilder/article.asp" target="_blank">http://www.vbaccelerator.com/home/VB/Code/Techniques/StringBuilder/article.asp</a>

--
Chris Hanscom - Microsoft MVP (VB)
Veign's Resource Center
<a style='text-decoration: underline;' href="http://www.veign.com/vrc_main.asp" target="_blank">http://www.veign.com/vrc_main.asp</a>
--

"Rob" wrote in message

 > is there a way to concatenate the contents of an array (looping through
the
 > array) and storing each item in a comma delimited string?
 >
 > Thanks!
 >
 ><!-- ~MESSAGE_AFTER~ -->
 >> Stay informed about: arrays 

Wart,

I'm still receiving the same results with your code which is similar to
mine:

For myCounter = 0 To myArrayCount - 1
Debug.Print myTestArray(myCounter)
strSQL = " where code = '" & myTestArray(myCounter)
MsgBox strSQL
Next myCounter

The above array contains 2 records based from a sql statement. When I run
the above, strSQL contains the correct data however, when the next myCounter
retrieves the next record, the first record is no longer available. Thus,
trying to concatenate the first to the last record ( the array will never
ever have more than 3 records).

The end results would be a string concatenated in to a sql statement
something like this where "myarrayrecord_#' are the records in the array:

"select * from table1 where code = 'myarrayrecord_1' and code =
'myarrayrecord_2'"

Thanks,
rob

"Wart" wrote in message

 > Rob,
 > Something like
 > Dim liCounter as Integer
 > dim lsString as String
 > for liCounter = LBound(MyArray) to UBound(MyArray)
 > lsString = lsString & MyArray(liCounter)
 > next
 >
 > This assumes that MyArray is a one dimesional array. For N dimension
arrays,
 > just wrap the For Next loop in other For Next loops for the other
 > dimensions.
 >
 > HTH,
 > CF
 >


  > > is there a way to concatenate the contents of an array (looping through
  > > the
  > > array) and storing each item in a comma delimited string?
  > >
  > > Thanks!
  > >
  > >
 >
 ><!-- ~MESSAGE_AFTER~ -->
 >> Stay informed about: arrays 

On Tue, 22 Feb 2005 14:26:09 -0500, "Rob" wrote:

¤ is there a way to concatenate the contents of an array (looping through the
¤ array) and storing each item in a comma delimited string?
¤

How about the Join function?


Paul ~~~ pclement.DeleteThis@ameritech.net
Microsoft MVP (Visual Basic)
 >> Stay informed about: arrays 

doh!...Totally forgot about that one...Thats just too simple<g>

--
Chris Hanscom - Microsoft MVP (VB)
Veign's Resource Center
http://www.veign.com/vrc_main.asp
--

"Paul Clement" wrote in message

> On Tue, 22 Feb 2005 14:26:09 -0500, "Rob" wrote:
>
> ¤ is there a way to concatenate the contents of an array (looping through
the
> ¤ array) and storing each item in a comma delimited string?
> ¤
>
> How about the Join function?
>
>
> Paul ~~~ pclement.DeleteThis@ameritech.net
> Microsoft MVP (Visual Basic)
 >> Stay informed about: arrays 

Rob,
Sorry for the delay -
The key in my code was the lsString = lsString & ...
This takes the current variable value and adds the new element value to it,
thus concatenating the previous element values.
Your example simply replaces the value in the strSQL with the current
myTestArray(myCounter) value without preserving the previous values.
Your code should be something like
For myCounter = 0 To myArrayCount - 1
Debug.Print myTestArray(myCounter)
If strSQL = "" Then
'Initial pass through
strSQL = " where code = '" & myTestArray(myCounter)
else
'Concatenate the next values onto the previous values
strSQL = strSQL & " '" & myTestArray(myCounter)

end if
strSQL = " where code = '" & myTestArray(myCounter)
MsgBox strSQL
Next myCounter

HTH,
CF
"Rob" wrote in message

> Wart,
>
> I'm still receiving the same results with your code which is similar to
> mine:
>
> For myCounter = 0 To myArrayCount - 1
> Debug.Print myTestArray(myCounter)
> strSQL = " where code = '" & myTestArray(myCounter)
> MsgBox strSQL
> Next myCounter
>
> The above array contains 2 records based from a sql statement. When I run
> the above, strSQL contains the correct data however, when the next
> myCounter
> retrieves the next record, the first record is no longer available. Thus,
> trying to concatenate the first to the last record ( the array will never
> ever have more than 3 records).
>
> The end results would be a string concatenated in to a sql statement
> something like this where "myarrayrecord_#' are the records in the array:
>
> "select * from table1 where code = 'myarrayrecord_1' and code =
> 'myarrayrecord_2'"
>
> Thanks,
> rob
>
> "Wart" wrote in message
>
>> Rob,
>> Something like
>> Dim liCounter as Integer
>> dim lsString as String
>> for liCounter = LBound(MyArray) to UBound(MyArray)
>> lsString = lsString & MyArray(liCounter)
>> next
>>
>> This assumes that MyArray is a one dimesional array. For N dimension
> arrays,
>> just wrap the For Next loop in other For Next loops for the other
>> dimensions.
>>
>> HTH,
>> CF
>>
>> "Rob" wrote in message
>>
>> > is there a way to concatenate the contents of an array (looping through
>> > the
>> > array) and storing each item in a comma delimited string?
>> >
>> > Thanks!
>> >
>> >
>>
>>
>
>
 >> Stay informed about: arrays