Error in updating access db. using vb6.....

[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 ??????????

[wes4dbt]

What is the error?

[vikas1111]

run time error:::3251
Current recordset does not support updation..This may be a limitation of the provider or of the selected locktype

[wes4dbt]

You need to add the lock type when you open the recordset, like adLockOptimistic.

rsnew2.Open "select * from company", c, adOpenDynamic, adLockOptimistic

It defaults to a read only lock type if you don't

[vikas1111]

Still there is an error..
error is Run time error::3705
Operation is not allowed when object is open...

[wes4dbt]

what line?

[vikas1111]

what line?

error in this line...
rsnew2.Open "select * from company", c, adOpenDynamic, adLockOptimistic
I tried by changing renew2 to new recordset i.e (rsnew3) .. I am getting message that "edit is successful", but its not updating in database..

[wes4dbt]

This means that you have already opened the recordset sometime before. I don't see any code where you close the recordset. You should always close the recordset after you use it. You can check if its open like this

if rsnew2.State = adStateOpen then
   '  it is already open
else
    ' open rs
end if

[vikas1111]

This means that you have already opened the recordset sometime before. I don't see any code where you close the recordset. You should always close the recordset after you use it. You can check if its open like this

if rsnew2.State = adStateOpen then
   '  it is already open
else
    ' open rs
end if

rsnew2 or rsnew3????