Torna al Thread

Imports System.Data Imports System.Data.OleDb Public Class InsertPV Dim connessioneDatabase As New OleDbConnection() Dim dboggetto As OleDbCommand Private Sub connessione(ByVal nomedb As String, ByVal SQL As String) connessioneDatabase.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nomedb Try connessioneDatabase.Open() dboggetto = New OleDbCommand(SQL, connessioneDatabase) dboggetto.ExecuteReader() Catch ex As OleDbException MsgBox("Errore Occorso nell'apertura della connessione") End Try End Sub Private Sub InsertPV_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Home.Enabled = True End Sub ''questa parte l'ha inserita da solo dopo che ho collegato il listbox al db Private Sub InsertPV_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: questa riga di codice carica i dati nella tabella 'UpdateAccademy_DataSet.PV'. È possibile spostarla o rimuoverla se necessario. Me.PVTableAdapter.Fill(Me.UpdateAccademy_DataSet.PV) End Sub Private Sub EsciPV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciPV.Click Me.Close() End Sub Public Sub reload() Dim e As New System.EventArgs Me.OnLoad(e) End Sub Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick Dim indirizzo As String = "dbaccess.mdb" Dim risposta As Integer = MsgBox("Siete sicuri di voler modificare il nome del PV: " & ListBox1.SelectedValue.ToString, MsgBoxStyle.OkCancel) Dim lia As New ListBox If risposta = 1 Then Dim modifica As String = InputBox("Modifica il PV", , ListBox1.SelectedValue.ToString) If modifica <> ListBox1.SelectedValue.ToString Then connessione(indirizzo, "UPDATE PV SET PV ='" & modifica & "' WHERE PV = '" & ListBox1.SelectedValue.ToString & "'") connessioneDatabase.Close() reload() End If End If End Sub End Class
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5