クリスタルレポートVB6で動的に8位置を設定

Question

私はVB6フロントエンド、バックエンドとしてSQL Server 2005、レポート用にCrystal Reports 8.5を持っています。

2つのデータベースがあるため、アプリケーションで実行時に場所を設定する必要があります。私の問題は、私がデータベースを変更するときですが、場所は同じままです。もし誰かが私を助けることができれば素晴らしいだろう。事前にお時間をいただきありがとうございます。私のコードはここにあります。

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 

Answer 1

このような接続文字列をフォーマットしてみてください。

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

DSN、UID、DSQの意味は直感的であり、それらはクリスタルでオーバーロードされています。

また、Connectのプロパティを同様に変更する必要があるサブレポートがないことを確認します。レポートにレコードセットを渡していないのはなぜ

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 

Answer 2

は、このようないくつかのコードを試してみてください？このようにして、サポートされている（つまりVB6が接続できる）データベースから動的にデータを取得し、複数のデータベースからデータをマージすることもできます。レポートにはデータ（レコードセット）のみが必要で、レポートはデータフィールド定義。明瞭にするために、

Answer 3

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 

Answer 4

：