Absturz VB2005 beim Speichern eines neu erstellten Datasets

[echino]

Hallo,

ich bin schier am verzweifeln. Jedesmal wenn ich ein Dataset neu erstelle und dieser gespeichert wird, stürzt mein Visual Studio 2005 Professional mit SP1 ab. Ich kann dann beim Neustart das Dataset bearbeiten und alles scheint i.O. zu sein, aber nach dem Erstellen eines Crystal Reports ist der Bericht immer leer. Wenn ich den Datenquellenqfad wechsle und keinen Dataset verwendet, funktioniert alles einwandfrei und der Report ist mit Werten aus der Tabelle gefüllt. Als DB nutze ich eine lokale DB unter SQL 2005 Express.

Hat jemand eine Idee?

Hintergrund der Verwendung eines Datasets ist, dass es mir nicht gelungen ist, den Crystal Report auf einem anderen Rechner zum laufen zu bringen. Hier wird immer eine Anmeldung an den SQL-Server verlangt. Die Infos zum SQL-Server hat er von meinem Entwicklerrechner übernommen. Ich will dies aber variable im Programmcode machen, was mir beim Crystal Report nicht gelingt:
strTemp = "Data Source=" & strServer & ";" ....

Alle Vorschläge sind willkommen.

[Andreas Kosch]

Hallo,

es ist sehr lange her, dass ich mit Crystal Reports zu tun hatte. Damals (Crystal Report 9) sah die Konfiguratinion der Datenbankverbindung so aus:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  ' Step 1: Login-Daten übergeben
  Dim aCREngTbl As CrystalDecisions.CrystalReports.Engine.Table
  Dim aCRTLOI As CrystalDecisions.Shared.TableLogOnInfo
  For Each aCREngTbl In osLoginDemo21.Database.Tables
    aCRTLOI = aCREngTbl.LogOnInfo
    With aCRTLOI.ConnectionInfo
      .ServerName = "(local)"
      .UserID = "sa"
      .Password = "<Hier kommt das Passwort hin>"
      .DatabaseName = "Northwind"
    End With
    aCREngTbl.ApplyLogOnInfo(aCRTLOI)
  Next aCREngTbl
  ' Step 2: ReportSource verbinden
  CrystalReportViewer1.ReportSource = osLoginDemo21
End Sub

Der DataSet-Weg hat damals auch funktioniert:

Private Sub Form1_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
  SqlDataAdapter1.Fill(OsDatasetReport1)
  ' Zum Test 2 neue Datensätze dem DataSet hinzufügen
  OsDatasetReport1.Customers.AddCustomersRow("KOSCH", "OSt", "Andreas Kosch", _
    "Entwickler", "Irgendwo", "Überall", "Thüringen", "99999", "S&S", "leer", "leer")
  OsDatasetReport1.Customers.AddCustomersRow("DYNDS", "DataRow:", "Dynamisch generiert", _
    "Laufzeit", " ", " ", " ", " ", "S&S", " ", " ")
  ' Erweitertes DataSet als Datenquelle für den Report zuweisen
  osCustomerDemo11.SetDataSource(OsDatasetReport1)
  CrystalReportViewer1.ReportSource = osCustomerDemo11
  ' Report als PDF-Datei exportieren
  MessageBox.Show("Export als PDF-Datei wird gestartet...", "Crystal Report 9")
  Dim aCRDFDO As New CrystalDecisions.Shared.DiskFileDestinationOptions()
  Dim sFileName As String = "C:\Temp\DataSetReport.pdf"
  aCRDFDO.DiskFileName = sFileName
  With osCustomerDemo11
    .ExportOptions.ExportDestinationType = _
       CrystalDecisions.Shared.ExportDestinationType.DiskFile
    .ExportOptions.ExportFormatType = _
       CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
    .ExportOptions.DestinationOptions = aCRDFDO
    .Export()
  End With
  MessageBox.Show("...Export als PDF-Datei ist fertig!", "Crystal Report 9")
End Sub

[echino]

Hallo Andreas,

vielen Dank. Variante 1 funktioniert einwandfrei. Wieder was gelernt :-)