pwken
asked on
Excel 2007 External Data Connection problem
I have an Excel workbook that contains 3 connections to an Oracle Database. The code I used to open the connection is apparently not compatible with Office 2007. I have spent many hours trying to decipher what it is that I need to do to make this work for both Office 2007 and Office 2003. Can someone please take a look at the code I have included and give me some examples of replacement code.
Dim wrkODBC As Workspace
Dim conORAP039 As Connection
Function Some_Function()
SetConnectionObject
'Run GetVehicleModels_Connection query "VEHICLE_MODEL" on 'Lists' worksheet
Sheets("Lists").Range("A1").QueryTable.Refresh BackgroundQuery:=False
End Function
Private Sub SetConnectionObject()
' Create ODBCDirect Workspace object and open Connection objects.
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "xxxxxx", "xxxxxx", dbUseODBC)
Workspaces.Append wrkODBC
' Note: The DSNs referenced below must be configured to
' use Microsoft Windows NT Authentication Mode to
' authorize user access to the Microsoft SQL Server.
Set conORAP039 = wrkODBC.OpenConnection("ORAP039", dbDriverNoPrompt, True, _
"ODBC;DATABASE=ORAP039;UID=xxxxxx;PWD=xxxxxx;DSN=ORAP039")
End Sub
Last Comment
Jan Karel Pieterse
It would help if you could tell us what part of the code errors and what the error message is.
This is not an issue of compatibility. The Workspace object is handled by an external DLL. -- MSRDO20.DLL ---
Check to see if the file exists in your windows/system32 directory... and if so, make sure it is included in the references in your VBA project.
Check to see if the file exists in your windows/system32 directory... and if so, make sure it is included in the references in your VBA project.
ASKER
Sorry about that. I do not get any errors. It just does not work. When I execute the code using Excel 2003 the connection opens and my table is refreshed. When I execute the code using Excel 2007 nothing happens. It appears to ignore the OpenConnectionOjbect part of the code.
I have three (3) data connections that I use in sequence. When the user enters a value into a cell that triggers the OpenConnectionObject part of the code then refreshes the necessary table (table1). The user then has additional options based on the results from the query. These options call the QueryTable.refresh method for there respective tables.
What I have found is that if I do the first refresh manually by right clicking in the table (table1) and selecting refresh, then the VBA code works for all the following QueryTable refreshes. I assume that this is because manually refreshing the first table is opening the connection allowing the other refreshes to work correctly.
I have three (3) data connections that I use in sequence. When the user enters a value into a cell that triggers the OpenConnectionObject part of the code then refreshes the necessary table (table1). The user then has additional options based on the results from the query. These options call the QueryTable.refresh method for there respective tables.
What I have found is that if I do the first refresh manually by right clicking in the table (table1) and selecting refresh, then the VBA code works for all the following QueryTable refreshes. I assume that this is because manually refreshing the first table is opening the connection allowing the other refreshes to work correctly.
ASKER
I added the the MSRDO20 "Microsoft Remote Data Object 2.0" to the reference list. It still does not work with Excel 2007?
Can you add a stop, trace through the code and verify that it is being executed?
ASKER
It appears though 2007 does not support the WorkSpace object. I did manage to get it to return:
Run time error '3633', can not load DLL '?????L'
Run time error '3633', can not load DLL '?????L'
SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
I was wondering if maybe the MSRDO20.DLL could not be found on your system?
Can you try to register it using REGSVR32
If that fails / gives you an error message, then maybe you ahve a dependend DLL missing as well.
Can you try to register it using REGSVR32
If that fails / gives you an error message, then maybe you ahve a dependend DLL missing as well.
ASKER
Thanks for the help so far.
I successfully ran REGSVR32 using MSRDO20.DLL with no problems.
The workbook in question has all the necessary references. It runs just fine when I run it on a machine that has Office 2003. When I run the exact same workbook on a different machine that has Office 2007 installed it fails to open the connection. No errors just does not even attempt to open the connection.
Since the refrences are contained in the project which is contained in the workbook and I am using the same workbook, then I would not expect a problem with refrences unless they did not exist on the machine.
I successfully ran REGSVR32 using MSRDO20.DLL with no problems.
The workbook in question has all the necessary references. It runs just fine when I run it on a machine that has Office 2003. When I run the exact same workbook on a different machine that has Office 2007 installed it fails to open the connection. No errors just does not even attempt to open the connection.
Since the refrences are contained in the project which is contained in the workbook and I am using the same workbook, then I would not expect a problem with refrences unless they did not exist on the machine.
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Problem solved.
ASKER
Thanks for all the help. Even though I discovered a fix myself, the information you provided has given me better insight into the workings of DLL's which I will need for future enhancements to this same project. I give you 1/2 the points for this valuable information.
Microsoft Excel
Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.
144K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
