Desconcatenar!

[Kitty_05]

Hola!!

Amigos gracias por la ayuda hasta el momento ahora tengo una duda...

Por ejemplo tengo 5 text
text1
text2
text3
text4
text5

Si a eso text les escribo informacion y la guardo en la base de datos concatenados, luego si kiero solo mostrarlos "desconcatenados" como se hace :(

Nada de lo capturado en esos text sera mi criterio de busqueda realmente, asi que no me preocupa.
La situacion es q quiero que luego cuando haga una busqueda pueda mostrarlo separado no un solo campo.

No se si me explique..
Alguien me ayuda?
Gracias

[Avellaneda]

Hola!!

Eso depende de cómo los guardes en la base de datos, si los guardas sin separador

text1text2text3text4text5

veo muy dificil que después puedas recuperar los datos por separado ( ano ser que la longitus de cada TextBox sea exactamente igual), pero si los guardas con un separador (coma, dos puntos, espacio.. etc)

text1,text2,text3,text4,text5

los puedes recuperar utilizando la función Split.

[Kitty_05]

Si pretendo guardarlo usando "," o espacio.

Como funciona el split??

Me guias? gracias eres un sol

[Avellaneda]

Mira el ejemplo, suponemos que la variable "s" es el campo donde guardaste los TextBox separados por comas:

Código:

Private Sub Command1_Click()
Dim s As String
s = "text1,text2,text3,text4,text5"
Dim a() As String
a = Split(s, ",")
For i = LBound(a) To UBound(a)
    List1.AddItem a(i)
Next i
End Sub

a = Split(s, " ")

Si los separaste con espacios sólo sustituye esta línea de código

[Kitty_05]

digamo q en lugar de colocarlo en un listbox kiero colocarlo cada linea nuevamente en su text ??¡

[David]

Iniciado por Kitty_05

digamo q en lugar de colocarlo en un listbox kiero colocarlo cada linea nuevamente en su text ??¡

Creo que sería más práctico en ese caso tener TextBox indexados...

[Avellaneda]

A ver así:

Código:

a = Split(s, ",")
Text1 = a(0)
Text2 = a(1)
Text3 = a(2)
' ....  etc

[Kitty_05]

Disculpa si molesto pero no entendi lo ultimo que quisiste decirme ... :(

[David]

Iniciado por Kitty_05

Disculpa si molesto pero no entendi lo ultimo que quisiste decirme ... :(

Puedes seguir el ejemplo que te puso Avellaneda...

Código:

 
Text1 = a(0)
'... etc.

Creo que eso entendiste...

Lo que te quise decir es que sería más práctico usar TextBox indexados, pues así podrías crear un bucle For que recorra cada Text...

Código:

 
For Looping = 0 To Text1.Count - 1
      Text1(Looping) = a(Looping)
Next Looping

[Kitty_05]

Mi idea es la siguiente te explico

Private Sub CmdGuardar_Click()

Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from datos", BD, adOpenStatic, adLockOptimistic

RecSQL.AddNew
RecSQL.Fields(1).Value = Text1 & " " & Text2 & " " & Text3 & " " & Text4 & " " & Text5 & " "
RecSQL.Update
RecSQL.Close
Set RecSQL = Nothing

End Sub

Private Sub CmdMostrar_Click()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from datos", BD, adOpenStatic, adLockOptimistic
---- HASTA AQUI PUEDO ABRIR LA BASE DE DATOS -----
Luego com hago para mostrar por separado todo lo que esta en el
RecSQL.Fields(1)

End Sub

[seba123neo]

Hola,o sea primero lo guardas en el campo de la base de datos todo concatenado:

Código:

Private Sub Command1_Click()
Dim s As String, a() As String
s = Text1(0) & "," & Text1(1) & "," & Text1(2) & "," & Text1(3) & "," & Text1(4)
a = Split(s, ",")
End Sub

y despues para desconcatenarlo usas los index de los textbox para acceder tambien al indice de la matriz guardada,y asi mostrar cada dato de la matriz en su correspondiente textbox...

Código:

For i = LBound(a) To UBound(a)
Text1(i) = a(i)
Next i

saludos.

[Kitty_05]

Perdon por ser tan cabeza dura pero no comprendo ..... :( entiendo perfectamente como guardarlos juntos todos ...
lo coloque

RecSQL.Fields(1) = Text1 & " " & Text2 & " " & Text3 & " " & Text4 & " " & Text5
a = Split(s, ",") no comprendo porq m as bien..

luego si kiero buscar tendria q indexar la buskeda no comprendo bien esa parte

y lo hizo sin mayor problema
no comprendo donde podria--

For i = LBound(a) To UBound(a)
Text1(i) = a(i)
Next i

[seba123neo]

jeje bueno,a ver primero tenes que tener en tu formulario una matriz de textbox creada de 5 elementos.o sea text1(0),text1(1)....text1(4).

despues vos escribis los datos en los textbox y los guardas concatenados por un simbolo por ejemplo la ","

Código:

RecSQL.Fields(1).Value = Text1(0) & "," & Text1(1) & "," & Text1(2) & "," & Text1(3) & "," & Text1(4)

y despues guardas en una matriz los datos...

Código:

a = Split(s, ",")

con eso lo guardas..

despues para mostrar,los datos en su correspondiente textbox:

Código:

For i = LBound(a) To UBound(a)
Text1(i) = a(i)
Next i

mas explicado que eso no puedo jeje.

saludos.

[Kitty_05]

Jajjajajajaj

Disculpa gracias lo voy a intentar como lo pones...
a eso debo ponerle un for?

[Kitty_05]

i = LBound(a) To UBound(a) -------------------------------> que significan estos dos parametros lbound y ubound

[Avellaneda]

Inicio y final de los elementos de la matriz.

o primero y último

un saludo

[Kitty_05]

Ademas intente guardar
RecSQL.Fields(1).Value = Text1(0) & "," & Text1(1) & "," & Text1(2) & "," & Text1 y me mando error

[David]

Iniciado por Kitty_05

Ademas intente guardar
RecSQL.Fields(1).Value = Text1(0) & "," & Text1(1) & "," & Text1(2) & "," & Text1 y me mando error

Donde colocas Text1 sin un elemento de matriz está mal...

[Kitty_05]

Mi sentencia es la siguiente

Código:

RecSQL.Open "select * from provs", BD, adOpenStatic, adLockOptimistic
RecSQL.AddNew
RecSQL.Fields(1).Value = Text1(0) & " " & Text2(1) & " " & Text3(2) & " " & Text4(3) & " " & Text5(4) & " " & Text6(5) & " " & Text7(6) & " " & Text8(7) & " " & Text9(8) & " " & Text10(9) & " " & Text11.Text & " " & Text12.Text
a = Split(s, " ")

me manda error no logro guardarlo ....

[David]

Iniciado por Kitty_05

Mi sentencia es la siguiente

Código:

RecSQL.Open "select * from provs", BD, adOpenStatic, adLockOptimistic
RecSQL.AddNew
RecSQL.Fields(1).Value = Text1(0) & " " & Text2(1) & " " & Text3(2) & " " & Text4(3) & " " & Text5(4) & " " & Text6(5) & " " & Text7(6) & " " & Text8(7) & " " & Text9(8) & " " & Text10(9) & " " & Text11.Text & " " & Text12.Text
a = Split(s, " ")

me manda error no logro guardarlo ....

La forma como colocas los TextBox está mal. Debería ser:

Código:

 
Text1(0) & Text1(1) & Text1(2) ' y así sucesivamente

¿Cuál es el error que manda?

[Kitty_05]

Y si no le pongo q su separador sera el " " como hago para desconcatenarlo :(

[David]

Iniciado por Kitty_05

Y si no le pongo q su separador sera el " " como hago para desconcatenarlo :(

El separador es lo de menos (a no ser que dentro de lo escrito en el TextBox haya un carácter igual). Sólo debes colocar en el Split el carácter que usas como separador...

P.S.: Creo que sería bueno que puedas entender qué es lo que hace el código, así no tendrás problemas para programar cosas más complicadas...

[Kitty_05]

Gracias de todo eres muyyyy amable al aclarar mis dudas...

[Kitty_05]

David disculpa la pregunta ,... pero si uso a = split (s, ",") debo declarar "a" como array cierto ? ...
ese array tendra dimensiones?

[David]

Iniciado por Kitty_05

David disculpa la pregunta ,... pero si uso a = split (s, ",") debo declarar "a" como array cierto ? ...
ese array tendra dimensiones?

Sí, debes declararlo como array:

Código:

 
Dim a() As String

Puedes declararlo sin dimensiones...

[carlosdanielmou]

hola kitty, la variable a deve ser un array de string y ese array se llena despues que se ejecuta el split lo que produce que el array se redimensione y en cada posicion se guarde un valor de tipo string que sera el resultado de la operacion
ej
dim a as string="1?2?3?4"
dim s() as string
s=split(a,"?")
el resultado es el siguiente:
s(0)=1
s(1)=2
s(2)=3
s(3)=4

[Kitty_05]

Te muestro mi codigo no logro hacer que funcione :( ... me manda error apenas le doy click al boton :(

Código:

Private Sub Command2_Click()
Dim BD As ADODB.Connection
Dim RecSQL As ADODB.Recordset
Dim a() As String, s As String, x() As String, y As String

Set BD = CONECTAR()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from provs", BD, adOpenStatic, adLockOptimistic
RecSQL.AddNew
RecSQL.Fields(1).Value = Text1.Text(0) & Text2.Text(1) & Text3.Text(2) & Text4.Text(3) & Text5.Text(4) & Text6.Text(5) & Text7.Text(6) & Text8.Text(7) & Text9.Text(8) & Text10.Text(9)
s = RecSQL.Fields(1).Value
a = Split(s, ",")

RecSQL.Fields(2).Value = Text14.Text(0) & Text15.Text(1) & Text16.Text(2) & Text17.Text(3) & Text18.Text(4) & Text19.Text(5) & Text20.Text(6) & Text21.Text(7) & Text22.Text(8) & Text23.Text(9) & Text24.Text(10)
x = RecSQL.Fields(2).Value
y = Split(x, ",")

RecSQL.Fields(4).Value = Text30.Text
RecSQL.Fields(5).Value = Text31.Text
RecSQL.Fields(3).Value = Text26.Text

RecSQL.Update
RecSQL.Close
Set RecSQL = Nothing

End Sub

[David]

¿Cuál es el error y en qué linea?

[seba123neo]

fijate bien,estas haciendo un split "," a una cadena que no esta concatenada con el "," te falto poner el "," entre cada textbox........y aparte esta mal puesto,no se escribe Text1.Text(0),se escribe Text1(0).Text...