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)
codice: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)
Grazie mille e buona giornatacodice: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

Rispondi quotando