how to update ms access database

Question

2.00/5 (1 vote)

See more:

can someone please guide me on how i can update certain records in my ms access database...
i have a table called contacts and the fields are:

contact id, first name, last name, phone number, address, e-mail etc

now on my vb.net form i have a button called update and when that is pressed i want the text enetered into the textbox to be update for that record.

for e.g i wish to update the address of contact id 1, how can i do this??

i have spent over 4 hours trying to achieve this but i keep getting errors..

please help!

thanks

Posted 20-Feb-12 14:03pm

alom_93

Add a Solution

Comments

Sergey Alexandrovich Kryukov 20-Feb-12 21:27pm

How can we know where did you fail? How about a code sample, sharing your specific problems?
--SA

alom_93 21-Feb-12 14:58pm

Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click

dim con as new oledb.oledbconnection
dim da as new oledb.oledbdataadapter
dim fn as string
Dim c As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & fn
dim ds as new dataset

con.connectionstring=(c)
con.open
da.fill(ds,"s")
con.close
inc=-1

Dim ca As New OleDb.OleDbCommandBuilder(da)

ds.Tables("s").Rows(inc).Item(1) = TextBox2.Text

ds.Tables("s").Rows(inc).Item(2) = TextBox3.Text

ds.Tables("s").Rows(inc).Item(3) = TextBox4.Text

ds.Tables("s").Rows(inc).Item(4) = TextBox5.Text

ds.Tables("s").Rows(inc).Item(5) = TextBox6.Text

ds.Tables("s").Rows(inc).Item(6) = TextBox7.Text

ds.Tables("s").Rows(inc).Item(7) = TextBox8.Text

ds.Tables("s").Rows(inc).Item(8) = TextBox9.Text

da.Update(ds, "s")
MsgBox("updated")

Varun Sareen 20-Feb-12 22:51pm

Please share some sample code.

alom_93 21-Feb-12 11:41am

Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click

dim con as new oledb.oledbconnection
dim da as new oledb.oledbdataadapter
dim fn as string
Dim c As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & fn
dim ds as new dataset
con.connectionstring=(c)
con.open
da.fill(ds,"s")
con.close
inc=-1
Dim ca As New OleDb.OleDbCommandBuilder(da)

ds.Tables("s").Rows(inc).Item(1) = TextBox2.Text

ds.Tables("s").Rows(inc).Item(2) = TextBox3.Text

ds.Tables("s").Rows(inc).Item(3) = TextBox4.Text

ds.Tables("s").Rows(inc).Item(4) = TextBox5.Text

ds.Tables("s").Rows(inc).Item(5) = TextBox6.Text

ds.Tables("s").Rows(inc).Item(6) = TextBox7.Text

ds.Tables("s").Rows(inc).Item(7) = TextBox8.Text

ds.Tables("s").Rows(inc).Item(8) = TextBox9.Text

da.Update(ds, "s")
MsgBox("updated")

Ariel Riyo 22-Feb-12 3:07am

just update your question instead of posting it as a comment.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

chuan0308 · Answer 1 · 2012-02-21T20:56:00

first you should put this code on the upper part of the codes just before the class of the form that you are using

VB

Imports System.Data.OleDb 'this would be the declaration of OLEDB namespace, this might be the reason why you are having blue line for OleDBConnection and OleDbDataAdapter because the namespace that handles this codes is not declared

VB

Dim con as new OleDBConnection
Dim ds As New DataSet
Dim da As New OleDbDataAdapter
con.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" &  My.Application.Info.DirectoryPath & "\dbase.mdb" 'dbase.mdb is the database file that you are using

da = New OleDbDataAdapter("select * from contacts where [contact id] = '" & Textbox1.text & "'", reservationConn) 'get the record based on the textbox containing the ID of the person that you want to edit

da.Fill(ds, "Contacts")
inc=-1 

ds.Tables("s").Rows(inc).Item(1) = TextBox2.Text 
ds.Tables("s").Rows(inc).Item(2) = TextBox3.Text 
ds.Tables("s").Rows(inc).Item(3) = TextBox4.Text 
ds.Tables("s").Rows(inc).Item(4) = TextBox5.Text 
ds.Tables("s").Rows(inc).Item(5) = TextBox6.Text 
ds.Tables("s").Rows(inc).Item(6) = TextBox7.Text 
ds.Tables("s").Rows(inc).Item(7) = TextBox8.Text 
ds.Tables("s").Rows(inc).Item(8) = TextBox9.Text 
da.Update(ds, "s")

MsgBox("updated")

*Note
You can try this code. Hope it helps!