crystal reports 8 - legen Sie die Position dynamisch in vb6

Ich habe ein VB6-Frontend, SQL Server 2005 als back-end und Crystal Reports 8.5 für die Berichte.

Ich brauche, um den Ort festzulegen, die zur Laufzeit meiner Anwendung, wie ich 2 Datenbanken. Mein problem ist, dass wenn ich die Datenbank ändern, aber die Lage bleibt die gleiche. Es wird großartig sein, wenn jemand kann mir helfen. Vielen Dank im Voraus für Ihre Zeit, und hier ist mein code.

Private Sub prin_Click()
With CrystalReport1
    .Connect = MDI1.txtcn --> this is my connection info "driver={sql server};server=server;database=database;uid=user;pwd=password"        
    .DiscardSavedData = True
    .Action = 1
    .PrintReport
End With
+1 für Klarheit. willkommen ALSO.
Für mein eigenes wissen, was CR Bibliothek benutzt du? CRAXDDRT.dll? CRAXDRT.dll?
hi Bobby auch nicht sicher bin, wie ich bin, etwas neues zu crystal-Reports-Bericht.Ich habe gerade legen Sie die crystal-Reports-Bericht-Steuerelement aus-Komponente in vb6.Wo finde ich diese dll.Vielen Dank für Ihre Zeit.

InformationsquelleAutor Monshine | 2011-01-21

  1. 2

    Versuchen, einige code wie folgt:

    Private Sub cmdSetLocations_Click()
    Dim CrxApp As New CRAXDRT.Application
    Dim CrxRep As CRAXDRT.Report
    Dim CrxSubRep As CRAXDRT.Report

    Dim strReport As String
    Dim i As Integer, ii As Integer

    strReport = "[Path to report file]"
    Set CrxRep = CrxApp.OpenReport(strReport)

    SetReportLocation CrxRep

    For i = 1 To CrxRep.Sections.Count
        For ii = 1 To CrxRep.Sections(i).ReportObjects.Count
            If CrxRep.Sections(i).ReportObjects(ii).Kind = crSubreportObject Then
                Set CrxSubRep = CrxRep.OpenSubreport(CrxRep.Sections(i).ReportObjects(ii).SubreportName)
                SetReportLocation CrxSubRep
            End If
        Next ii
    Next

    'open your report in the report viewer

    Set CrxApp = Nothing
    Set CrxRep = Nothing
    Set CrxSubRep = Nothing
End Sub

Private Sub SetReportLocation(ByRef RepObj As CRAXDRT.Report)
    Dim CrxDDF As CRAXDRT.DatabaseTable
    Dim CP As CRAXDRT.ConnectionProperties

    For Each CrxDDF In RepObj.Database.Tables
        Set CP = CrxDDF.ConnectionProperties
        CP.DeleteAll
        CP.Add "Connection String", "[Your connection string goes here]"
    Next

    Set CrxDDF = Nothing
    Set CP = Nothing

End Sub

    InformationsquelleAutor Matt Wilko

  2. 1
    With CR
     .ReportFileName = App.Path + "\Labsen2.rpt"
     .SelectionFormula = "{PersonalCalendar.PersonalCalendarDate}>= Date(" & Year(DTPicker1) & "," & Month(DTPicker1) & "," & Day(DTPicker1) & ") and {PersonalCalendar.PersonalCalendarDate}<=date(" & Year(DTPicker2) & "," & Month(DTPicker2) & "," & Day(DTPicker2) & ") and {Department.DepartmentName}= '" & Combo1.Text & "'"
     .Formulas(0) = "tglAwal = '" & DTPicker1.Value & "'"
     .Formulas(1) = "tglAkhir = '" & DTPicker2.Value & "'"
     .Password = Chr(10) & "ithITtECH"
     .RetrieveDataFiles
     .WindowState = crptMaximized
     .Action = 1
 End With

    InformationsquelleAutor Rizki Noor Laksana

  3. 0

    Versuchen, formatieren Sie die Verbindungszeichenfolge wie diese:

    DSN=server;UID=database;PWD=password;DSQ=user

    Den Bedeutungen von DSN, UID, DSQ sind counter-intuitiv, Sie sind überlastet, die von Crystal.

    Überprüfen Sie auch, Sie haben keine Unterberichte, deren Connect Eigenschaften brauchen würde, um in ähnlicher Weise geändert.

    Hallo und vielen Dank für Ihre Antwort.Ich habe es wie Sie sagen, aber jetzt bin immer Meldung: run-time error '20599' sql server kann nicht geöffnet werden.mein connection string:crystalreport1.Connect = "DSN=datapro1;UID=sal_mil;PWD=ss;DSQ=sa", wo datapro1 ist mein servername und sal_mil meiner Datenbank.Irgendeine Idee?nochmals vielen Dank für Ihre Zeit und Antwort.
    Häufiges problem ist, dass der ServerName und der Datenbankname gespeichert werden, in der crystal Reports-Bericht. Was ich getan habe um dieses Problem zu lösen, ist die Erstellung einer Crystalreport-Objekt in VB6-code und legen Sie die Verbindungszeichenfolge auf den richtigen server und die Datenbank und legen Sie dann die reportsource " eingestellt, um eine Abfrage im Stil der bestehenden crystal SQL, aber ohne Angabe der name der Datenbank ... SELECT * FROM MyTable anstelle von SELECT * FROM MyDatabase.dbo.MyTable. Ich habe mein start in die Entwicklung mit MS Access, also war es eine große Umstellung, wenn ich arbeitete mit Crystal. Crystal 10 ist viel besser, wenn Sie aktualisieren können.
    Hallo und danke für Eure Antworten.Mein problem ist, wie man ändern Sie den Speicherort der Datenbank in crystal report zur Laufzeit in vb6.Wenn du einen Beispiel-code es wird toll

    InformationsquelleAutor onedaywhen

  4. 0

    Warum nicht das recordset übergeben zu Ihrem Bericht? Auf diese Weise werden Sie in der Lage sein, Daten von jedem unterstützten (ich meine VB6 eine Verbindung herstellen können) Datenbanken dynamisch, Sie können auch Zusammenführen von Daten aus mehreren Datenbanken, in Ihrem Bericht wird die übermittlung von Daten benötigen(recordset) und nur-report erstellt, mit Daten-Feld-Definition.

    InformationsquelleAutor bjan

Schreibe einen Kommentar