Item is read only (1 Viewer)

[harrisw]

When I try to run the code below the btnprocess_click gives me a item is read only. I cant see where Im going wrong.

Any one help

Public cnConnectString As String = "provider=microsoft.jet.oledb.4.0;Data Source=D:\B2BWork\MultiDirectors\multidirs.mdb;userid=admin;password=;"
Public cnConnect As New OleDb.OleDbConnection(cnConnectString)
Public rsAllDirs As New ADODB.Recordset()
Public rsMultiDirs As New ADODB.Recordset()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

cnConnect.Open()
rsAllDirs.Open("Select * FROM tblDirsDump", cnConnectString, ADODB.CursorTypeEnum.adOpenDynamic)
txtSize.Text = rsAllDirs.RecordCount
rsAllDirs.Close()

End Sub

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

rsAllDirs.Open("SELECT [Business Location URN] FROM tblDirsDump GROUP BY [Business Location URN]", cnConnectString, ADODB.CursorTypeEnum.adOpenDynamic)
rsMultiDirs.Open("SELECT * FROM tblOutput", cnConnectString, ADODB.CursorTypeEnum.adOpenDynamic)

rsAllDirs.MoveFirst()
rsMultiDirs.MoveFirst()

Do Until rsAllDirs.EOF
rsMultiDirs.AddNew()
rsMultiDirs(0) = rsAllDirs(0)
rsAllDirs.MoveNext()
rsMultiDirs.Update()
Loop

End Sub

 

[harrisw]

It appears to be the bit below thats doing it.

rsMultiDirs(0) = rsAllDirs(0)

Help

 

[WayneRyan]

Harris,

Not sure what we're doing here, but this syntax should help:

Do Until rsAllDirs.EOF
   rsMultiDirs.AddNew
   rsMultiDirs!SomeField = rsAllDirs!SomeField
   rsMultiDirs!SomeOtherField = rsAllDirs!SomeOtherField
   rsMultiDirs.Update
   rsAllDirs.MoveNext
   Loop

Wayne

 

[harrisw]

Nope that still doesnt work

I get
Expression is not a method
identifier expected
type character ! does not match declared data type adodb.recordset