insertar datos en gridview desde textbox

[gian2051]

Mmmm veamos.. si entendi bien lo que quieres hacer es repetir la ejecucion de un comando Sql (claro desde el vb.net) . puedes usar una sentencia repetitiva for o while pero prefiero for. aqui te manod un pequeño codigo que use para un proyecto del insti.

Espero que te sirva px sino enviam un msj numax

Imports System.Data.SqlClient
Public Class multicodigo
Public cadena As String = "Data Source=.;Initial Catalog=Almacen;Integrated Security=True"
Dim cn As New SqlConnection(cadena)
Dim val(13) As Boolean

Sub bloquearmenu()
With principal
.mantenimiento.Visible = val(1)
.almacen.Visible = val(2)
.ventas.Visible = val(3)
.Devoluciones.Visible = val(4)
.mpersonal.Visible = val(5)
.cliente.Visible = val(6)
.Proveedores.Visible = val(7)
.Mercaderia.Visible = val(8)
.Facturacion.Visible = val(9)
.Salidas.Visible = val(10)
.Ingresos.Visible = val(11)
.deven.Visible = val(12)
.deprov.Visible = val(13)
End With

End Sub

Public Sub llenarpermiso(ByVal m As String)
Dim col(13) As String
col(1) = "mantenimiento"
col(2) = "mpersonal"
col(3) = "mcliente"
col(4) = "mproveedores"
col(5) = "mercaderia"
col(6) = "almacen"
col(7) = "adevoluciones"
col(8) = "afacturacion"
col(9) = "asalidas"
col(10) = "aingresos"
col(11) = "ventas"
col(12) = "adevolven"
col(13) = "adevolcom"

Dim cmd As New SqlCommand
Dim i As Integer
cmd.Connection = cn
Try
'abrir coneccion No hya falta que lo diga claro XD
cn.Open()
'sentencia de repeticion que comienza en 1 y termina en 13 es decir se va a repetir 13 veces
For i = 1 To 13
cmd.CommandText = "select " & col(i) & " from area_y_permisos where narea='" & _
m & "'"
If cmd.ExecuteScalar = 1 Then
val(i) = True
Else
val(i) = False
End If
Next
Call bloquearmenu()
Catch ex As Exception
MsgBox("Error en la coneccion")
Finally
If cn.State = ConnectionState.Open Then
cn.Close()
End If
End Try

End Sub
End Class