Visual Basic - Solo para Genios Programadores (Insert Into)

Life is soft - evento anual de software empresarial
   
Vista:

Solo para Genios Programadores (Insert Into)

Publicado por marce (21 intervenciones) el 10/06/2011 16:15:43
Buenas, realmente solo un genio creo que puede ayudarme a resolver esto...

Tengo una Formulario de Factura con varios TextBox Ej:


Codigo1 Descrip1 Costo1 Vendido 1 (estos son los textbox del primer renglon)

Codigo2 Descrip2 Costo2 Vendido 2 (estos son los textbox del 2do renglon)

Codigo3 Descrip3 Costo3 Vendido 3 (estos son los textbox del tercer renglon)

Cuando el usuario presiona grabar en un boton, tengo el siguiente codigo:


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Factura\Articulos.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
strsql3 = "Insert Into CONSUMOS (cod_art, descrip_art, costo_art, cantidad)"
strsql3 = strsql3 & "Select codigo1, descrip1, costo1, vendido1 from factura IN C:\Factura\consumo.mdb"
rs.Open strsql3, cn
cn.Close
Set cn = Nothing

Esto funciona Perfecto....! pero solo me graba los datos del Renglón 1 (codigo1, descrip1 etc)
Como puedo hacer para que me registre en la tabla consumos todos los rennglones de la factura?
Con un bucle..? como...? Por favor...podrian ayudarme?
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

Solo para Genios Programadores (Insert Into)

Publicado por alfonso (66 intervenciones) el 24/06/2011 09:52:06
viejo no te puedo explicar eso por una ventana tan chica agregame a msn y te enseño

ingemedia@live.com
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