Im having trouble with DGV

[andreol21]

Hello everyone im new to this forum
I hope you can help me for starters im looking to save and update files from my datagridview
So.. I'll post some code
Imports System.Data.OleDb

Public Class Form18

Const cs As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=I:\PAP\Access Solução 1.accdb"
Dim nome As String
Dim a As Date
Dim con As New OleDbConnection(cs)
Dim myDataSet As DataSet = New DataSet()
Dim DA As OleDbDataAdapter

Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Me.Hide()
Form4.Show()
End Sub

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

If ComboBox1.Text = "Janeiro" Then
a = "10-01-2000"
ElseIf ComboBox1.Text = "Fevereiro" Then
a = "10-02-2000"
ElseIf ComboBox1.Text = "Março" Then
a = "10-03-2000"
ElseIf ComboBox1.Text = "Abril" Then
a = "10-04-2000"
ElseIf ComboBox1.Text = "Maio" Then
a = "10-05-2000"
ElseIf ComboBox1.Text = "Junho" Then
a = "10-06-2000"
ElseIf ComboBox1.Text = "Julho" Then
a = "10-07-2000"
ElseIf ComboBox1.Text = "Agosto" Then
a = "10-08-2000"
ElseIf ComboBox1.Text = "Setembro" Then
a = "10-09-2000"
ElseIf ComboBox1.Text = "Outubro" Then
a = "10-10-2000"
ElseIf ComboBox1.Text = "Novembro" Then
a = "10-11-2000"
ElseIf ComboBox1.Text = "Dezembro" Then
a = "10-12-2000"
End If

Dim query As String = "Select Nome,Taxa,Valor,Data from view1 where Month(Data) = Month('" & a & "') and Nome ='" & ComboBox2.Text & "'"
Dim cmd As New OleDbCommand(query, con)
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
con.Open()
myDA.Fill(myDataSet, "Data")
View1DataGridView.DataSource = myDataSet.Tables("Data").DefaultView
con.Close()

Dim sumTotal As String = myDataSet.Tables(0).Compute("SUM(Valor)", String.Empty).ToString
Label3.Text = "Valor total do IVA deste mês: " & sumTotal
End Sub
End Class



Sorry some of the stuff is in portuguese but I think its no big deal, now the result that is showed in the DGV I want to give to the user the possibility to update some ex : if valor(value) = 20 and user wants it 19 I want it to change and save in database.
And I want to let them delete it if they would like to now only the value but the row.
If you guys need any extra information just ask.
Please help :3

[andreol21]

I Just want to say sorry for my bad english... I just woke up and started working. But if you have any doubts just ask me

[wes4dbt]

You just have to use the "Update" method on myDa dataadapter. First you must create the update commands, the easiest way is to use "OledbCommandBuilder".

Dim query As String = "Select Nome,Taxa,Valor,Data from view1 where Month(Data) = Month('" & a & "') and Nome ='" & ComboBox2.Text & "'"
Dim cmd As New OleDbCommand(query, con)
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
con.Open()
Dim cmdbld As New OleDbCommandBuilder  ' Add this line
cmdbld.DataAdapter = myDa                       'add this line
myDA.Fill(myDataSet, "Data")   
View1DataGridView.DataSource = myDataSet.Tables("Data")  ' No need to use Default view
'con.Close()  ' Don't close the connection

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        myDa.Update(dt)
    End Sub