Fehlermeldung "Auf eine geschlossene Datei kann nicht zugegriffen werden."

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Begiinner_for_One.

    Fehlermeldung "Auf eine geschlossene Datei kann nicht zugegriffen werden."

    Ausgelagert aus Zugriff auf Datei nach FileStream.Close verweigert, da komplett anderes Thema!

    Hallo,

    ich möchte kein neuen Thread aufmachen, daher nutze ich diesen hier mal.
    Ich habe ein Problem und steh seit Tagen auf dem Schlauch und im Internet habe ich auch nichts passendes gefunden.

    Ich habe eine Anwendung programmiert, die eine aus einer MySQL Daten rauszieht und diese in ein PDF (mit itextsharp) reinschreibt. Wenn ich diese Aktion zum ersten Mal starte nachdem ich die Anwendung starte ist auch alles gut, wenn ich die Transaktion ein zweites mal starte, dann erhalte ich die Fehlermeldung "Auf eine geschlossene Datei kann nicht zugegriffen werden."

    Nun habe ich hier mal den Tip SpaceyX genommen, habe aber immer noch das Problem. Beim zweiten Ausführen bekomme ich dann die Fehlermeldung bei pdfDoc.Open.

    VB.NET-Quellcode

    1. Sub PDFGen()
    3. ConStatus()
    5. MySQLCMD = Con.CreateCommand()
    6. With MySQLCMD
    7. .CommandType = CommandType.Text
    8. .CommandText = "SELECT `bestellinhalt`.`*`
    9. FROM `bestellinhalt`
    10. WHERE `bestellinhalt`.`Bestellnummer` ='" & UebergabeBestellnummer & "'
    11. ORDER BY `bestellinhalt`.`Pos`"
    12. .ExecuteNonQuery()
    13. End With
    15. Dim DTTB As New DataTable()
    16. Dim DATB As New MySqlDataAdapter(MySQLCMD)
    17. DATB.Fill(DTTB)
    18. Dim DRTB As MySqlDataReader = MySQLCMD.ExecuteReader(CommandBehavior.CloseConnection)
    20. 'pdfWrite = PdfWriter.GetInstance(pdfDoc, New FileStream(Linkadresse & Bestellnummer(zaehlerPosBestell) & ".pdf", FileMode.Append))
    22. If IsNothing(pdfWrite) Then
    23. pdfWrite = PdfWriter.GetInstance(pdfDoc, New FileStream(Linkadresse & Bestellnummer(zaehlerPosBestell) & ".pdf", FileMode.OpenOrCreate, FileAccess.ReadWrite))
    24. Else
    25. pdfWrite = PdfWriter.GetInstance(pdfDoc, New FileStream(Linkadresse & Bestellnummer(zaehlerPosBestell) & ".pdf", FileMode.Append, FileAccess.Write))
    26. End If
    28. pdfDoc.Open()
    30. PCB = pdfWrite.DirectContent
    32. HoeherRunter = 226
    33. zaehlerInhalt = 0
    34. If (DTTB.Rows.Count) > 0 Then
    36. PCB.BeginText()
    38. Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
    39. PCB.SetFontAndSize(bf, 9)
    41. posTextBreite = 50
    42. posTextHoehe = 735
    44. Do
    45. 'For zaehlerInhalt = 0 To DTTB.Rows.Count - 1
    47. While DRTB.Read()
    48. HoeherRunter = HoeherRunter + 10
    49. Aufbauzaehler = 0
    50. zaehlerInhaltAufbau = 0
    52. 'Do While Aufbauzaehler < 6
    53. PCB.SetTextMatrix(posTextBreite, posTextHoehe - HoeherRunter)
    54. PCB.ShowText(DRTB.GetValue(0))
    55. Aufbauzaehler = Aufbauzaehler + 1
    56. zaehlerInhaltAufbau = zaehlerInhaltAufbau + 1
    58. PCB.SetTextMatrix(posTextBreite + 50, posTextHoehe - HoeherRunter)
    59. PCB.ShowText(DRTB.GetValue(1))
    60. Aufbauzaehler = Aufbauzaehler + 1
    61. zaehlerInhaltAufbau = zaehlerInhaltAufbau + 1
    63. HoeherRunter = HoeherRunter + 10
    64. 'Loop
    65. End While
    66. Loop While DRTB.NextResult
    67. 'Next
    68. End If
    70. 'NewPagePDF()
    72. PCB.EndText()
    73. pdfDoc.Close()
    74. pdfWrite.Close()
    76. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende