Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

DataENvironment + DataReport
Autor: guwa
Datum: 18.10.03 15:38
Hallo Profis, Gleich vorweg sorry für diese lange Anfrage! Ich arbeite mit Wk2 VB6 SP5 In einem Projekt verwend ich ein Dataenvironmet und den DataReport. Ich erstelle mit InstallShield8.2 für dieses Prog. ein MSI Paket. Nachdem die Installation durchgelaufen ist und ich das Prog. starte und mir einen Bereicht anzeigen lassen möchte bekomme ich immer die FM *Provider nicht richtig installiert* Ich verwende im meinem Projekt folgende Verweise Microsoft DAO 3.51 Microsoft ActiveX DataObjects 2.7 Microsoft Data Binding Collection VB6 SP4 Microsoft Data Environment Instance 1 Sp4 Microsoft Data Formating Object Library 6.0 SP4 Microsoft Data Report Designer VB6 SP4 Microsoft Scriping Runtime In meinem MSI Paket habe ich folgende MergeModule eingebunden. DAO 350 DCOM95 Microsoft Component Category Manager Microsoft Data Access Component 2.5 Microsoft Data Access Component 2.6 Microsoft Data Access Component 2.7 Microsoft Data Binding Collection Microsoft Data Environment Runtime 6.0 Microsoft Data Formating Object Library 6.0 Microsoft Data Report Designer 6.0 Microsoft Visual Basich Virtual Maschine 6.0 Habe auch schon alle Jet- MergeModule eingebunden und trotzdem Fehler. Kann ir bitte jemand helfen, bin über jeden Tipp dankbar. Stehe total daneben. so greife ich auf die Daten zu REM Datenbank öffnen Set MyDBPRP = OpenDatabase(gstrgDB_PFAD & gstrgDB_NAME) 'REM Erstelle Abfrage Qry = vbNullString Qry = Qry + "SELECT T_VERMNUMMER.VERMNR_lfnd,T_ANSTALTEN.ANST_NAME, " Qry = Qry + "T_VERMNUMMER.VERMNR, T_VERMNUMMER.SCHEMA_A, T_VERMNUMMER.SCHEMA_B " Qry = Qry + "FROM T_MITARBEITER INNER JOIN (T_ANSTALTEN INNER JOIN T_VERMNUMMER ON" Qry = Qry + "T_ANSTALTEN.ANSTALT_lfnd = T_VERMNUMMER.ANSTALTNR_lfnd) ON " Qry = Qry + "T_MITARBEITER.MANR_lfnd = T_VERMNUMMER.MANR_lfnd " Qry = Qry + "WHERE T_MITARBEITER.MANR_lfnd LIKE " + frmHaupt.lblMANR_lfnd + " ORDER BY 2, 3;" REM PRP = Projectname REM dePRP = DataEnvironmentname PRP.dePRP.rsFreieSelectionY.Open PRP.dePRP.rsFreieSelectionY.Close PRP.dePRP.Commands.Item("FreieSelectionY").CommandType = adCmdText PRP.dePRP.Commands.Item("FreieSelectionY").CommandText = "" PRP.dePRP.Commands.Item("FreieSelectionY").CommandText = Qry REM Hier wird der Bereicht geöffnet rptMaVermNr.Show lg aus Linz Manfred Gutwald lg Manfred

DataENvironment + DataReport

606

guwa

18.10.03 15:38

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen