Hallo Elmar,
Danke für Deine Unterstützung.
Die ODBC-Verknüpfung ist vorhanden. Wie schon ober geschrieben, funktioniert auf einem anderen Rechner dieses Programm. Es wurden die gleichen Schritte auf beiden Rechnern ausgeführt.
Über die von VB 8.0 angebotenen automatische Konvertierung wurde das neue Programm erstellt, bis auf ein paar kleinere Anpassungen.
Der Quelltext sieht etwas verkürzt so aus:
Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class CubeInterpreterForm
Inherits System.Windows.Forms.Form
'und hier gehts mit den Programmvariablen weiter
Private Cmd_CubeName As String
Private Cmd_DSN As String
Private Cmd_CubeTable As String
Dim tblWWS As DAO.Database
Dim tblCubeInfo As DAO.Recordset
Dim DecPatch As Byte 'wird für Umstellung der Ländereinstellung wg. Decimalanzeigefehler benötigt
Dim showFile As Boolean ' wird für Excelstart benötigt
Dim ShowSum As Boolean ' wird für Excel incl. Summen benötigt
'*************************************************************************************
' Method: CreateCubeUniversal
' Parameters: Bezeichner und Datenquelle (DSN)
' Description: Daten für Cube werden aus externer Tabelle eingelesen
'*************************************************************************************
Public Sub CreateCubeUniversal()
Dim fieldObject As Object
Dim mSQL As String
Dim DBConnect As String
Dim cmdCubeName As String
Dim cmdTBL As String
Dim cmdDSN As String
Dim CubeID As String
Dim looper As Short
'CubeUpdate abschalten
DCube1.AutoDataRefresh = False
cmdCubeName = Cmd_CubeName 'Kommandozeilenparameter
cmdTBL = Cmd_CubeTable
cmdDSN = Cmd_DSN
DBConnect = "ODBC;DATABASE=" & cmdTBL & ";DSN=" & cmdDSN
'Datenbank öffnen
tblWWS = DAODBEngine_definst.OpenDatabase(cmdDSN, DAO.DriverPromptEnum.dbDriverNoPrompt, True, DBConnect)
mSQL = "select * from DCubeKopf where CubeName='" & cmdCubeName & "'"
tblCubeInfo = tblWWS.OpenRecordset(mSQL, DAO.RecordsetTypeEnum.dbOpenDynaset)
tblCubeInfo.MoveFirst()
Do While Not tblCubeInfo.EOF
Debug.Print(tblCubeInfo.Fields("ID").Value)
Debug.Print(tblCubeInfo.Fields("Zugriff").Value)
Debug.Print(tblCubeInfo.Fields("Connect").Value)
CubeID = tblCubeInfo.Fields("ID").Value
'Verbindung aufbauen
usw.usw.usw...
Die Variable DBConnect enthält Werte aus dem Programmstart (Parameter) und sieht so aus:
ODBC;DATABASE=eazybusiness;DSN=EAZY
Ich vermute auch, daß es irgendetwas mit der DAO zu tun hat, denn auch der Aufruf
tblWWS = DAODBEngine_definst.OpenDatabase("ODBC")
funktioniert nicht.
Wo und wie erstellst Du DAODBEngine_definst finde ich im Quelltext nicht, auch auf dem Rechner wo es funktioniert.
Meine bevorzugte Entwicklungsumgebung ist "Clarion for Windows". Diese Programm brauche ich nur, um mit einem ActivX Daten anzuzeigen. Dieses ActivX funktioniert leider unter Clarion nur zum Teil.
Gruß
Peter
