|
web
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Cannot update Access Databaserelated to. Well, I have an Access 2007 database (also tried with Access 2003 with no success) and I am creating an application for my programming class (which is due this week) using VB2008. I am using Typed Datasets. The thing is that I cannot do a simple thing as updating a record. I do not get error messages either. I will post the code, if anyone could help me, I will be very grateful. Thanks a lot for your help. Private Sub update_new_user_password() Try 'Connection String in My.Settings: 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source="|DataDirectory|\DAL\Databases\v2 communications.accdb";Persist Security Info=True Dim ta As New v2_communicationsDataSetTableAdapters.V2DataLoginTableAdapter Dim dt As v2_communicationsDataSet.V2DataLoginDataTable Dim row As v2_communicationsDataSet.V2DataLoginRow dt = ta.GetData row = dt.FindByUserNameID(str_username.Trim) With row .BeginEdit() Debug.Print(.UserNameID & ", " & .Password) .Password = texnewpassword.Text Debug.Print(.UserNameID & ", " & .Password) .EndEdit() End With ta.Update(dt) Catch ex As Exception MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try End Sub Carlos,
I don't see new, deleted or changed data. Or I should misinterpret the method dt.GetData Cor Show quoteHide quote "C a r l o s A n t o n i o" <carlvazpr¿arroba?yahoo.com> wrote in message news:eqc2ylrzJHA.2480@TK2MSFTNGP06.phx.gbl... > Sorry for the x-posting. It's just I'm not sure which group this post is > related to. > > Well, I have an Access 2007 database (also tried with Access 2003 with no > success) and I am creating an application for my programming class (which > is due this week) using VB2008. I am using Typed Datasets. The thing is > that I cannot do a simple thing as updating a record. I do not get error > messages either. I will post the code, if anyone could help me, I will be > very grateful. > > Thanks a lot for your help. > > Private Sub update_new_user_password() > Try > > > 'Connection String in My.Settings: > 'Provider=Microsoft.ACE.OLEDB.12.0;Data > Source="|DataDirectory|\DAL\Databases\v2 communications.accdb";Persist > Security Info=True > > Dim ta As New > v2_communicationsDataSetTableAdapters.V2DataLoginTableAdapter > Dim dt As v2_communicationsDataSet.V2DataLoginDataTable > Dim row As v2_communicationsDataSet.V2DataLoginRow > > dt = ta.GetData > > row = dt.FindByUserNameID(str_username.Trim) > With row > .BeginEdit() > Debug.Print(.UserNameID & ", " & .Password) > .Password = texnewpassword.Text > Debug.Print(.UserNameID & ", " & .Password) > .EndEdit() > End With > > ta.Update(dt) > > Catch ex As Exception > MessageBox.Show(ex.Message, Application.ProductName, > MessageBoxButtons.OK, MessageBoxIcon.Exclamation) > End Try > > End Sub > > It is a Typed Dataset. That's why you do not see the SELECT statement in
the code (if that's is what you mean). I get to the desired row by "row = dt.FindByUserNameID(str_username.Trim)" line and the lines " Debug.Print(.UserNameID & ", " & .Password) " correctly print the old and new values respectively. So I get it to make the changes in the DataRow. But, I do not know why, changes are no reflected in the database and, as I stated before, I do not get error messages either. Thanks a lot, Carlos Show quoteHide quote "Cor Ligthert[MVP]" <Notmyfirstn***@planet.nl> wrote in message news:e2FovFtzJHA.480@TK2MSFTNGP06.phx.gbl... > Carlos, > > I don't see new, deleted or changed data. > > Or I should misinterpret the method dt.GetData > > Cor > > "C a r l o s A n t o n i o" <carlvazpr¿arroba?yahoo.com> wrote in message > news:eqc2ylrzJHA.2480@TK2MSFTNGP06.phx.gbl... >> Sorry for the x-posting. It's just I'm not sure which group this post is >> related to. >> >> Well, I have an Access 2007 database (also tried with Access 2003 with >> no success) and I am creating an application for my programming class >> (which is due this week) using VB2008. I am using Typed Datasets. The >> thing is that I cannot do a simple thing as updating a record. I do not >> get error messages either. I will post the code, if anyone could help >> me, I will be very grateful. >> >> Thanks a lot for your help. >> >> Private Sub update_new_user_password() >> Try >> >> >> 'Connection String in My.Settings: >> 'Provider=Microsoft.ACE.OLEDB.12.0;Data >> Source="|DataDirectory|\DAL\Databases\v2 communications.accdb";Persist >> Security Info=True >> >> Dim ta As New >> v2_communicationsDataSetTableAdapters.V2DataLoginTableAdapter >> Dim dt As v2_communicationsDataSet.V2DataLoginDataTable >> Dim row As v2_communicationsDataSet.V2DataLoginRow >> >> dt = ta.GetData >> >> row = dt.FindByUserNameID(str_username.Trim) >> With row >> .BeginEdit() >> Debug.Print(.UserNameID & ", " & .Password) >> .Password = texnewpassword.Text >> Debug.Print(.UserNameID & ", " & .Password) >> .EndEdit() >> End With >> >> ta.Update(dt) >> >> Catch ex As Exception >> MessageBox.Show(ex.Message, Application.ProductName, >> MessageBoxButtons.OK, MessageBoxIcon.Exclamation) >> End Try >> >> End Sub >> >> > Carlos
To update you have to change something. A dataadapter does not affect non changed rows. Cor Show quoteHide quote "C a r l o s A n t o n i o" <carlvazpr¿arroba?yahoo.com> wrote in message news:%23ASfqyvzJHA.4800@TK2MSFTNGP06.phx.gbl... > It is a Typed Dataset. That's why you do not see the SELECT statement in > the code (if that's is what you mean). I get to the desired row by "row = > dt.FindByUserNameID(str_username.Trim)" line and the lines " > Debug.Print(.UserNameID & ", " & .Password) " correctly print the old and > new values respectively. So I get it to make the changes in the DataRow. > But, I do not know why, changes are no reflected in the database and, as I > stated before, I do not get error messages either. > > Thanks a lot, > > Carlos > > > > > "Cor Ligthert[MVP]" <Notmyfirstn***@planet.nl> wrote in message > news:e2FovFtzJHA.480@TK2MSFTNGP06.phx.gbl... >> Carlos, >> >> I don't see new, deleted or changed data. >> >> Or I should misinterpret the method dt.GetData >> >> Cor >> >> "C a r l o s A n t o n i o" <carlvazpr¿arroba?yahoo.com> wrote in message >> news:eqc2ylrzJHA.2480@TK2MSFTNGP06.phx.gbl... >>> Sorry for the x-posting. It's just I'm not sure which group this post >>> is related to. >>> >>> Well, I have an Access 2007 database (also tried with Access 2003 with >>> no success) and I am creating an application for my programming class >>> (which is due this week) using VB2008. I am using Typed Datasets. The >>> thing is that I cannot do a simple thing as updating a record. I do not >>> get error messages either. I will post the code, if anyone could help >>> me, I will be very grateful. >>> >>> Thanks a lot for your help. >>> >>> Private Sub update_new_user_password() >>> Try >>> >>> >>> 'Connection String in My.Settings: >>> 'Provider=Microsoft.ACE.OLEDB.12.0;Data >>> Source="|DataDirectory|\DAL\Databases\v2 communications.accdb";Persist >>> Security Info=True >>> >>> Dim ta As New >>> v2_communicationsDataSetTableAdapters.V2DataLoginTableAdapter >>> Dim dt As v2_communicationsDataSet.V2DataLoginDataTable >>> Dim row As v2_communicationsDataSet.V2DataLoginRow >>> >>> dt = ta.GetData >>> >>> row = dt.FindByUserNameID(str_username.Trim) >>> With row >>> .BeginEdit() >>> Debug.Print(.UserNameID & ", " & .Password) >>> .Password = texnewpassword.Text >>> Debug.Print(.UserNameID & ", " & .Password) >>> .EndEdit() >>> End With >>> >>> ta.Update(dt) >>> >>> Catch ex As Exception >>> MessageBox.Show(ex.Message, Application.ProductName, >>> MessageBoxButtons.OK, MessageBoxIcon.Exclamation) >>> End Try >>> >>> End Sub >>> >>> >> > > Cor Ligthert[MVP] wrote:
> Carlos Isn't this the change?> > To update you have to change something. With row '... .Password = texnewpassword.Text '... end with Armin Yes it is.
Show quoteHide quote "Armin Zingler" <az.nospam@freenet.de> wrote in message news:%23oLhQuwzJHA.5728@TK2MSFTNGP03.phx.gbl... > Cor Ligthert[MVP] wrote: >> Carlos >> >> To update you have to change something. > > Isn't this the change? > > With row > '... > .Password = texnewpassword.Text > '... > end with > > > Armin > Carlos,
Sorry, I completely overlooked that. Can you change it to this to narrow your code and try this, I don't really not see anything Row.Password = "Whatever" That BeginEdit and EndEdit are for a databinded control, I assume that you did not do that, otherwise we know probably the problem. Cor Changed the line to [.Password = "whatever"] with same results. Also,
eliminated BeginEdit and EndEdit methods and still not working. Show quoteHide quote :-S "Cor Ligthert[MVP]" <Notmyfirstn***@planet.nl> wrote in message news:%23Qwqc9xzJHA.5684@TK2MSFTNGP04.phx.gbl... > Carlos, > > Sorry, I completely overlooked that. > > Can you change it to this to narrow your code and try this, I don't really > not see anything > > Row.Password = "Whatever" > > That BeginEdit and EndEdit are for a databinded control, I assume that you > did not do that, otherwise we know probably the problem. > > Cor > > > C a r l o s A n t o n i o wrote:
> Changed the line to [.Password = "whatever"] with same results. Also, What is row.rowstate directly after assigning the value?> eliminated BeginEdit and EndEdit methods and still not working. > :-S > What is the rowstate after executing ta.update? If ta.update is a function, what is the return value? Armin Hello all,
Thank you very much for your answers. After a some sleepless nights dealing with the problem, i noticed that the database was included in the project. Whenever i executed the code, VS copied the database into the BIN folder and doing its changes in the copy of the database, not the original. In the database properties, i set it to "Copy if Newer". That way i could open the copy of the DB in the BIN filder and could verify the changes in it. Thank you very much for your help, guys. Carlos Show quoteHide quote "Armin Zingler" <az.nospam@freenet.de> wrote in message news:uSI%23mUzzJHA.1432@TK2MSFTNGP02.phx.gbl... >C a r l o s A n t o n i o wrote: >> Changed the line to [.Password = "whatever"] with same results. Also, >> eliminated BeginEdit and EndEdit methods and still not working. >> :-S >> > > What is row.rowstate directly after assigning the value? > What is the rowstate after executing ta.update? > > If ta.update is a function, what is the return value? > > > Armin > C a r l o s A n t o n i o wrote:
> Hello all, Thanks for letting us know.> > Thank you very much for your answers. After a some sleepless nights > dealing with the problem, i noticed that the database was included in > the project. Whenever i executed the code, VS copied the database > into the BIN folder and doing its changes in the copy of the > database, not the original. > > In the database properties, i set it to "Copy if Newer". That way i > could open the copy of the DB in the BIN filder and could verify the > changes in it. > > Thank you very much for your help, guys. Armin 
Other interesting topics
Get url for pdf file from AxSHDocVw.AxWebBrowser
Attribute wanted how to remove a programmatically created DateTimePicker Application development pointers How to add control/component to the IDE toolbar Resizing the click area of a checkbox. Convert an untyped Data Table to a typed Data Table Trouble with Cross thread control access Saving Search for values in between two values in a string? |
|||||||||||||||||||||||
