View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
RompStar RompStar is offline
external usenet poster
 
Posts: 29
Default OO4O execute a query against Oracle, VBA Excel 2003

I found that Oracle maintains Forums and there is one for OO4O and
Wizards:

Forum Home » Windows and .NET » OO4O and Wizards


Just to go Oracle.com

That's what I will try next.

On Sep 21, 10:58*pm, "Tim Williams" wrote:
Have you tried using ADO instead of OO4O ?
There will be many more examples when you get stuck...

anyway...

If you debug.print the SQL, can you run it successfully in your favorite
query tool ?

Tim

"RompStar" wrote in message

...

Any OO4O Oracle users out there ?


Ok, I am making this Excel VBA thing that will execute a series of
queries and bring in Analysis Data, the first step that I need to do
is execute a DDL query to create a Table:


Any variables that hold data are in the code, I just simplified it and
removed them, that all is good, I put watch on them to see what values
they got.


Sub Process_AdHoc_Analysis_Report()


Dim OraDynaset As Object
Dim objSession As Object
Dim objDataBase As Object


Dim sql1 As String


Set objSession = CreateObject("OracleInProcServer.XOraSession")
Set objDataBase = objSession.OpenDatabase("database", schema & "/" &
password, 0&)


sql1 = "create table " & tablename & "_1" & " as select * from table
where cmpgn_id='" & campaignid & "';"


objDataBase.ExecuteSQL (sql1) <-- here is the error "Run-time error
'440': Automation error


End Sub


Any idea how to execute a DDL query ? All I need is to just execute
this query, I don't need nothing returned to deal with it like with a
Select Statement. One would figure this was easy, not sure, I read the
OO4O Wiki and not very well documented.