Hey Guys,
I am trying to create a little project for my college course.
I have been trying in vain over the past few days to sort out some errors i have and alot of google pages have brought me here where i have gained alot of knowledge so i thought it would be best to come here and get some advice.

right, my problems...

firstly, i will say from the off that one of the specifications of my course is that i dont use DATAGRID's. i know its a pain but unfortunately it has to be done :(

i have a form which inputs data into a database which isnt working.

here is the code:

rownumber = 0

        dbProvider = "Provider = Microsoft.ACE.OLEDB.12.0;"
        dbSource = "Data Source = G:\Users\Ross\Desktop\EXTENDED PROJECT !!!!!!\Databases\Login Details.accdb"

        loginconnection.ConnectionString = dbProvider & dbSource
        loginconnection.Open()

        If rownumber <> -1 Then
            Dim sqlquerydetails = "SELECT * FROM CustomerDetails"

            Dim dsinputNewRow As DataRow

            'dainput = New OleDb.OleDbDataAdapter(sqlquerydetails, loginconnection)    RESULTS IN DAINPUT NULL REFERENCE POINT

            dainput = New OleDb.OleDbDataAdapter(sqlquerydetails, loginconnection)

            Dim cbinput As New OleDb.OleDbCommandBuilder(dainput)


            dsinputNewRow = dsinput.Tables("CustomerDetails").NewRow()

            dsinputNewRow.Item("Surname") = surname
            dsinputNewRow.Item("FirstName") = firstname
            dsinputNewRow.Item("Address1") = address1
            dsinputNewRow.Item("DOB") = dob
            dsinputNewRow.Item("CarMake") = carmake
            dsinputNewRow.Item("PostCode") = postcode
            dsinputNewRow.Item("HouseNumber") = houseno
            dsinputNewRow.Item("ContactNumber1") = contact1
            dsinputNewRow.Item("ContactNumber2") = contact2
            dsinputNewRow.Item("BorrowingAmmount") = borrowing
            dsinputNewRow.Item("YearlyIncome") = yearlyin
            dsinputNewRow.Item("CreditRating") = credit
            dsinputNewRow.Item("Deposit") = deposit
            dsinputNewRow.Item("Price") = price
            dsinputNewRow.Item("Employed") = employed
            dsinputNewRow.Item("CarModel") = carmodel


            dsinput.Tables("CustomerDetails").Rows.Add(dsinputNewRow)
            dainput.Update(dsinput, "CustomerDetails")
            MsgBox("New Record added to the Database")
        End If

Now it is throwing up and error on the line:

dsinputNewRow = dsinput.Tables("CustomerDetails").NewRow()

it says: "Object reference not set to an instance of an object"

i have no idea what this means...

any ideas will be much appreciated.


Regards

Ross

This article has been dead for over six months. Start a new discussion instead.