error in updating records in access db...

[vikas1111]

Hi All..
I am accessing 2 colums from access database and updating them .

Option Explicit
Dim c As New adodb.Connection
Dim cn As New adodb.Connection
Dim cm As adodb.Command
Dim rsnew2 As New adodb.Recordset
 
Private Sub cmd_edit_Click()
 
If text1.Text = "" Then
    MsgBox " enter the company name"
    text1.SetFocus
    rsnew2.Fields("text1") = text1.Text
 End If
If text2.Text = "" Then
    MsgBox " enter the company address"
    text2.SetFocus
    rsnew2.Fields("text2") = text2.Text
 End If
rsnew2.Update
    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
 

There is error in RSNEW2.UPDATE ..
CAN ANYBODY HELP ME TO SOLVE MY PROBLEM ??????????

[debasisdas]

You need to call AddNew or Edit method of recordset before calling Update.

[vikas1111]

You need to call AddNew or Edit method of recordset before calling Update.

rsnew2.Recordset.AddNew
is it correct???

[vikas1111]

rsnew2.Recordset.AddNew
is it correct???

Option Explicit
Dim c As New adodb.Connection
Dim cn As New adodb.Connection
Dim cm As adodb.Command
Dim rsnew2 As New adodb.Recordset
Dim rsnew3 As New adodb.Recordset
 
 
Private Sub cmd_close_Click()
Unload.me
End Sub
 
Private Sub cmd_edit_Click()
rsnew3.Open "select * from company", c, adOpenDynamic, adLockOptimistic
If text1.Text = "" Then
MsgBox " enter the company name"
text1.SetFocus
rsnew3.Fields("text1") = text1.Text
 End If
If text2.Text = "" Then
MsgBox " enter the company address"
text2.SetFocus
rsnew3.Fields("text2") = text2.Text
End If
rsnew3.Update
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 "edit is successful", but its not updating in database..
What should i do ????

[debasisdas]

try using this

c.BeginTrans
c.execute "Your update command here"
c.CommitTtans
 

[vikas1111]

try using this

c.BeginTrans
c.execute "Your update command here"
c.CommitTtans
 

Error invalid sql statement...

[debasisdas]

Error invalid sql statement...

you need to write a valid sql statmnet .

[lotus18]

Error invalid sql statement...

You need to specify the table and the fields you want to update.
I think you need learn the basics of sql

Sample

"Update <TableName> Set <FieldName1>='My 1st Record', <FieldName2>='My 2nd Record', <FieldNameN>='My N Record'"

Remember enclosing with ' for string, # for dates, and nothing (as in nothing) if it is a number type. : )

[vikas1111]

You need to specify the table and the fields you want to update.
I think you need learn the basics of sql

Sample

"Update <TableName> Set <FieldName1>='My 1st Record', <FieldName2>='My 2nd Record', <FieldNameN>='My N Record'"

Remember enclosing with ' for string, # for dates, and nothing (as in nothing) if it is a number type. : )

I am using Microsoft Access Database.......

[debasisdas]

I am using Microsoft Access Database.......

kindly post the UPDATE query that you are executing

[vikas1111]

kindly post the UPDATE query that you are executing

Option Explicit
Dim C As New ADODB.Connection
Dim cn As New ADODB.Connection
Dim cm As ADODB.Command
Dim rsnew2 As New ADODB.Recordset
Dim rsnew3 As New ADODB.Recordset
 
 
Private Sub cmd_close_Click()
Unload.me
End Sub
 
Private Sub cmd_edit_Click()
rsnew3.Open "select * from company", C, adOpenDynamic, adLockOptimistic
If text1.Text = "" Then
MsgBox " enter the company name"
text1.SetFocus
rsnew3.Fields("text1") = text1.Text
 End If
If text2.Text = "" Then
MsgBox " enter the company address"
text2.SetFocus
rsnew3.Fields("text2") = text2.Text
End If
rsnew3.Update
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

Getting message that database has been updated.. but no changes are made ..

[debasisdas]

I asked you for your UPDATE query .

Refer to my previous post.

[vikas1111]

I asked you for your UPDATE query .

Refer to my previous post.

Option Explicit
Dim C As New ADODB.Connection
Dim cn As New ADODB.Connection
Dim cm As ADODB.Command
Dim rsnew2 As New ADODB.Recordset
Dim rsnew3 As New ADODB.Recordset
 
 
Private Sub cmd_close_Click()
Unload.me
End Sub
 
Private Sub cmd_edit_Click()
rsnew3.Open "select * from company", C, adOpenDynamic, adLockOptimistic
If text1.Text = "" Then
MsgBox " enter the company name"
text1.SetFocus
rsnew3.Fields("text1") = text1.Text
 End If
If text2.Text = "" Then
MsgBox " enter the company address"
text2.SetFocus
rsnew3.Fields("text2") = text2.Text
End If
C.BeginTrans
C.Execute "rsnew3.Update"
C.CommitTtans
 
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

[debasisdas]

Can't you understand what is a UPDATE query.

[lotus18]

Private Sub cmd_edit_Click()
If text1.Text = "" Then
     MsgBox " enter the company name"
     text1.SetFocus
     Exit Sub
ElseIf text2.Text = "" Then
     MsgBox " enter the company address"
     text2.SetFocus
     Exit Sub
Else
     C.Execute "Update Company Set text1='" & Text1.Text & "', text2='" & Text2.Text & "' Where ID='" & txtID.Text & "'" 
     MsgBox "Update successful ", vbInformation, "successful"
End If

Im assuming that your field names are text1 and text2 (I've based it on your codes) and lastly txtID.Text as your Primary Key (ID Field)

Rey Sean

[Killer42]

Subscribing .

[vikas1111]

Subscribing .

what???? i couldnt understand...

[lotus18]

what???? i couldnt understand...

He just wants to subscribe to this thread so that anytime he can go to this thread.

[vikas1111]

He just wants to subscribe to this thread so that anytime he can go to this thread.

Ok this site is new to me so i dont know much about it...

[lotus18]

Ok this site is new to me so i dont know much about it...

BTW, have you fixed your problem?

[vikas1111]

BTW, have you fixed your problem?

No there is 1 error. I am working on it.

[lotus18]

No there is 1 error. I am working on it.

Hope you got it right ^ ^ .

[Ali Rizwan]

HELLO Vikas,
Sorry for late,
This is the sample after doing all open the database you will see the changes.

Regards
>> ALI <<

[vikas1111]

Hope you got it right ^ ^ .

Problem finally solved.. Thanks all for helping..

addnew = True
 
On Error GoTo err1
 
If text1.Text = "" Then
   MsgBox " enter the c name"
   text1.SetFocus
   Exit Sub
End If
 
If text2.Text = "" Then
   MsgBox " enter the c addr"
   text2.SetFocus
   Exit Sub
End If
 
rsnew3.Open "select * from company", c, adOpenDynamic, adLockOptimistic
rsnew3.addnew
rsnew3.Fields("comp_name").Value = text1.Text
rsnew3.Fields("comp_addr").Value = text2.Text
rsnew3.Update
rsnew3.Close
If addnew = True Then MsgBox " add new successful ", vbInformation, "successful"
 
If rsnew3.State = adStateOpen Then rsnew3.Close
Set rsnew3 = Nothing