Ciao a tutti,
sono un autodidatta che nel tempo libero appassionato di programmazione, sto cercando di creare un gestionale aziendale in vb.net da presentare un domani alla mia azienda dove lavoro attualmente. però non riesco a fare un semplice Update in una tabella del database Access, almeno riesco ma il nuovo dato si cambia anche sui tutti i record presenti nella tabella e così non va bene… Vi lascio il codice del form, se qualcuno mi può aiutare vi sarei grato.
Grazie in anticipo per il supporto!
Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic.ApplicationServices
Imports Microsoft.Win32
Imports System.Data.OleDb
Imports System.IO
Imports Microsoft.Office.Interop
Imports System
Imports System.Collections
Public Class MODIFICAREFERENZA
Public cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=P:\TEST\GESTIONALE 3.0\DATABASE.mdb")
Public pippo As OleDb.OleDbDataReader
Public dr As OleDb.OleDbDataReader
Private Sub BTNMODIFICA_Click(sender As Object, e As EventArgs) Handles BTNMODIFICA.Click
Dim cm_ref As New OleDb.OleDbCommand("UPDATE REFERENZE SET Reparto=@Reparto,Sotto_Reparto=@Sotto_Reparto,Tipo=@Tipo,Sotto_tipo=@Sotto_tipo,EAN13=@EAN13,Nome_Referenza=@Nome_Referenza,Descrizioni=@Descrizioni,Marca=@Marca,Fornitore=@Fornitore,Giorno_Rap=@Giorno_Rap,Contatti_Fornitori=@Fornitori,Prezzo_vendita=@Prezzo_vendita,Sconto_Piva=@Sconto_Piva,Sconto_Artigiano=@Sconto_Artigiano,Unita_misura_ref=@Unita_misura_ref,Prezzo_acquisto=@Prezzo_acquisto,qta=@qta,Gamma=@Gamma,Stato_Prodotto=@Stato_Prodotto,Referenza_Modificata_Da=@Referenza_Modificata_Da WHERE Codice=@lavatrice")
cm_ref.Parameters.AddWithValue("@lavatrice", REFTEXT.Text)
cm_ref.Parameters.AddWithValue("@Reparto", REPARTOCOMBO.Text)
cm_ref.Parameters.AddWithValue("@Sotto_Reparto", SOTTOREPARTOCOMBO.Text)
cm_ref.Parameters.AddWithValue("@Tipo", TIPOCOMBO.Text)
cm_ref.Parameters.AddWithValue("@Sotto_tipo", SOTTOTIPOCOMBO.Text)
cm_ref.Parameters.AddWithValue("@EAN13", EAN13COMBO.Text)
cm_ref.Parameters.AddWithValue("@Nome_Referenza", NOMEREFTEXT.Text)
cm_ref.Parameters.AddWithValue("@Descrizioni", DESCRIZIONEREFTEXT.Text)
cm_ref.Parameters.AddWithValue("@Marca", MARCATEXT.Text)
cm_ref.Parameters.AddWithValue("@Fornitore", FORNITORICOMBO.Text)
cm_ref.Parameters.AddWithValue("@Contatti_Fornitori", CONTATTIFORNITORITEXT.Text)
cm_ref.Parameters.AddWithValue("@Prezzo_vendita", PREZZOVENDITATEXT.Text)
cm_ref.Parameters.AddWithValue("@Sconto_Piva", SCONTOPIVACOMBO.Text)
cm_ref.Parameters.AddWithValue("@Sconto_Artigiano", SCONTOARTCOMBO.Text)
cm_ref.Parameters.AddWithValue("@Unita_misura_ref", UNITAPEZZOCOMBO.Text)
cm_ref.Parameters.AddWithValue("@Prezzo_acquisto", PREZZOACQUISTOTEXT.Text)
cm_ref.Parameters.AddWithValue("@Giorno_Rap", SETTIMANAGIORNI.Text)
cm_ref.Parameters.AddWithValue("@qta", qta.Text)
cm_ref.Parameters.AddWithValue("@Gamma", GAMMAREFCOMBO.Text)
cm_ref.Parameters.AddWithValue("@Stato_Prodotto", STATOREFCOMBO.Text)
cm_ref.Parameters.AddWithValue("@Referenza_Modificata_Da", REFMODIFICADBTXT.Text)
cn.Open()
cm_ref.Connection = cn
dr = cm_ref.ExecuteReader
MsgBox("I dati della referenza sono stati correttamente modificati nella Tabella Referenze del Database.", MsgBoxStyle.Information, "Success!")
cn.Close()
End Sub