error in updating records in access db...

[vikas1111]

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

[code=vb]
Option Explicit
Dim c As New adodb.Connectio n
Dim cn As New adodb.Connectio n
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=Micr osoft.Jet.OLEDB .4.0;Data Source=D:\COMIO N.MDB;Persist Security Info=False")
rsnew2.Open "select * from company", c, adOpenDynamic
Me.text1.Text = rsnew2(2)
Me.text2.Text = rsnew2(3)

End Sub
[/code]

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.Recordse t.AddNew
is it correct???

[vikas1111]

rsnew2.Recordse t.AddNew
is it correct???

[code=vb]
Option Explicit
Dim c As New adodb.Connectio n
Dim cn As New adodb.Connectio n
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, adLockOptimisti c
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=Micr osoft.Jet.OLEDB .4.0;Data Source=D:\COMIO N.MDB;Persist Security Info=False")
rsnew2.Open "select * from company", c, adOpenDynamic
Me.text1.Text = rsnew2(2)
Me.text2.Text = rsnew2(3)

End Sub
[/code]

I am getting message that "edit is successful", but its not updating in database..
What should i do ????

[debasisdas]

try using this

[code=vb]
c.BeginTrans
c.execute "Your update command here"
c.CommitTtans
[/code]

[vikas1111]

try using this

[code=vb]
c.BeginTrans
c.execute "Your update command here"
c.CommitTtans
[/code]

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

[CODE=sql]"Update <TableName> Set <FieldName1>='M y 1st Record', <FieldName2>='M y 2nd Record', <FieldNameN>='M y N Record'"[/CODE]

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

[CODE=sql]"Update <TableName> Set <FieldName1>='M y 1st Record', <FieldName2>='M y 2nd Record', <FieldNameN>='M y N Record'"[/CODE]

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]

[CODE=vb]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[/CODE]

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