[VB.NET] Delete

[SigAlexey]

Ciao di nuovo!
Nell'attesa che mi arrivi una risposta nell'altra discussione pongo un'altra domanda ahaha
Devo fare una delete sql, ma non mi ricordo benissimo come fare e cercando in giro ho trovato esempi abbastanza diversi da come procedo

Perciò, qualcuno riuscirebbe ad indicarmi la strada corretta?? ahah

Questo è un esempio di Insert (funzionante)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim data As String = txtG.Text.ToString() & "/" & txtM.Text.ToString() & "/" & txtA.Text.ToString()


        Form1.stringasql = "INSERT INTO Vernici(Colore, Lotto, Fornitore, dataArrivo) VALUES(@Colore, @Lotto, @Fornitore, @dataArrivo);"
        Form1.ApriConnessione()


        Form1.objcomm.Parameters.Add(New OleDbParameter("@Colore", Me.txtVer.Text.ToString()))
        Form1.objcomm.Parameters.Add(New OleDbParameter("@Lotto", Convert.ToInt32(Me.txtLot.Text.ToString())))
        Form1.objcomm.Parameters.Add(New OleDbParameter("@Fornitore", Me.txtFor.Text.ToString()))
        Form1.objcomm.Parameters.Add(New OleDbParameter("@dataArrivo", data))


        Dim risputente As Integer
        Try
            risputente = Form1.objcomm.ExecuteNonQuery()
            If risputente = 1 Then
                MsgBox("Inserimento effettuato con successo")
                Form1.ChiudiConnessione()
                Me.Label2.Text = ""
            End If
        Catch es As Exception
            Dim s As String = Form1.objcomm.CommandText
            Dim s1 As System.Data.OleDb.OleDbParameterCollection = Form1.objcomm.Parameters
            MessageBox.Show(s)
            MsgBox(es.ToString())
            Form1.ChiudiConnessione()
        End Try
    End Sub

Questo è un esempio di Select (non proprio funzionante e soggetto della mia scorsa discussione)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click


        'VERNICI
        Dim stringa As String = "select ID From Vernici Where Nome = 'Rosso'"
        Form1.ApriConnessione()
        Dim comm2 As OleDb.OleDbCommand = New OleDb.OleDbCommand(stringa, Form1.objconn)
        Dim dr2 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm2)
        Dim dt2 As Data.DataTable = New Data.DataTable()
        dr2.Fill(dt2)
        Form1.ChiudiConnessione()






    End Sub

Grazie mille e buona giornata

[SigAlexey]

Fatto!!

Se a qualcuno può servire:

Imports System.Data.OleDb
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As OleDbConnection
        Dim com As OleDbCommand
        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Users\Pasindu\Documents\database9.accdb")
        com = New OleDbCommand("delete from Table1 where Student number =@sno", con)
        con.Open()
        com.Parameters.AddWithValue("@sno", TextBox1.Text)
        com.ExecuteNonQuery()
        MsgBox("Record Deleted")
        con.Close()
    End Sub EndClass

Preso da http://stackoverflow.com/questions/1...how-to-enter-a