Nu heb ik op het werk een nieuwe PC met XP gekregen. Voorheen had ik NT. Ik heb hiermee in Excel en VBA een paar leuke applicaties gemaakt die vanuit excel direct een query uitvoeren in een databank (Oracle, via ODBC).
Om maar even wild een lap code te posten, dit is wat ik doe:
Nu werkt dit niet meer op mijn nieuwe PC, hij loopt de mist in op wrkODBC.OpenConnection. Dat komt zeer waarschijnlijk omdat ik op mijn NT PC in de Visual Basic editor onder Add-Ins -> Add-In Manager een hele lijst met addins had. Nu met XP staat er helemaal niks. Commentaar van de helpdesk was 'jah, weet ik ook niet wat je allemaal had en hoe ik dat moet installeren'
Zijn dit de DAO-en die geinstalleerd moeten worden?
Om maar even wild een lap code te posten, dit is wat ik doe:
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| 'PURPOSE: ' open a table from Oracle and put the output in a temproary worksheet 'PARAMETERS: ' sConnStr IN connect string for ODBC ' sQuerySelect IN query to be executed ' lRows OUT number of rows from query ' lColumns OUT number of columns from query Sub ImportDataFromOracle(sConnStr As String, sQuerySelect As String, lRows As Long, lColumns As Long) Dim wrkODBC As Workspace Dim conPubs As Connection Dim rstTemp As Recordset 'Call MsgBox("Opening ODBC Connection") ' Open Microsoft Jet and ODBCDirect workspaces, Microsoft Jet database, and ODBCDirect connection. Set wrkODBC = CreateWorkspace("", "admin", "", dbUseODBC) Set conPubs = wrkODBC.OpenConnection("", , , sConnStr) 'Call MsgBox("Running Query") Set rstTemp = conPubs.OpenRecordset(sQuerySelect, dbOpenDynamic) OpenRecordsetOutput rstTemp lColumns = rstTemp.Fields.Count lRows = rstTemp.RecordCount + 1 rstTemp.Close conPubs.Close wrkODBC.Close End Sub |
Nu werkt dit niet meer op mijn nieuwe PC, hij loopt de mist in op wrkODBC.OpenConnection. Dat komt zeer waarschijnlijk omdat ik op mijn NT PC in de Visual Basic editor onder Add-Ins -> Add-In Manager een hele lijst met addins had. Nu met XP staat er helemaal niks. Commentaar van de helpdesk was 'jah, weet ik ook niet wat je allemaal had en hoe ik dat moet installeren'
Zijn dit de DAO-en die geinstalleerd moeten worden?
Signatures zijn voor boomers.