vb.net dataadapter update and datagridview

I am populating a datagridview with a db, then I type in a new row, then try to update.
How do I get this to work?

   This does not work:

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        dataAdapter.Update(myDataSet)
    End Sub

   This fills my datagrid:

    Private Sub refreshDataGRid()

        dataAdapter.SelectCommand = New OleDbCommand("select * from users", myConnection)

        Dim CB As OleDbCommandBuilder
        CB = New OleDbCommandBuilder(dataAdapter)

        dataAdapter.UpdateCommand = CB.GetUpdateCommand()

        dataAdapter.Fill(myDataSet)

        myDataSet = getDataSet("select * from users")
        myDataSet.Tables(0).TableName = "users"
        myDataTable = myDataSet.Tables("users")
        DataGridView1.DataSource = myDataTable

        DataGridView1.Columns("userName").HeaderText = "User Name"
        DataGridView1.Columns("pass").HeaderText = "Password"

        If Not DataGridView1.Columns.Contains("Delete") Then
            Dim buttons As New DataGridViewButtonColumn()
            With buttons
                .HeaderText = "Delete"
                .Text = "Delete"
                .Name = "Delete"
                .UseColumnTextForButtonValue = True
                .AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
                .FlatStyle = FlatStyle.Standard
                .DisplayIndex = 0
            End With

            DataGridView1.Columns.Add(buttons)
        End If

    End Sub
jackjohnson44Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

newyuppieCommented:
1) there is no need for this line
dataAdapter.UpdateCommand = CB.GetUpdateCommand()
since you already set the CommandBuilder to the dataadapter it will be set automatically

2) there is no need for
dataAdapter.Fill(myDataSet)
myDataSet = getDataSet("select * from users")
        myDataSet.Tables(0).TableName = "users"
        myDataTable = myDataSet.Tables("users")
either.

replace that with

dim MyDataTable as New DataTable("users")
myDataSet.Tables.Add(MyDataTable )
dataAdapter.Fill(MyDataTable )
DataGridView1.DataSource = MyDataTable

directly


how about now, does this work with these changes? hope it helps somehting
NY
0
manchCommented:
Use
myDataSet .AcceptChanges()
'after calling the adapter update command for commiting it

Try It
0
newyuppieCommented:
manch, the dataadapter by default calls acceptchanges on update, unless he changed it manually there's no need to do that.
0
Cloud Class® Course: SQL Server Core 2016

This course will introduce you to SQL Server Core 2016, as well as teach you about SSMS, data tools, installation, server configuration, using Management Studio, and writing and executing queries.

jackjohnson44Author Commented:
newyuppie, can you please explain what you are doing?

1.  are you creating a new table with nothing in it, and the dataadapter knows how to fill it?

2. What is wrong with the way that I did it?  Can you please explain why this is wrong?

3. I am not sure what is going on, but I tried to do this, type something into the grid, then call dataAdapter.Update(myDataSet) and it does not fail.  Then I close the app, reopen it and fill the grid and it does not have the new row.  Do I have to have an insert id?  I tried leaving it blank and also filling in the next number and nothing happened.

0
jackjohnson44Author Commented:
here is what I have so far
<?xml version="1.0" standalone="yes"?>
<NewDataSet>
  <users>
    <ID>52</ID>
    <userName>admin</userName>
    <pass>admin</pass>
    <level>3</level>
    <active>true</active>
  </users>
  <users>
    <ID>55</ID>
    <userName>test</userName>
    <pass>test</pass>
    <level>1</level>
    <active>true</active>
  </users>
</NewDataSet>

    Private Sub refreshDataGRid()

        dataAdapter.SelectCommand = New OleDbCommand("select * from users", myConnection)

        Dim CB As OleDbCommandBuilder
        CB = New OleDbCommandBuilder(dataAdapter)

        dataAdapter.UpdateCommand = CB.GetUpdateCommand()

        dataAdapter.Fill(myDataSet)

        'myDataSet = getDataSet("select * from users")
        'myDataSet.Tables(0).TableName = "users"
        'myDataTable = myDataSet.Tables("users")
        'DataGridView1.DataSource = myDataTable

        myDataTable = New DataTable("users")
        myDataSet.Tables.Add(MyDataTable)
        dataAdapter.Fill(MyDataTable)
        DataGridView1.DataSource = MyDataTable



        DataGridView1.Columns("userName").HeaderText = "User Name"
        DataGridView1.Columns("pass").HeaderText = "Password"
end sub

this does nothing, (I have tried all of these, also leaving them out, and different combinations)
        DataGridView1.Update()
        myDataSet.AcceptChanges()
        dataAdapter.Update(myDataSet)
0
newyuppieCommented:
this is what you should have:

Private Sub refreshDataGRid()

        dataAdapter.SelectCommand = New OleDbCommand("select * from users", myConnection)

        Dim CB As OleDbCommandBuilder
        CB = New OleDbCommandBuilder(dataAdapter)

        myDataTable = New DataTable("users")
        myDataSet.Tables.Add(MyDataTable)
        dataAdapter.Fill(MyDataTable)
        DataGridView1.DataSource = MyDataTable

        DataGridView1.Columns("userName").HeaderText = "User Name"
        DataGridView1.Columns("pass").HeaderText = "Password"
end sub

private sub ButtonSave_Click(sender as object, e as eventargs) handles ButtonSave.Click
dataAdapter.Update(MyDataSet)
End SUb


you will need to add a button called ButtonSave, so that it will save when you press it.
0
Bob LearnedCommented:
You need to be very careful when calling AcceptChanges, or it will change the row status of the rows to Unmodified, and nothing will happen if you call it before OleDbDataAdapter.Update.

Bob
0
jackjohnson44Author Commented:
newyuppie, that did not work.
I am getting this error: "Update unable to find TableMapping['Table'] or DataTable 'Table'."

Is the problem that you are binding the datagridview to a table, and then trying to update the dataset?
   DataGridView1.DataSource = MyDataTable
   dataAdapter.Update(MyDataSet)

Should they both be set to datasets?
0
Bob LearnedCommented:
If you call the Fill method, and don't specify a table alias, it will be called Table1:

dataAdapter.Fill(MyDataSet, "Table")

  and

dataAdapter.Update(MyDataSet, "Table")

If you only have 1 DataTable in the DataSet, then it is more efficient to fill a DataTable, then have an entire DataSet.

Bob
0
jackjohnson44Author Commented:
Thanks, but I am not sure what you are saying.

In the example from newyuppie, it says fill the dataadapter with a table , the fill the DataGridView1.DataSource with the datatable.
You are saying fill it with a dataset.

Which one do I use?

Your answer does not work with the function refreshDataGRid in the example from newyuppie.

Also, can you show me what you mean by using the name of my table "users" instead of "Table".

Can you either show me how to make refreshDataGRid work with dataAdapter.Update(MyDataSet, "Table"), or show me how to make the update line work with that function?

0
Bob LearnedCommented:
This is what I am saying:

1) Add an alias with a DataSet:

      Dim ds As New DataSet
      dataAdapter.Fill(ds, "users" )

2) Create a DataTable

    Dim dt As New DataTable
    dataAdapter.Fill(dt)

If you only have one table, then I feel that it is best to use the DataTable approach, since it has less overhead and is more efficient on processor and memory usage.

Bob
0
jackjohnson44Author Commented:
Thanks for your help, but I am still completely confused.
I am new to datasets and can't figure it out.
I think there are some steps missing since plugging in either of these 2 line chunks won't even fill the datagridview.

1.  How would you get either #1, or #2 to fill a datagridview?  Again I am working with the function above.

2. After that function is working with method #1, or method #2, how is the update called?

I am no closer to a solution than when I first started.

Since there isn't much to change, can you please re-write the function above, and show me the update line?

I would think it would be changing one or two lines.
0
Bob LearnedCommented:
1) Try this:

Private Sub refreshDataGRid()

   Dim dataAdapter As New OleDbDataAdapter("Select * From Users", myConnectionString)
 
   Dim CB As OleDbCommandBuilder As New OleDbCommandBuilder(dataAdapter)
   dataAdapter.UpdateCommand = CB.GetUpdateCommand()

   Dim myTable As New DataTable
   dataAdapter.Fill(myTable)

   DataGridView1.AutoGenerateColumns = False

   DataGridView1.DataSource = myTable

End Sub

2) If you are defining the columns through the property designer, then define this there, instead of in code:

    DataGridView1.Columns("userName").HeaderText = "User Name"
    DataGridView1.Columns("pass").HeaderText = "Password"

3) Also, if you are defining the columns, add the <Delete> button column there also.

Bob
0
jackjohnson44Author Commented:
This function does not work.  My grid is blank.

Private Sub refreshDataGRid()

   Dim dataAdapter As New OleDbDataAdapter("Select * From Users", myConnectionString)
 
   Dim CB As OleDbCommandBuilder As New OleDbCommandBuilder(dataAdapter)
   dataAdapter.UpdateCommand = CB.GetUpdateCommand()

   Dim myTable As New DataTable
   dataAdapter.Fill(myTable)

   DataGridView1.AutoGenerateColumns = False

   DataGridView1.DataSource = myTable

End Sub
0
Bob LearnedCommented:
Is myTable.Rows.Count > 0?

Bob
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.