vba macro to insert into oracle tables

Hi

I have a work sheet I want the user to click the button and insert the data excel sheet into oracle table

how to do this please ?

Thanks

Can you provide me with an example PLS ?

I write this code but it gave me an error
PLS advise
find attached file


Sub uploadListOfItems()
'Oracle connection variables
Dim dbUserName As String
Dim dbPassword As String
dbUserName = "ORACLE_USERNAME"
dbPassword = "ORACLE_PASSWORD"

Dim dbDSN As String
dbDSN = "MY_TNS_ALIAS"

'Create and Set Session / Create Dynaset = Column Names
Dim OraSession As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")

Dim OraDatabase As Object
Set OraDatabase = OraSession.OpenDatabase("test101", "apps" / "apps")

Dim Oradynaset As Object
Set Oradynaset = OraDatabase.DBCreateDynaset("SELECT * FROM MY_ORACLE_TABLE", 0&)

'Upload data variables
Dim site As String
Dim item As String

'Initialize upload
ActiveSheet.Activate
Range("A2").Select
order_id = 1

'Iterate through each cell and upload to MY_ORACLE_TABLE
Do Until Selection.Value = ""
site = ActiveCell.Value
item = ActiveCell.Offset(0, 1).Value

'Add new record
Oradynaset.AddNew
Oradynaset.Fields("USERNAME").Value = Application.UserName
Oradynaset.Fields("SITE").Value = site
Oradynaset.Fields("ITEM").Value = item
Oradynaset.Update

Selection.Offset(1, 0).Select

order_id = order_id + 1
Loop
End Sub

Done !

Excuse me but i dont know what you are talking about