OO40 Problem using excel vba

[GBall]

Hi,
can anyone tell me what is wrong with this code, as I get an error on the oradatabase.execute statement that informs me that 'Object does not support this property or method'

thanks.


Private Sub Zeroise_Amount_Fields()
Dim strSql As String
Dim strDB As String
Dim strSchema As String
Dim oraSession As Object
Dim oraDatabase As Object
Dim ln As Integer

strSql = "update t_ddd_complaint_details set "
strSql = strSql & "compensation_amt = " & 0 & ", "
strSql = strSql & "ex_gratia_amt = " & 0 & ", "
strSql = strSql & "fees_amt = " & 0 & ", "
strSql = strSql & "interest_amt = " & 0 & ", "
strSql = strSql & "inv_return_amt = " & 0 & ", "
strSql = strSql & "policy_surrender_amt = " & 0 & ", "
strSql = strSql & "vouchers_amt = " & 0 & ";"

strDB = "test.world"
strSchema = "scott/tiger"
Set oraSession = CreateObject("OracleInProcServer.XOraSession")
Set oraDatabase = oraSession.OpenDatabase(strDB, strSchema, 0&)
oraDatabase.Execute (strSql)

oraDatabase.Close
Set oraDatabase = Nothing

End Sub


Regards,
Graham

 

[stefanhei]

Hi.
The methode is called ExecuteSQL.

Stefan

 

[GBall]

Couldn't see for looking !!
thanks.

Regards,
Graham