Adding A New Row to my DataSet :(

[squirrelly1]

I'm trying to use the following code and it's giving me a big, big headache..

Dim NewRow As DataRow = DS.Tables("Users").NewRow
        NewRow!UserName = txtUserName.Text
        NewRow!Password = txtPassword.Text
        NewRow!Type = "User"
        DS.Tables("Users").Rows.Add(NewRow)
 
        Dim CB As New OleDbCommandBuilder(DA)
        DA.UpdateCommand = CB.GetUpdateCommand
        DA.Update(DS, "Users")

This works just fine if i don't add the record

is there anything I need to do between adding the record and updating the thing? Thanks.


Squirrelly1

[robymix]

If you add the record what happen? Does your datatable have primary key? Does the Select command for the dataadapter return all rows? What the exception thrown, if any?

[mendhak]

Shouldn't you be getting an Insert Command instead?

[squirrelly1]

Yes I probably should... could you give me some proper code on how to impliment the insertcommand stuff?

Thanks,

Squirrelly1

[mendhak]

Dim NewRow As DataRow = DS.Tables("Users").NewRow
        NewRow!UserName = txtUserName.Text
        NewRow!Password = txtPassword.Text
        NewRow!Type = "User"
        DS.Tables("Users").Rows.Add(NewRow)
 
        Dim CB As New OleDbCommandBuilder(DA)
        DA.UpdateCommand = CB.GetInsertCommand()
        DA.Update(DS, "Users")

Untested, of course.

[mendhak]

One more thing, please don't do this:

NewRow!UserName = txtUserName.Text

Instead, do this:

NewRow("UserName") = txtUserName.Text

[squirrelly1]

I'm getting an error here...

Users.Conn.Open()
        Dim NewRow As DataRow = Users.DS.Tables("Users").NewRow
        NewRow("UserName") = txtUserName.Text
        NewRow("Password") = txtPassword.Text
        NewRow("Type") = "User"
        Users.DS.Tables("Users").Rows.Add(NewRow)
 
        Dim CB As New OleDbCommandBuilder(Users.DA)
        Users.DA.UpdateCommand = CB.GetInsertCommand
[b]        Users.DA.Update(Users.DS, "Users")[/b]
        Users.Conn.Close()
        MsgBox("Added New User!", MsgBoxStyle.OKOnly, "Success")
        Me.DialogResult = DialogResult.OK

An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll

not telling me anymore than that

[Lil Ms Squirrel]

You can get a bit more info on the error if you catch the exception in a Try....Catch... block.

Something like

Try
        Users.DA.UpdateCommand = CB.GetInsertCommand
        Users.DA.Update(Users.DS, "Users")
Catch ex as Exception
        Messagebox.Show (ex.ToString)
End Try

Try that and then post the full exception message and then maybe we can help some more?