Opens a table-type recordset and then moves throug - Visual Basic , VB.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

Opens a table-type recordset and then moves throug...
Website: http://www.a1vbcode.com/
Submitted: 2/13/2000
Version: VB3
Compatibility: VB3,4,5,6
Category: Databases
Views: 12319
Opens a table-type recordset and then moves through the recordset using the .Edit method to edit a field in the table.
Declarations:
none
Code:
Sub EditRecordset() Dim dbs As Database, rst As Recordset Dim strPath As String Set dbs = OpenDatabase(strPath) Set rst = dbs.OpenRecordset("Employees", dbOpenTable) With rst ' Set current index. .Index = "LastName" ' Locate first record. .MoveFirst ' Begin loop. Do Until .EOF If !Title = "Manager" Then ' Enable editing. .Edit ' Change title. !Title = "Executive" ' Save changes. .Update End If ' Locate next record. .MoveNext ' End of loop. Loop ' Close recordset. .Close End With dbs.Close Set dbs = Nothing End Sub