ASP.NET - matriz asp.net?

   
Vista:

matriz asp.net?

Publicado por mauricio (4 intervenciones) el 08/10/2007 04:08:06
hola, tengo 6 textbox y dos botones "agregar" "grabar"

al agregar datos en los text y pulsar el boton agregar me los tiene que guardar en una matriz las veces que se aprete el boton guardar,
pero cuando aprete el boton "grabar" tiene que mandar los datos de la matriz a la tabla de la bdd.

asi declare:

Public matriz(100, 6) As String
Public i As Integer

boton agregar:

i = i + 1
matriz(i, 0) = TextBox11.Text
matriz(i, 1) = TextBox12.Text
matriz(i, 2) = TextBox13.Text
matriz(i, 3) = TextBox14.Text
matriz(i, 4) = TextBox15.Text
matriz(i, 5) = TextBox16.Text

boton grabar "que llama al procedimiento spAgregaDetalle":

cmd = New SqlCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "spAgregaDetalle"
cmd.Connection = cn
Dim da As New SqlDataAdapter
da.InsertCommand = cmd

Dim dsol_numero_solicitud As New SqlParameter("@dsol_numero_solicitud", SqlDbType.VarChar, 50)
Dim dsol_epp As New SqlParameter("@dsol_epp", SqlDbType.VarChar, 50)
Dim dsol_talla As New SqlParameter("@dsol_talla", SqlDbType.VarChar, 50)
Dim dsol_color As New SqlParameter("@dsol_color", SqlDbType.VarChar, 50)
Dim dsol_cantidad As New SqlParameter("@dsol_cantidad", SqlDbType.VarChar, 50)
Dim dsol_estado As New SqlParameter("@dsol_estado", SqlDbType.VarChar, 50)


Try

For i = 1 To UBound(matriz)
Using cn

da.InsertCommand.Parameters.Add(dsol_numero_solici tud)
da.InsertCommand.Parameters(0).Value = matriz(i, 0)
da.InsertCommand.Parameters.Add(dsol_epp)
da.InsertCommand.Parameters(1).Value = matriz(i, 1)
da.InsertCommand.Parameters.Add(dsol_talla)
da.InsertCommand.Parameters(2).Value = matriz(i, 2)

da.InsertCommand.Parameters.Add(dsol_color)
da.InsertCommand.Parameters(3).Value = matriz(i, 3)
da.InsertCommand.Parameters.Add(dsol_cantidad)
da.InsertCommand.Parameters(4).Value = matriz(i, 4)
da.InsertCommand.Parameters.Add(dsol_estado)
da.InsertCommand.Parameters(5).Value = matriz(i, 5)

cn.Open()
da.InsertCommand.ExecuteNonQuery()

da.Dispose()
cmd.Dispose()
End Using

Next

Catch ex As Exception

End Try

pero nose que falla porque no graba hola, tengo 6 textbox y dos botones "agregar" "grabar"

al agregar datos en los text y pulsar el boton agregar me los tiene que guardar en una matriz las veces que se aprete el boton guardar,
pero cuando aprete el boton "grabar" tiene que mandar los datos de la matriz a la tabla de la bdd.

asi declare:

Public matriz(100, 6) As String
Public i As Integer

boton agregar:

i = i + 1
matriz(i, 0) = TextBox11.Text
matriz(i, 1) = TextBox12.Text
matriz(i, 2) = TextBox13.Text
matriz(i, 3) = TextBox14.Text
matriz(i, 4) = TextBox15.Text
matriz(i, 5) = TextBox16.Text

boton grabar "que llama al procedimiento spAgregaDetalle":

cmd = New SqlCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "spAgregaDetalle"
cmd.Connection = cn
Dim da As New SqlDataAdapter
da.InsertCommand = cmd

Dim dsol_numero_solicitud As New SqlParameter("@dsol_numero_solicitud", SqlDbType.VarChar, 50)
Dim dsol_epp As New SqlParameter("@dsol_epp", SqlDbType.VarChar, 50)
Dim dsol_talla As New SqlParameter("@dsol_talla", SqlDbType.VarChar, 50)
Dim dsol_color As New SqlParameter("@dsol_color", SqlDbType.VarChar, 50)
Dim dsol_cantidad As New SqlParameter("@dsol_cantidad", SqlDbType.VarChar, 50)
Dim dsol_estado As New SqlParameter("@dsol_estado", SqlDbType.VarChar, 50)


Try

For i = 1 To UBound(matriz)
Using cn

da.InsertCommand.Parameters.Add(dsol_numero_solici tud)
da.InsertCommand.Parameters(0).Value = matriz(i, 0)
da.InsertCommand.Parameters.Add(dsol_epp)
da.InsertCommand.Parameters(1).Value = matriz(i, 1)
da.InsertCommand.Parameters.Add(dsol_talla)
da.InsertCommand.Parameters(2).Value = matriz(i, 2)

da.InsertCommand.Parameters.Add(dsol_color)
da.InsertCommand.Parameters(3).Value = matriz(i, 3)
da.InsertCommand.Parameters.Add(dsol_cantidad)
da.InsertCommand.Parameters(4).Value = matriz(i, 4)
da.InsertCommand.Parameters.Add(dsol_estado)
da.InsertCommand.Parameters(5).Value = matriz(i, 5)

cn.Open()
da.InsertCommand.ExecuteNonQuery()

da.Dispose()
cmd.Dispose()
End Using

Next

Catch ex As Exception

End Try

pero nose que falla porque no graba
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