Visual Basic - como puedo guardar mas de 2 datos desde un listview a una base de datos

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 12 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

como puedo guardar mas de 2 datos desde un listview a una base de datos

Publicado por Dariel (1 intervención) el 03/08/2020 21:09:59
esto es una factura y quiero guardar todos los articulos en uno solo, como puedo hacerlo??


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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub salvar_Click()
Dim itmx As ListItem
enc.Recordset.AddNew
enc.Recordset("nfact") = nfact
enc.Recordset("fecha") = Format(fecha, "DD/MM/YYYY")
enc.Recordset("nfc") = nfc
enc.Recordset("cd") = cd + cdd
enc.Recordset("ncliente") = ncliente
enc.Recordset("nombre") = nombre + apellido
enc.Recordset("hora") = Format(hora, "HH:MM:SS AMPM")
enc.Recordset("cedula") = cedula
enc.Recordset("telefono") = telefono
enc.Recordset("rnc") = rnc
enc.Recordset("empresa") = empresa
enc.Recordset("vendedor") = vendedor
enc.Recordset.Update
enc.Refresh
For i = 1 To list.ListItems.Count
Set itmx = list.ListItems(i)
det.Recordset.AddNew
det.Recordset("narticulo") = itmx.Text
det.Recordset("nfact") = nfact
det.Recordset("cantidad") = itmx.SubItems(2)
det.Recordset("precio") = itmx.SubItems(3)
det.Recordset("subtotal") = itmx.SubItems(4)
det.Recordset("aitbis") = itmx.SubItems(5)
det.Recordset("descripcion") = itmx.SubItems(1)
det.Recordset("fecha") = Format(fecha, "DD/MM/YYYY")
det.Recordset("nfc") = nfc
det.Recordset("cd") = cd + cdd
det.Recordset("ncliente") = ncliente
det.Recordset("nombre") = nombre + apellido
det.Recordset("hora") = Format(hora, "HH:MM:SS AMPM")
det.Recordset("cedula") = cedula
det.Recordset("telefono") = telefono
det.Recordset("rnc") = rnc
det.Recordset("empresa") = empresa
det.Recordset("vendedor") = vendedor
det.Recordset("totalpa") = totalpa
det.Recordset("efectivo") = efectivo
det.Recordset("devuelta") = devuelta
det.Recordset("totalitbis") = totalitbis
det.Recordset("pago") = pago
det.Recordset.Update
det.Refresh
Next i
 cancelar_Click
 fecha = Format(Date, "DD/MM/YYYY")
secuencia.Refresh
secuencia.Recordset.FindFirst "codigo='" & "1" & "'"
If secuencia.Recordset.NoMatch = False Then
nfact = Val(secuencia.Recordset("secuencia")) + 1
secuencia.Refresh
End If
 
End Subo
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