|
Imports System.Data Imports System.Data.OleDb Imports System.IO Dim rsADO As ADODB.Recordset Dim cnADO As ADODB.Connection rsADO = New ADODB.Recordset() cnADO = CreateConnection() cnADO.Open() rsADO.ActiveConnection = cnADO rsADO.Open("SELECT * FROM CategoriesByName", cnADO, _ ADODB.CursorTypeEnum.adOpenDynamic, _ ADODB.LockTypeEnum.adLockOptimistic) rsADO.AddNew() rsADO.Fields("CategoryName").Value = "Test" rsADO.Fields("Description").Value = "Description" rsADO.Update() MessageBox.Show("Finished", "ADO Update") rsADO.Delete(ADODB.AffectEnum.adAffectCurrent) rsADO.Close() cnADO.Close() |