Convertierungs-App läuft nicht mehr

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von stonline.

    Convertierungs-App läuft nicht mehr

    Hallo zusammen.

    Zuerst mal: ich bin ein absoluter Rookie und hab von VB Programmierung (und generell von Programmierung) nur wenig mehr Wissen wie ein Volkschüler. :S
    Ich habe vor vielen Jahren einen VB-Code "zusammengebastelt", der eine Textdatei in eine Access-MDB umwandelt.
    Der Code hat bei uns in der Firma bis vor kurzem noch wunderbar funktioniert, dann wurde unser SAP-System (das jede Nacht die Textdateien rausschreibt, die konvertiert werden müssen) auf die neueste Version umgestellt und seitdem läuft der Code nicht mehr.
    Die Textdateien haben sich nicht geändert, das habe ich überprüft.
    Natürlich ist niemand dran Schuld und ich habe mich jetzt daran gemacht, den Code zu reparieren (Visual Studio 2022).
    Wenn ich aus dem Code eine .exe generieren will bekomme ich immer folgende Fehlermeldung (7x):

    Quellcode

    1. "Fehler BC31424 Der Typ "System.Reflection.AssemblyProductAttribute" in Assembly "Conv-App, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null" wurde an Assembly "System.Runtime, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" weitergeleitet. Entweder fehlt im Projekt ein Verweis auf "System.Runtime, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a", oder der Typ "System.Reflection.AssemblyProductAttribute" fehlt in der Assembly "System.Runtime, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a". Conv-App X:\Scripting Projects\2023\Conv-App\obj\Release\net6.0\Conv-App.AssemblyInfo.vb 20 Aktiv"

    Ich habe leider absolut keine Ahnung was das bedeutet.
    Der (die) Fehler taucht in folgendem Codesegment auf, das vom System generiert wurde:

    VB.NET-Quellcode

    1. '------------------------------------------------------------------------------
    2. ' <auto-generated>
    3. ' Dieser Code wurde von einem Tool generiert.
    4. ' Laufzeitversion:4.0.30319.42000
    5. '
    6. ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
    7. ' der Code erneut generiert wird.
    8. ' </auto-generated>
    9. '------------------------------------------------------------------------------
    11. Option Strict Off
    12. Option Explicit On
    14. Imports System
    15. Imports System.Reflection
    16. <Assembly: System.Reflection.AssemblyCompanyAttribute("Conv-App"), _
    17. Assembly: System.Reflection.AssemblyConfigurationAttribute("Release"), _
    18. Assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0"), _
    19. Assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0"), _
    20. Assembly: System.Reflection.AssemblyProductAttribute("Conv-App"), _
    21. Assembly: System.Reflection.AssemblyTitleAttribute("Conv-App"), _
    22. Assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")>
    24. 'Von der MSBuild WriteCodeFragment-Klasse generiert.


    Der Fehler hängt anscheinend mit der ta-Variable zusammen bzw. wenn versucht wird, die eingelesenen Werte aus der Textdatei in die Tabelle der MDB zu schreiben.

    VB.NET-Quellcode

    1. Sub GenMDB()
    3. Dim ta As New_DB_ConvertDataSetTableAdapters.DBConvertTableAdapter '<--- hier
    4. Dim s() As String
    5. Dim cont As String
    6. Dim line() As String
    7. Dim i As Integer
    8. Dim t As Integer = 0
    9. Dim StartTime As DateTime
    10. Dim StopTime As DateTime
    11. Dim Duration As TimeSpan
    13. ta.DeleteQuery() '<--- hier
    14. StartTime = DateTime.Now
    15. i = 0
    17. Using reader = New StreamReader(fname)
    19. cont = reader.ReadToEnd
    20. cont = Replace(cont, Chr(34), "")
    21. line = Split(cont, vbCrLf)
    22. End Using
    24. For counter = 1 To line.Length - 1
    25. i += 1
    26. t += 1
    27. Debug.Print(t)
    28. s = line(counter).Split(";"c)
    29. If s.Length > 0 Then
    30. Try
    31. ta.Insert(s(0), s(1), s(2), s(3), s(4), s(5), s(6), s(7), s(8), s(9)) '<--- hier
    32. Catch ex As Exception
    33. 'MessageBox.Show(ex.Message)
    34. 'MessageBox.Show(i)
    35. End Try
    36. End If
    37. Next
    38. FileSystem.FileCopy(startup & "\DB-Convert.mdb", intDir & dbfname)
    40. writer = New StreamWriter(protfile)
    41. StopTime = DateTime.Now
    42. Duration = StopTime.Subtract(StartTime)
    43. writer.Write(i & " rows in database written" & vbCrLf & "Starting Time: " & StartTime.ToString & vbCrLf & "Ending Time: " & StopTime.ToString & vbCrLf & "Duration Time: " & Duration.ToString)
    44. writer.Close()
    45. writer = Nothing
    46. End Sub
    47. End Module


    Hat da irgendjemand eine Idee dazu?
    Bin für jede Hilfe unendlich dankbar. :)

    die Farbe Rot ist der Moderation vorbehalten und wurde ersetzt
    CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Kannst du eine Liste mit den aktuellen Verweisen deines Projektes posten?

    Siehst du, wenn du Rechtsklick auf deinem Projekt machst und dort auf Verweise klickst.
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems

    Selbstständiger Softwareentwickler & IT-Techniker.

    @siycah:
    Im Verweis Manager finde ich unter Projekte und Freigegebene Projekte keine Einträge.
    Nur unter COM erscheint eine lange Liste.

    Hier mal der ganze Code, wie er früher eigentlich funktioniert hat:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Threading
    3. Imports System.Globalization
    5. Module Form1
    7. ReadOnly startup As String = AppContext.BaseDirectory 'Application.StartupPath
    8. ReadOnly intDirAT As String = "\\atdotrsr23\PSX\SAP-DB\1000\"
    9. ReadOnly intDirCH As String = "\\atdotrsr23\PSX\SAP-DB\1400\"
    10. ReadOnly intDirUK As String = "\\atdotrsr23\PSX\SAP-DB\3310\"
    11. ReadOnly intDirCN As String = "\\atdotrsr23\PSX\SAP-DB\9000\"
    12. ReadOnly localPath As String = "\\atdotrsr23\PSX\SAP-DB\"
    13. ReadOnly fNameAT As String = intDirAT & "componentlist_1000.txt"
    14. ReadOnly fNameCH As String = intDirCH & "componentlist_1400.txt"
    15. ReadOnly fNameUK As String = intDirUK & "componentlist_3310.txt"
    16. ReadOnly fNameCN As String = intDirCN & "componentlist_9000.txt"
    17. ReadOnly dbfNameAT As String = "componentlist_1000.mdb"
    18. ReadOnly dbfNameCH As String = "componentlist_1400.mdb"
    19. ReadOnly dbfNameUK As String = "componentlist_3310.mdb"
    20. ReadOnly dbfNameCN As String = "componentlist_9000.mdb"
    21. ReadOnly fNameFinalAT As String = localPath & "FinalAT.txt"
    22. ReadOnly fNameFinalCH As String = localPath & "FinalCH.txt"
    23. ReadOnly fNameFinalUK As String = localPath & "FinalUK.txt"
    24. ReadOnly fNameFinalCN As String = localPath & "FinalCN.txt"
    25. ReadOnly protFileAT As String = localPath & "Protocol_AT.txt"
    26. ReadOnly protFileCH As String = localPath & "Protocol_CH.txt"
    27. ReadOnly protFileUK As String = localPath & "Protocol_UK.txt"
    28. ReadOnly protFileCN As String = localPath & "Protocol_CN.txt"
    29. Dim writer As StreamWriter
    30. Dim fname As String
    31. Dim intDir As String
    32. Dim dbfname As String
    33. Dim protfile As String
    35. Sub Form1()
    36. 'MessageBox.Show(MyString)
    37. ' Sets the culture to German (German)
    38. Thread.CurrentThread.CurrentCulture = New CultureInfo("de-DE")
    39. ' Sets the UI culture to German (German)
    40. Thread.CurrentThread.CurrentUICulture = New CultureInfo("de-DE")
    41. 'MessageBox.Show(MyString)
    43. If File.Exists(fNameFinalAT) Then
    44. File.Delete(fNameFinalAT)
    45. End If
    46. If File.Exists(fNameFinalCH) Then
    47. File.Delete(fNameFinalCH)
    48. End If
    49. If File.Exists(fNameFinalUK) Then
    50. File.Delete(fNameFinalUK)
    51. End If
    52. If File.Exists(fNameFinalCN) Then
    53. File.Delete(fNameFinalCN)
    54. End If
    55. FileSystem.FileCopy(fNameAT, fNameFinalAT)
    56. FileSystem.FileCopy(fNameCH, fNameFinalCH)
    57. FileSystem.FileCopy(fNameUK, fNameFinalUK)
    58. FileSystem.FileCopy(fNameCN, fNameFinalCN)
    60. ' generating MDB for site AT
    61. fname = fNameFinalAT
    62. intDir = intDirAT
    63. dbfname = dbfNameAT
    64. protfile = protFileAT
    65. GenMDB()
    67. ' generating MDB for site CH
    68. fname = fNameFinalCH
    69. intDir = intDirCH
    70. dbfname = dbfNameCH
    71. protfile = protFileCH
    72. GenMDB()
    74. ' generating MDB for site UK
    75. fname = fNameFinalUK
    76. intDir = intDirUK
    77. dbfname = dbfNameUK
    78. protfile = protFileUK
    79. GenMDB()
    81. ' generating MDB for site CN
    82. fname = fNameFinalCN
    83. intDir = intDirCN
    84. dbfname = dbfNameCN
    85. protfile = protFileCN
    86. GenMDB()
    88. FileClose()
    90. End Sub
    91. Sub GenMDB()
    93. Dim ta As New_DB_ConvertDataSetTableAdapters.DBConvertTableAdapter
    94. Dim s() As String
    95. Dim cont As String
    96. Dim line() As String
    97. Dim i As Integer
    98. Dim t As Integer = 0
    99. Dim StartTime As DateTime
    100. Dim StopTime As DateTime
    101. Dim Duration As TimeSpan
    103. ta.DeleteQuery()
    104. StartTime = DateTime.Now
    105. i = 0
    107. Using reader = New StreamReader(fname)
    109. cont = reader.ReadToEnd
    110. cont = Replace(cont, Chr(34), "")
    111. line = Split(cont, vbCrLf)
    112. End Using
    114. For counter = 1 To line.Length - 1
    115. i += 1
    116. t += 1
    117. Debug.Print(t)
    118. s = line(counter).Split(";"c)
    119. If s.Length > 0 Then
    120. Try
    121. ta.Insert(s(0), s(1), s(2), s(3), s(4), s(5), s(6), s(7), s(8), s(9))
    122. Catch ex As Exception
    123. 'MessageBox.Show(ex.Message)
    124. 'MessageBox.Show(i)
    125. End Try
    126. End If
    127. Next
    128. FileSystem.FileCopy(startup & "\DB-Convert.mdb", intDir & dbfname)
    130. writer = New StreamWriter(protfile)
    131. StopTime = DateTime.Now
    132. Duration = StopTime.Subtract(StartTime)
    133. writer.Write(i & " rows in database written" & vbCrLf & "Starting Time: " & StartTime.ToString & vbCrLf & "Ending Time: " & StopTime.ToString & vbCrLf & "Duration Time: " & Duration.ToString)
    134. writer.Close()
    135. writer = Nothing
    136. End Sub
    137. End Module


    CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Benutze bitte hier im Forum die Code-Blöcke. Die findest du rechts oben im Editor.
    So kann keiner den Quellcode lesen, ohne ihn vorher rauskopiert zu haben.

    Ich glaube nicht, dass dein Code hier das Problem ist.

    Probier mal, in der NuGet-Konsole install-package system.runtime auszuführen.
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems

    Selbstständiger Softwareentwickler & IT-Techniker.

    Hallo stonline

    Ich bin mir nicht sicher: Ich denke, es liegt an Visual Studio 2022. Access ist doch eine 32Bit Datenbank und nicht eine 64Bit. Probiere mal dein Projekt in Visual Studio 2019 zu laden. Danach kannst Du auch das Dataset anschauen, prüfen ob eine Datenbankverbindung möglich ist.

    Ich würde alle Pfade prüfen und wie schon erwähnt auch die Trennzeichen.

    LG

    stonline schrieb:

    Das ist ein VB.NET Code.


    Bei .net ist die Programmiersprache bei diesem Problem nebensächlich. VB ist nur die Tür, durch die du in den Framework-Schrank greifst, um dort Funktionalität rauszuholen.
    Das Problem könntest du genau so gut mit C# haben.

    stonline schrieb:

    hat leider nichts gebracht, bekomme leider immer noch dieselben Fehlermeldungen.


    Kannst du das Projekt hochladen? Würde ich mir gerne mal lokal anschauen. Es kann sein, dass du das Projekt von .net 4.x auf .net6 hochgezogen hast und dabei etwas schiefgelaufen ist.
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems

    Selbstständiger Softwareentwickler & IT-Techniker.

    @stonline:
    Bezüglich .NET Framework oder .NET:
    Wie sieht Dein Projekteigenschaftenfenster aus? Die sind nämlich für beide Unterbauten (.NET Framework ist was anderes als .NET) im Design sehr unterschiedlich.
    Vergleiche bitte mit den hiesigen Bildern und gib bescheid.
    Bilder

    • NetFx.png

      44,46 kB, 823×611, 322 mal angesehen

    • Net.png

      30,39 kB, 840×533, 386 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Menü Projekt, ganz unten dann [DeinProjektname]-Eigenschaften
    Ich brauch gar nicht weiter zu schauen, allein Dein Debug-Ordner sagt: .NET 6.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Also, zunächst einmal konnte ich den "großen" Compilerfehler beheben.

    Ich habe das NuGet-Paket System.Reflection installiert und in der Datei Conv-App.AssemblyInfo.vb System.Reflection. von Zeilen 18-24 entfernt:

    VB.NET-Quellcode

    1. ​
    2. <Assembly: AssemblyCompanyAttribute("Conv-App"),
    3. Assembly: AssemblyConfigurationAttribute("Release"),
    4. Assembly: AssemblyFileVersionAttribute("1.0.0.0"),
    5. Assembly: AssemblyInformationalVersionAttribute("1.0.0"),
    6. Assembly: AssemblyProductAttribute("Conv-App"),
    7. Assembly: AssemblyTitleAttribute("Conv-App"),
    8. Assembly: AssemblyVersionAttribute("1.0.0.0")>


    Nachhaltig ist die Lösung natürlich nicht. Zumal der nächste Rebuild diesen Fehler wieder einbaut.

    Des Weiteren kam dann der Fehler:

    Quellcode

    1. ​Severity Code Description Project File Line Suppression StateError BC30420 'Sub Main' was not found in 'Conv-App'. Conv-App C:\Users\simon\Downloads\Conv-App\vbc 1 Active


    Wenn ich dann Sub Form1() zu Sub Main() ändere, führt das Ganze aus.

    Das Projekt ist also rundherum kaputt.

    Ich würde dir an dieser Stelle empfehlen, einfach mit einem aktuellen Framework ein neues Projekt aufzusetzen und Stück für Stück die Funktionalität deiner Anwendung wiederherzustellen. Das wird am Ende des Tages bei der Größe weniger Zeit und im Endeffekt auch Geld kosten.
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems

    Selbstständiger Softwareentwickler & IT-Techniker.

    Hallo stonline

    Leider ist es etwas schwierig. Ich würde auch ein .NET Framework Projekt eröffnen, die Datenbank verbinden, damit ich ein Dataset habe. Danach den Code anpassen.
    Mein Problem ist, dass ich eben kein Dataset sehe in deinem Projekt.

    Das Programm sieht sehr einfach aus, da ist es etwas schwierig einen Tipp zu geben, ohne dass man einfach alles neu Programmiert. Das ist ja nicht der Sinn des Forums...
    Aber stell doch einfach mal die leere Access Datei zu Verfügung und ein paar Zeilen von der SAP-Ausgabe. Viellicht habe ich mal kurz Zeit, das Script zu erstellen.

    lg

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Panter“ ()

    Hallo zusammen.

    Vielen Dank für euren Support und eure Geduld.
    Ich renn hier echt im Kreis.

    Im Anhang findet ihr die leere .mdb und eines der Textfiles, die konvertiert werden.

    Das Problem fängt bei mir schon an, dass ich gar nicht wüsste, wie ich die Datenbank verbinde damit ich ein Dataset habe. :/

    Wie gesagt: absoluter Rookie

    Gruß,
    stonline
    Dateien

    • DB-Convert.mdb

      (266,24 kB, 170 mal heruntergeladen, zuletzt: )

    • FinalCN.txt

      (682,35 kB, 165 mal heruntergeladen, zuletzt: )

    Hallo Stonline

    Anbei mal ein Versuch. Wahrscheinlich musst du im Projektmappen_Explorer - Convertierungs-App Linke Maustaste - Eigenschaften - Einstellungen den Wert ...OLEDB.4.0 auf ...OLEDB.12.0 ändern.

    Was habe ich gemacht:
    - Neues Projekt erstellen - Konsolen-App (.NET Framework)
    - Weitere Fenster - Datenquellen
    - Neue Datenquelle hinzufügen
    - Datenbank
    - Dataset
    - Microsoft Access-Datenbankdatei
    - Access Datenbank ausgewählt
    - Datenbank in Projekt kopieren - JA

    Dein Code hinein kopiert - ein paar Details angepasst.

    Ich hoffe, es läuft.

    LG
    Dateien

    Hallo zusammen.

    @Panter:
    Vielen, vielen Dank für den Code.
    Schaut super aus und ist endlich fehlerfrei.


    Leider habe ich jetzt ein anderes Problem.
    Wenn ich den Code teste, dann bekomme ich folgende Meldung: System.InvalidOperationException: "Der 'Microsoft.Jet.OLEDB.12.0'-Provider ist nicht auf dem lokalen Computer registriert." (siehe Bild im Anhang)
    Deswegen habe ich den aktuellen OLEDB-Treibe von Microsoft runtergeladen und installiert, da ich ein 64-Bit System habe, natürlich den 64-Bit Treiber.
    Hat leider nicht funktioniert, Fehlermeldung bleibt die Gleiche.
    Ich habe das dann recherchiert (gegoogelt) und in mehreren Foren gelesen, dass man auch den 32-Bit Treiber installieren soll und damit das Problem behoben wird (wurde auch von mehreren Usern bestätigt).
    Dazu müssen aber alle 64-Bit Officeanwendungen zuerst deinstalliert werden, was ich leider nicht kann, da ich nur lokale Admin-Rechte auf meinem Firmenrechner habe.
    Ich habe eigentlich auch keine Lust dazu, das alles zu deinstallieren und anschließend wieder zu installieren und zu konfigurieren nur wegen diesem einen Treiber.
    Kann doch nicht sein, dass das die einzige Lösung ist.

    Was ist denn, wenn ich einen neuen Code schreibe?
    Passiert das dann auch?

    Gruß und Sorry.

    stonline
    Bilder

    • oledb.png

      48,57 kB, 1.601×271, 397 mal angesehen

    stonline schrieb:

    "Der 'Microsoft.Jet.OLEDB.12.0'-Provider ist nicht auf dem lokalen Computer registriert."
    Das ist ein alter Bekannter.
    Es gibt 2 Acces-Provider, und immer der, den man im Connectionstring stehen hat, ist der falsche.
    Der eine ist der Jet-OleDb-Provider, der andere heisst iwie mit ACE-OleDb oder so.
    Musste mal gucken auf ConnectionStrings.com
    (Muss man auch mal einen VbParadise-Tipp zu schreiben, weil die Frage kommt ca. einmal jährlich.)

    ah, ich glaub die beiden heissen (keine Gewähr!):
    • provider=Microsoft.Jet.OLEDB.4.0;
    • provider=Microsoft.Jet.ACE.12.0;
    kann also sein, dasses dein "Microsoft.Jet.OLEDB.12.0" tatsächlich garnet gibt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()