Inserting A New Record

[Curt Emich]

Can someone tell me specifically what's missing in this code so that it
won't write the record into the database? Please, no references to lengthy,
bloated, meandering articles telling me how to make a watch when I'm merely
asking what time it is.

Dim thisDataAdapter As OleDb.OleDbDataAdapter = New
OleDb.OleDbDataAdapter("SELECT * FROM Sessions", OleDbConnection1)

thisDataAdapter.InsertCommand = New OleDb.OleDbCommand("INSERT INTO Sessions
SET Notes = ? ", OleDbConnection1)

thisDataAdapter.InsertCommand.Parameters.Add("Note s", OleDbType.VarChar, 15,
"Notes")

' Dim workParm As OleDbParameter =
catDA.UpdateCommand.Parameters.Add("@CategoryID", OleDbType.Integer)

' workParm.SourceColumn = "CategoryID"

' workParm.SourceVersion = DataRowVersion.Original

Dim thisDataset As DataSet = New DataSet()

thisDataAdapter.Fill(thisDataset, "Sessions")

Dim thisTable As New DataTable()

thisTable = thisDataset.Tables("Sessions")

Dim cRow As DataRow = thisTable.NewRow()

cRow("Notes") = "Yadda"

thisTable.Rows.Add(cRow)

thisDataAdapter.Update(thisDataset)

[Bernie Yaeger]

Curt,

The logic of the table assignment is backwards. You're trying to update the
permanent table 'sessions' but you're actually updating the temporary table
'thistable'.

Do this instead:
crow = thisdataset.Tables(0).NewRow()

etc.

HTH,

Bernie Yaeger

"Curt Emich" <ce****@comcast.net> wrote in message
news:1b********************@comcast.com...

Can someone tell me specifically what's missing in this code so that it
won't write the record into the database? Please, no references to lengthy, bloated, meandering articles telling me how to make a watch when I'm merely asking what time it is.

Dim thisDataAdapter As OleDb.OleDbDataAdapter = New
OleDb.OleDbDataAdapter("SELECT * FROM Sessions", OleDbConnection1)

thisDataAdapter.InsertCommand = New OleDb.OleDbCommand("INSERT INTO Sessions SET Notes = ? ", OleDbConnection1)

thisDataAdapter.InsertCommand.Parameters.Add("Note s", OleDbType.VarChar, 15, "Notes")

' Dim workParm As OleDbParameter =
catDA.UpdateCommand.Parameters.Add("@CategoryID", OleDbType.Integer)

' workParm.SourceColumn = "CategoryID"

' workParm.SourceVersion = DataRowVersion.Original

Dim thisDataset As DataSet = New DataSet()

thisDataAdapter.Fill(thisDataset, "Sessions")

Dim thisTable As New DataTable()

thisTable = thisDataset.Tables("Sessions")

Dim cRow As DataRow = thisTable.NewRow()

cRow("Notes") = "Yadda"

thisTable.Rows.Add(cRow)

thisDataAdapter.Update(thisDataset)

[Curt Emich]

Thanks. Yeah, I caught that a while ago, but still nothing. I went to
this link

http://www.dotnetextreme.com/code/BasicAdo.asp

and copied the code verbatim and still don't get a new record. I'm
starting to wonder about my connection.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Bernie Yaeger]

Hi Curt,

Try, for starters, using a simple commandbuilder, as in this very direct and
simple code snippet:
Dim davwbillex As New SqlDataAdapter("select * from vwbillex", oconn)

Dim dsvwbillex As New DataSet("vwbillex")

davwbillex.Fill(dsvwbillex, "vwbillex")

Dim commandbuilder_vwbillex As SqlCommandBuilder = New
SqlCommandBuilder(davwbillex)

mrow = dsvwbillex.Tables(0).NewRow()

mrow("retcode") = "54901"

mrow("inv_dt") = Date.Now.Date

dsvwbillex.Tables("vwbillex").Rows.Add(mrow)

Try

davwbillex.Update(dsvwbillex, "vwbillex")

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

If this works ok (you'll need, of course, a table with this structure), then
there's nothing wrong with the connection.

Let me know.

Regards,

Bernie

"Curt Emich" <ce****@comcast.net> wrote in message
news:e2**************@TK2MSFTNGP10.phx.gbl...

Thanks. Yeah, I caught that a while ago, but still nothing. I went to
this link

http://www.dotnetextreme.com/code/BasicAdo.asp

and copied the code verbatim and still don't get a new record. I'm
starting to wonder about my connection.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!