Almacenar datos de variable con pipe"|"

[yamiblancoc]

Buenas Tarde, tengo el siguiente codigo

Código:

   Dim x As Long
   Dim y As Long
   Dim monto As Single
   Dim Partida As Double
   Dim cmd As New Command
   Dim consulta As New Recordset
      
    For x = 1 To MSFlexGrid1.Rows - 1
       With MSFlexGrid1
           If Trim(.TextMatrix(x, 3)) <> "" Then
               monto = CDbl(.TextMatrix(x, 3))
           End If
           If Trim(.TextMatrix(x, 4)) <> "" Then
               monto = CDbl(.TextMatrix(x, 4))
           End If
       End With
    Next x

eso es una seria de valores que yo introduzco en mi software a traves de un grill, por ejemplo 123, 1234, 987,....,n

pero esos valores necesito guardarlos en una variable para luego guardarlo en sql, y me dijeron que lo podia hacer por medio con concatenación, y sinceramente no se como hacerlo, el deberia guardarse de la siguiente manera

monto=123|1234|987|...|n

alguien podra ayudarme

[Kruzado]

reemplaza tus if por esto

If Trim(.TextMatrix(x, 3)) <> "" Then
monto = monto & "|" & .TextMatrix(x, 3)
End If
If Trim(.TextMatrix(x, 4)) <> "" Then
monto = monto & "|" & .TextMatrix(x, 4)
End If


monto tiene que ser una variable tipo string, para poder concatenarla

para concatenar dos variables lo haces con el signo &

[yamiblancoc]

si buenisimo.... muchisimas gracias... ahora un preguntica yo esos valores debo llevarlos a una tabla temporal en sql como hago para leer esos valores que esta concatenado, con charindex?