Add Record - MS Access

[micky007]

Hi,

Ok i'm trying to add a new record to my database, below is the code i have but it doesnt seem to be working. Does anyone know why? I dont even get the message box saying new record added. Any help would be great.

''BEGIN DATABASE CONNECTION

            con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = W:\Textvertising\database.mdb"

            da = New OleDb.OleDbDataAdapter(sql, con)

            logto = TextBox1.Text
            logfrom = TextBox2.Text
            logmessage = TextBox3.Text



            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsNewRow As DataRow

            dsNewRow = ds.Tables("SMS").NewRow()

            dsNewRow.Item("ID") = logid
            dsNewRow.Item("To") = logto
            dsNewRow.Item("From") = logfrom
            dsNewRow.Item("Message") = logmessage



            ds.Tables("SMS").Rows.Add(dsNewRow)

            da.Update(ds, "SMS")

            MsgBox("New Record added to the Database")

            ''END DATABASE CONNECTION

Thanks in advance

[cicatrix]

That's strange because your message box shoud be displayed regardles of how the Update will end (are you sure you don't get any error messages?)

Or maybe your Update takes too long and it's not finished when you click stop. Try to run through your code step by step using F8 key instead of simply running it.

[micky007]

Hi,

Noticed i get this error:

A first chance exception of type 'System.NullReferenceException' occurred in SMS Messaging Program.exe

What is it and how do i fix it?

[cicatrix]

Which line of code generates this exception?
Do you develop with 'devenv' (standard Visual Studio IDE) or something else?
If you put a breakpoint at the beginning of this procedure and then execute your code line by line (press F8 when breakpoint is hit) you'll find out what line uses a null reference.

Any of these lines can generate a null reference, I suppose:

dsNewRow.Item("ID") = logid
dsNewRow.Item("To") = logto
dsNewRow.Item("From") = logfrom
dsNewRow.Item("Message") = logmessage
 
ds.Tables("SMS").Rows.Add(dsNewRow)

Check the spelling of your fields.

Also check if the da variable is nothing or con variable is nothing.

[Pradeep1210]

dsNewRow.Item("ID") = logid

I hope ID is the primary key. Is the ID column in your table an AutoNumber field? If yes, then comment out that line.