DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

error updating access database using vb..

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Feb 2008

Posts: 5

Reputation: vikas1111 is an unknown quantity at this point

Solved Threads: 0

vikas1111

Offline

Newbie Poster

error updating access database using vb..

Feb 27th, 2008

Hi All..
I am trying to access records and edit and save the changes .. Here is the code

Private Sub cmd_edit_Click()
Dim addnew As Boolean
rsnew3.Open "select * from company", c, adOpenDynamic, adLockOptimistic
rsnew3.addnew
If text1.Text = "" Then
MsgBox " enter the company name"
text1.SetFocus
rsnew3.Fields("text1").Value = text1.Text
End If
If text2.Text = "" Then
MsgBox " enter the company address"
text2.SetFocus
rsnew3.Fields("text2").Value = text2.Text
End If
rsnew3.Update
rsnew3.Close
MsgBox " add new successful ", vbInformation, "successful"
End Sub

Private Sub Form_Load()
Dim cs As String
c.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\COMION.MDB;Persist Security Info=False")
rsnew2.Open "select * from company", c, adOpenDynamic
Me.text1.Text = rsnew2(2)
Me.text2.Text = rsnew2(3)

End Sub

I am getting message that "add new successful" but records are not actually updated...
What should i do ..? can any1 help me pls???

•

Join Date: May 2007

Posts: 537

Reputation: choudhuryshouvi is an unknown quantity at this point

Solved Threads: 49

choudhuryshouvi choudhuryshouvi is offline

Offline

Posting Pro

Re: error updating access database using vb..

Feb 27th, 2008

there will be a little bit modification on your code and everything will be ok.

try this :-

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim addnew As Boolean
 
addnew=true
 
on error goto err1
 
If text1.Text = "" Then
   MsgBox " enter the company name"
   text1.SetFocus
   exit sub
end if
 
If text2.Text = "" Then
   MsgBox " enter the company address"
   text2.SetFocus
   exit sub
end if
 
rsnew3.Open "select * from company", c, adOpenDynamic, adLockOptimistic
rsnew3.addnew
rsnew3!text1 = text1.Text
rsnew3!text2 = text2.Text
rsnew3.Update
 
if addnew=true then MsgBox " add new successful ", vbInformation, "successful"
 
if rsnew3.state=adstateopen then rsnew3.close
set rsnew3=nothing
 
exit sub
 
err1:
     err.clear
     addnew=false
     msgbox "error in creating the new record."
     set rsnew3=nothing
     exit sub 
End Sub
Dim addnew As Boolean

addnew=true

on error goto err1

If text1.Text = "" Then
   MsgBox " enter the company name"
   text1.SetFocus
   exit sub
end if

If text2.Text = "" Then
   MsgBox " enter the company address"
   text2.SetFocus
   exit sub
end if

rsnew3.Open "select * from company", c, adOpenDynamic, adLockOptimistic
rsnew3.addnew
rsnew3!text1 = text1.Text
rsnew3!text2 = text2.Text
rsnew3.Update

if addnew=true then MsgBox " add new successful ", vbInformation, "successful"

if rsnew3.state=adstateopen then rsnew3.close
set rsnew3=nothing

exit sub

err1:
     err.clear
     addnew=false
     msgbox "error in creating the new record."
     set rsnew3=nothing
     exit sub 
End Sub

get back with your result.

regards
Shouvik

Last edited by choudhuryshouvi; Feb 27th, 2008 at 5:18 am.

Shouvik_The_Expert_Coder
Have a problem? Don't worry just give me a call and I'll fix it for you.

•

Join Date: Feb 2008

Posts: 5

Reputation: vikas1111 is an unknown quantity at this point

Solved Threads: 0

vikas1111

Offline

Newbie Poster

Re: error updating access database using vb..

Feb 27th, 2008

Hi Shouvik..
Thanks .. I tried your code but i am getting the error msg "error in creating the new record."

•

Join Date: Jan 2008

Posts: 57

Reputation: werks is an unknown quantity at this point

Solved Threads: 1

werks

Offline

Junior Poster in Training

Re: error updating access database using vb..

Feb 27th, 2008

I get the problem if save the record with NULL value then it will save Empty String and if you save the record with a value it will not save any record because you don't specify the code to save the record..

Kenneth
"Better Than Yesterday"

•

Join Date: Jan 2008

Posts: 57

Reputation: werks is an unknown quantity at this point

Solved Threads: 1

werks

Offline

Junior Poster in Training

Re: error updating access database using vb..

Feb 27th, 2008

•

Originally Posted by vikas1111

Hi Shouvik..
Thanks .. I tried your code but i am getting the error msg "error in creating the new record."

In what line of code you get the error?

Kenneth
"Better Than Yesterday"

•

Join Date: Jan 2008

Posts: 57

Reputation: werks is an unknown quantity at this point

Solved Threads: 1

werks

Offline

Junior Poster in Training

Re: error updating access database using vb..

Feb 27th, 2008

Try removing the error handler to detect which line the error occur

Kenneth
"Better Than Yesterday"

•

Join Date: Feb 2008

Posts: 5

Reputation: vikas1111 is an unknown quantity at this point

Solved Threads: 0

vikas1111

Offline

Newbie Poster

Re: error updating access database using vb..

Feb 27th, 2008

Hi Kenneth...
I am getting error in these lines..
rsnew3!text1 = text1.Text
rsnew3!text2 = text2.Text

•

Join Date: Feb 2008

Posts: 5

Reputation: vikas1111 is an unknown quantity at this point

Solved Threads: 0

vikas1111

Offline

Newbie Poster

Re: error updating access database using vb..

Feb 27th, 2008

"I get the problem if save the record with NULL value then it will save Empty String and if you save the record with a value it will not save any record because you don't specify the code to save the record.. " You are right....