An example of an Update command
Attribute VB_Name = "Update Data"
Sub Update_Data()
Attribute Update_Data.VB_ProcData.VB_Invoke_Func = " \n14"
' Create and initialize the necessary objects
Dim OraSession As Object
Dim OraDatabase As Object
Dim EmpDynaset As Object
Dim ColNames As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("2:", "scott/tiger", 0&)
Set EmpDynaset = OraDatabase.DbCreateDynaset("select * from emp", 0&)
Set ColNames = EmpDynaset.Fields
i = 2
' the BeginTrans and CommitTrans are optional
OraSession.BeginTrans
While Worksheets("DataSheet").Cells(i, 1).Value <> ""
EmpDynaset.dbedit
For j = 1 To ColNames.Count
ColNames(j - 1).Value = Worksheets("DataSheet").Cells(i, j).Value
Next j
EmpDynaset.dbupdate
EmpDynaset.dbmovenext
i = i + 1
Wend
OraSession.CommitTrans
End Sub