Hallo zusammen ,
Habe mit CR9 und vb2005 Report erstellt. Jetzt will ich CR XI verwenden und habe Schwierigkeiten mit der Connection.
Code CR9: funktioniert soweit
CR XI : verbindung stimmt nicht ?
Allghemein habe ich wenig Ahnung mit diesem Produkt (CR XI verbindung mit VB). Für jede Hilfe wurde ich mich freuen.
Habe mit CR9 und vb2005 Report erstellt. Jetzt will ich CR XI verwenden und habe Schwierigkeiten mit der Connection.
Code CR9: funktioniert soweit
Code:
For Each crDBTab In crRep.Database.Tables
sDBNameTmp = sDBName
If colTables_DB2.Count() > 0 Then
For ii = 1 To colTables_DB2.Count()
If UCase(crDBTab.Name) = UCase(Me.colTables_DB2.Item(ii)) Then
sDBName = sDBName2
Exit For
End If
Next
End If
crDBTab.ConnectionProperties("User ID").value = UID
crDBTab.ConnectionProperties("Password").value = PWD
crDBTab.ConnectionProperties("Data Source").value = sDBName
crDBTab.ConnectionProperties("Jet System Database").value = SystemDB
Next crDBTab
crRep.RecordSelectionFormula = ReplaceSelectionFormula
Me.crv.ReportSource = Me.crRep
crv.ViewReport()
crv.Zoom(2) '2=ganze seite
dtStart = Now
Code:
Dim logOnInfo As New TableLogOnInfo()
logOnInfo = crDBTab11.LogOnInfo
logOnInfo.ConnectionInfo.Type = ConnectionInfoType.DBFile
logOnInfo.ConnectionInfo.Password = PWD
logOnInfo.ConnectionInfo.DatabaseName = sDBName logOnInfo.ConnectionInfo.ServerName = "Access"
crRepDoc.Database.Tables.Item(crDBTab11.Name).ApplyLogOnInfo(logOnInfo)