27/10/14 9:47
Aizen
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.
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.
aaa