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