|
Salve.
Inserisco in una listview dei prodotti, per fare ciò uso questo codice:
codice:
If Not CONNECTION Is Nothing Then If (CONNECTION.State And ConnectionState.Open) = ConnectionState.Open Then
CONNECTION.Close()
End If
strSQL = "SELECT * FROM Articoli where " & Filtro & " = '" & txtCodBarre.Text & "';"
CONNECTION.Open()
cmd = New MySqlCommand(strSQL, CONNECTION)
dr = cmd.ExecuteReader()
QuantitArticolo()
Do While dr.Read()
Matricola = dr("Matricola").ToString
CodBarre = dr("CodBarre").ToString
Descrizione = dr("Descrizione").ToString
Misura = dr("Misura").ToString
Quantit = dr("Quantit").ToString
Iva = dr("Iva").ToString
ValoreIva = dr("ValoreIva").ToString
PrezzoIvaEsclusa = dr("Prezzo").ToString
PrezzoConIva = dr("PrezzoConIva").ToString
Costo = dr("Costo").ToString
Utile = dr("Utile").ToString
CalcoliMatematici()
Dim lv As ListViewItem = ListView1.Items.Add(Matricola)
lv.SubItems.Add(CodBarre)
lv.SubItems.Add(Descrizione)
lv.SubItems.Add(Misura)
lv.SubItems.Add(QuantitInserita)
lv.SubItems.Add(Iva)
lv.SubItems.Add(CalcoloIva)
lv.SubItems.Add(CalcoloPrezzo)
lv.SubItems.Add(CalcoloPrezzoConIvaInclusa)
lv.SubItems.Add(CalcoloCosto)
lv.SubItems.Add(CalcoloUtile)
Loop
dr.Close()
cmd.Dispose()
CONNECTION.Close()
End If
Poi per caricarli nel Database MySQL uso questi comandi:
codice:
Public Sub CaricamentoDatiVendita() Dim strSQL As String = "INSERT INTO Vendite (Numero,RagioneSociale,Data) Values ('" & _
txtCodiceIdentificativo.Text & "', '" & _
txtRagioneSociale.Text & "', '" & _
txtData.Text & "')"
CONNECTION.Open()
cmd = New MySqlCommand(strSQL, CONNECTION)
dr = cmd.ExecuteReader()
dr.Close()
cmd.Dispose()
CONNECTION.Close()
End Sub
codice:
Public Sub CaricamentoElementiVendite() For Each x As ListViewItem In ListView1.Items
Dim strSQL As String = "INSERT INTO DettaglioVendite (Numero,Matricola,CodBarre,Descrizione,Misura,Iva,ValoreIva,PrezzoIvaEsclusa,PrezzoIvaInclusa,Costo,Utile) Values ('" & _
txtCodiceIdentificativo.Text & "', '" & _
x.SubItems(0).Text & "', '" & _
x.SubItems(1).Text & "', '" & _
x.SubItems(2).Text & "','" & _
x.SubItems(3).Text & "','" & _
x.SubItems(5).Text & "','" & _
x.SubItems(6).Text & "','" & _
x.SubItems(7).Text & "','" & _
x.SubItems(8).Text & "','" & _
x.SubItems(9).Text & "','" & _
x.SubItems(10).Text & "')"
CONNECTION.Open()
cmd = New MySqlCommand(strSQL, CONNECTION)
dr = cmd.ExecuteReader()
dr.Close()
cmd.Dispose()
CONNECTION.Close()
Next
End Sub
Ora vi è un problema, come faccio ad fare un UPDATE per la giacenza, i dati dei prodotti si trovano nella tabella Articoli, devo fare un UPDATE alla colonna Giacenza.
Esempio:
Aggiungo un prodotto x, come quantità metto 3
Aggiungo un altro prodotto x, come quantità metto 5
Adesso premo salva, e oltre ad inserire questi dati nel db, deve fare un update alla tabella Articoli, deve cambiare la licenza, il primo prodotto deve avere 3 giacenze in meno, mentre il secondo deve avere 5 giacenze in meno.
Come faccio?
Se era un singolo articoli non ci voleva molto, assegnavo il CodBarre o la Matricola e lanciavo una query, ma con tutti questi articoli nella listview come faccio?
Scusate se apro spesso Discussioni.
Grazie in anticipo.
| 
