Error Object reference not set to an instance of an object.

[CookieNZ]

The following prodedure should save a new row to the database.

I can't see what the error is, but when I create the command builder, the complier does not like dbsupport.

What have I done wrong

Dim NewRow As System.Data.DataRow
Dim dsadapter As OleDbDataAdapter
Dim dr As DataRow

dr = dssupport.Tables("Supportcall&quot.NewRow()

dr("ID&quot = txtcallnumber.Text
dr("Customer&quot = cmbcustomer.Text
dr("Description&quot = txtcalldescription
dr("Contact&quot = txtcallcontact.Text

'Get connection string
strconn = "Provider=Microsoft.jet.oledb.4.0;" & "Data Source =P:\Support Calls\mosaic.mdb"

'Build SQL string
insertsql = "INSERT INTO Supportcall(ID, Customer, Description, Contact)" & " VALUES(?,?,?,?)"

'Create new data adpater
dbsupport = New OleDbDataAdapter(insertSQL, strconn)

'Create command builder for adapter
cmbbuild = New OleDbDataAdapter(dbsupport)

'Get Insert command object
dbsupport.InsertCommand = cmbbuild.GetInsertCommand()

'Submit insert statement through adpater
dbsupport.Update(dssupport, "Supportcall&quot

'Tell data set changes are complete
dssupport.AcceptChanges()

 

[link9]

Looks like your case for insertSQL is not correct... that's probably your problem.

declared as insertsql

used as insertSQL

If that doesn't get it, then set a breakpoint in the code on that line, and when the debugger stops there, just mouse over all your vars and the one that reports its value as 'Nothing' is your culprit.


paul