Cancellare un record da una tabella - database Access

8 Risposte

• 

  patel

  Molto attivo

  Iscritto da

  giu, 2018

  Messaggi:

  550

  Re: Cancellare un record da una tabella - database Access

  23 gen 2021, 08:25

  Non hai fornito elementi sufficienti
  Come ti colleghi al db ? usi bindingsource ? CommandBuilder ?
• /

  Anonimizzato30110

  Utente anonimizzato

  Re: Cancellare un record da una tabella - database Access

  23 gen 2021, 10:13

  patel ha scritto:

  ---

  Non hai fornito elementi sufficienti
  Come ti colleghi al db ? usi bindingsource ? CommandBuilder ?

  Il bindingsource ..
• 

  patel

  Molto attivo

  Iscritto da

  giu, 2018

  Messaggi:

  550

  Re: Cancellare un record da una tabella - database Access

  23 gen 2021, 18:48

  Allora dovrebbe bastare eliminare la riga dalla DGV, se non riesci allega il progetto zippato.
• /

  Anonimizzato30110

  Utente anonimizzato

  Re: Cancellare un record da una tabella - database Access

  23 gen 2021, 18:55

  E' tutto qui.... e' solo una prova.. funziona tutto tranne il delete
  

  Public Class Form1
      Private bindingSource1 As New BindingSource()
  
  
      Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          ' questa riga di codice carica i dati nella tabella 'Recensioni0DataSet1.Contatti'. È possibile spostarla o rimuoverla se necessario.
          Me.ContattiTableAdapter.Fill(Me.Recensioni0DataSet1.Contatti)
  
          '  Me.DataGridView1.DataSource = Me.bindingSource1
      End Sub
  
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          ContattiBindingSource.MoveNext()
      End Sub
  
      Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
          ContattiBindingSource.AddNew()
      End Sub
  
      Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
          ContattiBindingSource.EndEdit()
          ContattiTableAdapter.Update(Recensioni0DataSet1.Contatti)
      End Sub
  
      Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
          ContattiBindingSource.MovePrevious()
      End Sub
  
  
      Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
          '   DataGridView1.DataSource = bindingSource1
          ' GetData("select * from Customers")
  
  
          Dim contattiTableAdapter As New recensioni0DataSet1TableAdapters.ContattiTableAdapter
          Dim a As String = DataGridView1.Item(0, DataGridView1.CurrentCell.RowIndex).Value.ToString
          contattiTableAdapter.Delete(a, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text)
  
  
      End Sub
  End Class

• 

  Alka

  Utente Famoso

  Iscritto da

  nov, 2014

  Messaggi:

  3420

  Re: Cancellare un record da una tabella - database Access

  23 gen 2021, 19:29
• /

  Anonimizzato30110

  Utente anonimizzato

  Re: Cancellare un record da una tabella - database Access

  23 gen 2021, 19:33

  Quando clicco sull record della DGV si popolano tutti i textbox. E cmq non saprei come mettere lo zip qui. non vedo niente dove si possono allegare i file
• 

  patel

  Molto attivo

  Iscritto da

  giu, 2018

  Messaggi:

  550

  Re: Cancellare un record da una tabella - database Access

  24 gen 2021, 07:27

  Caricalo su dropbox o simili e posta il link
• /

  Anonimizzato30110

  Utente anonimizzato

  Re: Cancellare un record da una tabella - database Access

  24 gen 2021, 12:08

  Ciao. Ho risolto in questo modo. Non so se c'era un'altra strada più semplice. Cmq funziona tutto.
  Lo metto nel caso a qualcuna possa servire inserire, scorrere, aggiornare e cancellare un record in un database access

  Imports System.Data.OleDb
  
  Public Class Form1
  
      Public cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\loren\Desktop\programmi CREATI\Vb. NET\primo\recensioni0.mdb")
      Public leggo As OleDb.OleDbDataReader
  
  
      Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          ' questa riga di codice carica i dati nella tabella 'Recensioni0DataSet1.Contatti'. È possibile spostarla o rimuoverla se necessario.
          Me.ContattiTableAdapter.Fill(Me.Recensioni0DataSet1.Contatti)
  
          
      End Sub
  
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          ContattiBindingSource.MoveNext()
      End Sub
  
      Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
          ContattiBindingSource.AddNew()
      End Sub
  
      Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
          ContattiBindingSource.EndEdit()
          ContattiTableAdapter.Update(Recensioni0DataSet1.Contatti)
          Me.ContattiTableAdapter.Fill(Me.Recensioni0DataSet1.Contatti)
      End Sub
  
      Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
          ContattiBindingSource.MovePrevious()
      End Sub
  
  
      Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
  
          Dim a As String = DataGridView1.Item(0, DataGridView1.CurrentCell.RowIndex).Value.ToString
  
          Dim cm As New OleDb.OleDbCommand("DELETE FROM contatti WHERE ID=@ID")
          cm.Parameters.AddWithValue("@ID", a)
          cn.Open()
          cm.Connection = cn
          leggo = cm.ExecuteReader
  
          cn.Close()
          Me.ContattiTableAdapter.Fill(Me.Recensioni0DataSet1.Contatti)
  
      End Sub
  End Class