darkfreedom
Member
- Joined
- Aug 30, 2006
- Messages
- 9
- Programming Experience
- Beginner
i want 2 update an access datavase frm my v.net program. d code is below:
Everything works fine but nothing is updated in the database for real!!!!
pls help
VB.NET:
[COLOR=#00007f]Public[/COLOR] [COLOR=#00007f]Sub[/COLOR] UserLog_Update([COLOR=#00007f]ByVal[/COLOR] Username [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]String[/COLOR], [COLOR=#00007f]ByVal[/COLOR] StatusText [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]String[/COLOR])
[COLOR=#00007f]Try[/COLOR]
conn.[COLOR=#00007f]Open[/COLOR]()
[COLOR=#00007f]Dim[/COLOR] sql [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]String[/COLOR] = "SELECT * FROM USER_LOG"
[COLOR=#00007f]Dim[/COLOR] dbcmd [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]New[/COLOR] OleDbCommand(sql, conn)
[COLOR=#00007f]Dim[/COLOR] da [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]New[/COLOR] OleDbDataAdapter(dbcmd)
[COLOR=#00007f]Dim[/COLOR] cb [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]New[/COLOR] OleDbCommandBuilder(da)
[COLOR=#00007f]Dim[/COLOR] DS [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]New[/COLOR] DataSet("USER_LOG")
[COLOR=#007f00] 'Dim DT As New DataTable
[/COLOR] da.Fill(DS, "USER_LOG")
[COLOR=#00007f]Dim[/COLOR] newLogRow [COLOR=#00007f]As[/COLOR] DataRow = DS.Tables("USER_LOG").NewRow
[COLOR=#00007f]Dim[/COLOR] countr [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]Integer[/COLOR] = DS.Tables("USER_LOG").Rows.Count
newLogRow.[COLOR=#00007f]Item[/COLOR]("Index") = countr + 1
newLogRow.[COLOR=#00007f]Item[/COLOR]("UserId") = Username
newLogRow.[COLOR=#00007f]Item[/COLOR]("UserStatus") = StatusText
newLogRow.[COLOR=#00007f]Item[/COLOR]("TimeStamp") = System.DateTime.[COLOR=#00007f]Now[/COLOR]
DS.Tables("USER_LOG").Rows.[COLOR=#00007f]Add[/COLOR](newLogRow)
DS.AcceptChanges()
[COLOR=#007f00] 'Saving to database
[/COLOR] da.UpdateCommand = cb.GetInsertCommand
da.Update(DS, "USER_LOG")
conn.[COLOR=#00007f]Close[/COLOR]()
[COLOR=#00007f]Catch[/COLOR] ex [COLOR=#00007f]As[/COLOR] Exception
MessageBox.Show(ex.ToString, "Error Encountered")
[COLOR=#00007f]End[/COLOR] [COLOR=#00007f]Try[/COLOR]
[COLOR=#00007f]End[/COLOR] [COLOR=#00007f]Sub[/COLOR]
pls help