Visual Basic - pasar datos de un MSFlexGrid1 a una tabla

Life is soft - evento anual de software empresarial
 
Vista:

pasar datos de un MSFlexGrid1 a una tabla

Publicado por Emanuel Lopez (45 intervenciones) el 13/12/2006 14:58:19
como puedo pasar los datos de un MSFlexGrid1 a una tabla que esta contenida en una BD??

si alguien me puede ayudar mil 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

RE:pasar datos de un MSFlexGrid1 a una tabla

Publicado por manuel silva (8 intervenciones) el 20/02/2007 22:25:25
aqui te paso q hice
Public Sub salvar_detalle()
Dim i As Integer
Dim um, campo, ab, TE, fp, vo As String

comcotiza2.ActiveConnection = con
conecta_clie
TE = "10 dias"
fp = "cheque"
vo = "10 dias"
ab = "solo"
um = "1"
For i = 1 To MSF_detalle_coti.Rows - 1

lblitem.Caption = MSF_detalle_coti.TextMatrix(i, 0)
lblcantidad.Caption = MSF_detalle_coti.TextMatrix(i, 1)
lbluni.Caption = MSF_detalle_coti.TextMatrix(i, 2)
lblconcepto.Caption = MSF_detalle_coti.TextMatrix(i, 3)
lblpu.Caption = MSF_detalle_coti.TextMatrix(i, 4)
lbltot.Caption = MSF_detalle_coti.TextMatrix(i, 5)

'comcotiza2.CommandText = "insert into detalle(cod_detalle,item,cantidad,u_m,concepto,p_unitario,total,tiempo_entrega,forma_pago,validez_oferta)values('" & lblcod_deta.Caption & "','" & lblitem.Caption & "','" & lblcantidad.Caption & "','" & um & "','" & lblconcepto.Caption & "','" & CCur(lblpu.Caption) & "','" & CCur(lbltot.Caption) & "','" & te & "','" & fp & "','" & vo & "')"
comcotiza2.CommandText = "insert into detalle(cod_detalle,item,cantidad,u_m,concepto,p_unitario,total,cod_concepto)values('" & lblcod_deta.Caption & "','" & lblitem.Caption & "','" & lblcantidad.Caption & "','" & um & "','" & lblconcepto.Caption & "','" & CCur(lblpu.Caption) & "','" & CCur(lbltot.Caption) & "','" & Lblcodconcepto.Caption & "')"
comcotiza2.Execute

'Lblcodconcepto.caption
Next
End Sub
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