How to Add/Update/Delete Record using MS Access Database

Dear Admin,
i copied ur code for adding record in database. i've a strange situation, the code works fine, and i've no eny errors but as i run my app and add new record. i've no any error but for checking my record i open my table, i dont see my record. where i can b wrong? heres my code

Private Sub NewPasswordTextBox_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewPasswordTextBox.Enter
        OleDbConnection1.Open()
        cb = New OleDbCommand("select * from Administrator", OleDbConnection1)
        dr = cb.ExecuteReader()
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If OldPasswordTextBox.Text.Equals(NewPasswordTextBox.Text) Then
            If OldPassword.Text.Equals("Old Password") Then
                While dr.Read
                    If Username2TextBox.Text.Equals(dr("UserName").ToString) Then
                        Dim dt As DataTable = ds.Tables("Administrator")
                        dt.Rows(0)("Password") = NewPasswordTextBox.Text
                    End If
                End While
            ElseIf OldPassword.Text.Equals("Password") Then
                Dim dt As DataTable = ds.Tables("Administrator")
                Dim dr = dt.NewRow
                Dim bm = Me.BindingContext(dt)
                dr.Item("UserName") = Username2TextBox.Text
                dr.Item("Password") = NewPasswordTextBox.Text
                OleDbDataAdapter1.Fill(ds, "Administrator")
                dt = ds.Tables("Administrator")
                dt.Rows.Add(dr)
                dt.AcceptChanges()
                OleDbDataAdapter1.Update(dt)
            End If
        End If
        OleDbConnection1.Close()
    End Sub
<vb>

we have an application where i need to run select query for more than 30 to 40 times in different location.the problem which i was facing is for some times i was unable to fetch data from database it was returning null

cn.Open()
Dim sql As String
sql = "update eform set name = '" & TextBox2.Text & "',address = '" & TextBox3.Text & "',contact = '" & TextBox4.Text & "',dob = '" & TextBox5.Text & "',post = '" & TextBox6.Text & "',depart = '" & ComboBox1.Text & "',head = '" & TextBox7.Text & "',payscale = '" & TextBox8.Text & "',date = '" & TextBox9.Text & "'eid = '" & TextBox1.Text & "'"
Dim cmd As New OleDbCommand(sql, cn)
cmd.ExecuteNonQuery()
MsgBox("Data updated")
cn.Close()
Sir where is the syntax error in this program

can you help me that program will shows when you add it shows that has already a details

HI can help you help mi put all of the info in my listview into database?
I already know how to put data at my database using textbox but it will only put one items at a time, so what i did i put all the items in listview but i cant put all items in the listview in my database... do please help me, I'm making a POS, the idea is when the customer buys multiples items, the items i clik in datagrid will be put at my listview but I dont know how to put all the items in my listview into the database..
here's where i dont know what todo

Dim ca As New OleDb.OleDbCommandBuilder(dapractice)
Dim dsNewRow As DataRow

dsNewRow = dspractice.Tables("Practice").NewRow()
dsNewRow.Item("Item") = ListView1."I need all of my multiple items in a column to be put in database"
dsNewRow.Item("Stock") = ListView1.

dspractice.Tables("Practice").Rows.Add(dsNewRow)
dapractice.Update(dspractice, "Practice")

i m doing food ordering system and i wan to connect it to ms. access... sumore wen i change food name at the database its nt changing in vb.net... help me... and i aso wan code for update my final result in database back.... tq......

hello,,i have trouble to run my setup/exe in other machine/computer because the database in invalid path,,so my question:

how to run my app in other machine without vb or vb.net installed in that machine??
i realy need your help..

Hi..

I have a problem here, it's because i'm using a text box to sent data to data base.. why it's display like this?

INSERT INTO [Inventory_Desktop_Laptop(Manual)][Manual_Host_Name],[Location],[Level_Department],[Type],[Manual_Serial_No],[Manual_Make],[Manual_Model],[Manual_RAM],[HDD],[Owner],[Maint_Expiry],[Received],[Monitor],[Safeboot],[Remark],[Agreement],[Lease_Co],[Lease_From],[Lease_To],[Lease_Period],[Original_Cost],[Status],[Chronology]) VALUES('','','6','6','','','','','','','','','','','','','','','','','','','','')System.Data.SqlClient.SqlException: Incorrect syntax near 'Manual_Host_Name'. at System.Data.SqlClient.SqlConnection.OnError(SqlException exception, Boolean breakConnection) at System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, Boolean breakConnection) at System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj) at System.Data.SqlClient.TdsParser.Run(RunBehavior runBehavior, SqlCommand cmdHandler, SqlDataReader dataStream, BulkCopySimpleResultSet bulkCopyHandler, TdsParserStateObject stateObj) at System.Data.SqlClient.SqlCommand.RunExecuteNonQueryTds(String methodName, Boolean async) at System.Data.SqlClient.SqlCommand.InternalExecuteNonQuery(DbAsyncResult result, String methodName, Boolean sendToPipe) at System.Data.SqlClient.SqlCommand.ExecuteNonQuery() at AddManual.Submit1_Click(Object sender, EventArgs e) in C:\Documents and Settings\erizikri.wahab\My Documents\Visual Studio 2008\WebSites\WebSite1\AddManual.aspx.vb:line 71

so, i hope that you can help me by give me some code or what ever.. =D

thx and regard,
woolaa.

i need a program in vb.net that will change the value of a field or update a field.

my project title implementation of mail server using smtp.i have no idea in asp.net with c#.what i do plz help 4 me.

Am new in .net and programming as well, i would like you help me overcome this challenge. l downloaded your hotel reservation system source code, l have tried to open the "frmAccounts" without success.i did try to edit code by changing reference in WHERE CLAUSE but really l don't even understand the error msg. I quote msg: Run-time error '-2147217365(80040e37)'. The Microsoft Office Access Engine cannot find the input table or query 'Client'. Make sure it exists and that its name is spelled correctly. Please kindly help me out. counting on your usual assistance. thank you.

Finally I a true sample

when change text to number in database it produce error! any solution?

i downloaded your code
it works for .mdb database
can u help me with .accdb database format

please help me sir, i want your help as early as possible,please.

Hi sir,

I was studying vb.net for just a couple of weeks, i read some online tutorial on basics of vb.net and tried it and it worked. I also tried to connect database from access to vb and i made it. I also made some buttons to show records in my database like next,previous buttons but i stuck on update,delete, and save button. Until i found this site, i already downloaded your file and studied the codes in there.

But my problem is, i dont know the functions of codes in that file, like the syntax "with" "gModule" etc.

im working with our thesis "employee management system" our thesis aims to keep the record of the employee's and we also include attendance.

In access i have a query that computes the total working hours of employee per day
here's the query i use.
Number of Hours: DateDiff("n",[Time-in],[Time-out])/60
But i dont know if VB.net have a syntax or code that updates the current time.

I hope that you can help me sir, i need to understand every piece of codes in your HowtoAddUpdateDeleteRecord file.

thank you

vb.net
add coding in ms access