Visual Basic - Insertar valores que me da la funcion split en BD

Life is soft - evento anual de software empresarial
   
Vista:

Insertar valores que me da la funcion split en BD

Publicado por ZeroX (2 intervenciones) el 31/12/2014 00:24:17
Tengo lo siguiente:

1
2
3
4
5
6
7
8
9
10
11
Dim strArr() As String
Dim strArr2() As String
Dim contador, contador2 As Integer
 
strArr = str.Split(";")
For contador = 0 To strArr.Length - 1
	strArr2 = strArr(contador).Split("|")
	For contador2 = 0 To strArr2.Length - 1
		MsgBox(strArr2(contador2))
	Next
Next

La cadena de entrada me separa bien los campos por pipes
Mi duda es como puedo guardar cada valor en una variable para desp insertarlo en la BD?

son 3 campos distintos osea 3 variables las que ocupo

Nota: es parte de un webservice

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Insertar valores que me da la funcion split en BD

Publicado por Juan Gilberto (278 intervenciones) el 31/12/2014 19:51:16
Ya estan guardados en variables
Estan en el arreglo strArr2()
Y estas desplegando los valores en el For-Next
Puedes hacer con esos valores lo que tu deseas... por ejemplo, guardar esos datos en campos de una tabla de una base de datos...

Ahora, que si lo que quieres es manipular cada uno de los elementos de ese arreglo, es:

Campo0 = strArr2(0)
Campo1 = strArr2(1)
Campo2 = strArr2(2)

claro que tendrias que declarar las variables Campo0...1...2 o cualquiera que usaras
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Insertar valores que me da la funcion split en BD

Publicado por ZeroX (2 intervenciones) el 02/01/2015 15:50:32
Gracias

Si lo obtuve de esa forma, ahora me falta insertarlos en BD que me da un error "La tabla 0 no se encuentra" algo asi este es el codigo que tengo para el store procedure:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Function SP_Detalle(campo As String, campo2 As String, campo3 As String) As DataTable
       'conexion a BD
 
        Dim sqlCommand As New SqlCommand
        Dim sqlDataAdapter As SqlDataAdapter
        Dim ds As New DataSet
        Dim conexion As SqlConnection = New SqlConnection(BaseDts)
 
        sqlCommand.Connection = conexion
        sqlCommand.CommandText = "App_Inserta_Detalle_Matriculas"
        sqlCommand.CommandType = CommandType.StoredProcedure
 
        sqlCommand.Parameters.Add("@Matricula", SqlDbType.VarChar)
        sqlCommand.Parameters.Add("@FechaLlegada", SqlDbType.VarChar)
        sqlCommand.Parameters.Add("@PesoProgramado", SqlDbType.VarChar)
 
        sqlCommand.Parameters.Item(0).Value = campo
        sqlCommand.Parameters.Item(1).Value = campo2
        sqlCommand.Parameters.Item(2).Value = campo3
 
 
        sqlCommand.Connection.Open()
        sqlDataAdapter = New SqlDataAdapter(sqlCommand)
        sqlDataAdapter.Fill(ds)
        sqlCommand.Connection.Close()
 
        Return ds.Tables(0)
    End Function

Saludos espero puedas ayudarme con este codigo ya que solo me falta eso

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Insertar valores que me da la funcion split en BD

Publicado por Andres Leonardo (702 intervenciones) el 06/01/2015 15:05:04
A mi me parece que el Store procedure

App_Inserta_Detalle_Matriculas

En tu base de datos tiene error de sitaxis ... no es en el codigo ... es el tema del SP .... envia el codigo del SP para verlo...

Saludos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar