Wie "returne" ich ein DataTable?

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Wie "returne" ich ein DataTable?

    Hi!

    Ich hab eine Funktion die mir ein DataTable zurück geben soll..leider kommt immer "Nothing" bei raus..die Schreibfunktion funktioniert!

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class DataTable_Tools
    3. Public Shared Async Sub SaveDataTable(FileName As String, _DataTable As DataTable)
    4. Await Task.Run(Sub()
    5. DataTable_Tools.File_WaitReadWriteReady(FileName, False)
    6. End Sub).ContinueWith(Sub()
    7. DataTable_Tools.Save_DataTable_ToFile(_DataTable, FileName)
    8. End Sub)
    9. End Sub
    11. Public Shared Function ReadDataTable(FileName As String) As DataTable
    13. Task.Run(Sub()
    14. DataTable_Tools.File_WaitReadWriteReady(FileName, True)
    15. End Sub).ContinueWith(Function()
    16. Return DataTable_Tools.Load_DataTable_FromFile(FileName).Copy
    17. End Function)
    19. End Function
    21. Public Shared Sub File_WaitReadWriteReady(ByVal fileName As String, ByVal Read As Boolean)
    22. While True
    23. Try
    24. If Read Then
    25. Using stream As FileStream = New FileStream(fileName, IO.FileMode.OpenOrCreate, FileAccess.Read, FileShare.Read)
    26. If stream IsNot Nothing Then
    27. Trace.WriteLine("Output file ready.")
    28. stream.Close()
    29. Exit While
    30. End If
    31. End Using
    32. Else
    33. Using stream As FileStream = New FileStream(fileName, IO.FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
    34. If stream IsNot Nothing Then
    35. Trace.WriteLine("Output file ready.")
    36. stream.Close()
    37. Exit While
    38. End If
    39. End Using
    40. End If
    41. Catch ex As FileNotFoundException
    42. Trace.WriteLine(String.Format("Output file {0} not yet ready ({1})", fileName, ex.Message))
    43. Catch ex As IOException
    44. Trace.WriteLine(String.Format("Output file {0} not yet ready ({1})", fileName, ex.Message))
    45. Catch ex As UnauthorizedAccessException
    46. Trace.WriteLine(String.Format("Output file {0} not yet ready ({1})", fileName, ex.Message))
    47. Catch ex As Exception
    48. Trace.WriteLine(ex.Message)
    49. End Try
    50. Application.DoEvents()
    51. Thread.Sleep(50)
    52. End While
    53. End Sub
    55. Public Shared Function Save_DataTable_ToFile(ByVal Table As DataTable, ByVal FileName As String) As Boolean
    56. Try
    57. Using stream = New MemoryStream()
    58. Dim formatter As IFormatter = New BinaryFormatter()
    59. formatter.Serialize(stream, Table)
    60. stream.Close()
    61. Using _stream As FileStream = New FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
    62. _stream.Write(stream.ToArray, 0, stream.ToArray.Length)
    63. End Using
    64. End Using
    65. Return True
    66. Catch ex As Exception
    67. Debug.WriteLine(ex.Message)
    68. Return False
    69. End Try
    70. End Function
    72. Public Shared Function Load_DataTable_FromFile(ByVal FileName As String) As DataTable
    73. Try
    74. Using _stream As FileStream = New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
    75. Dim formatter As IFormatter = New BinaryFormatter()
    76. Return CType(formatter.Deserialize(_stream), DataTable)
    77. End Using
    78. Catch ex As Exception
    79. Debug.WriteLine(ex.Message)
    80. Return Nothing
    81. End Try
    82. End Function
    83. End Class



    dt_MainTable = DataTable_Tools.ReadDataTable(DT_MainTable_DateiName)

    Schalt mal bitte alle Schalter auf scharf. Dann siehst Du, dass die eigentliche Funktion gar keinen Wert zurückgibt, sondern nur die innere, weil Visual Studio endlich anfängt zu meckern. Die innere Funktion hat ja keinen Einfluss auf den Returnwert der äußeren. Sollte spätestens dann klar werden, wenn der Rückgabetyp der inneren ein anderer ist als der der äußeren. Du musst also den Rückgabewert der äußeren an den der inneren anbinden.
    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.

    Morrison schrieb:

    Ich hab eine Funktion die mir ein DataTable zurück geben soll..leider kommt immer "Nothing" bei raus..die Schreibfunktion funktioniert!

    Meinst du dieses?

    VB.NET-Quellcode

    1. Public Shared Function Load_DataTable_FromFile(ByVal FileName As String) As DataTable
    2. Try
    3. Using _stream As FileStream = New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
    4. Dim formatter As IFormatter = New BinaryFormatter()
    5. Return CType(formatter.Deserialize(_stream), DataTable)
    6. End Using
    7. Catch ex As Exception
    8. Debug.WriteLine(ex.Message)
    9. Return Nothing
    10. End Try
    11. End Function
    Naja - ist doch offensichtlich, warum die Nothing zurückgibt - schau bitte mal hin.
    TryCatch ist ein heißes Eisen


    Was ist das überhaupt für eine abenteuerliche Konstruktion mit dem ContinueWith?
    Ich weiss nicht was das macht, und wüsste nicht, wozu das gut sein soll. Weisst du's? Und bist du sicher, dass man das nicht einfach weglassen kann?

    Jedenfalls zum Testen würde ich diese Konstruktion nicht nehmen, sondern nimm einen normalen Aufruf.

    Da fällt mir auf: Application.DoEvents() Einer der Klassiker für: wie-kannst-Du-nur?!? :P


    VB.NET-Quellcode

    1. Catch ex As FileNotFoundException
    2. Trace.WriteLine(String.Format("Output file {0} not yet ready ({1})", fileName, ex.Message))
    3. Catch ex As IOException
    4. Trace.WriteLine(String.Format("Output file {0} not yet ready ({1})", fileName, ex.Message))
    5. Catch ex As UnauthorizedAccessException
    6. Trace.WriteLine(String.Format("Output file {0} not yet ready ({1})", fileName, ex.Message))

    ->

    VB.NET-Quellcode

    1. Catch ex As Exception When ex.GetType Is GetType(IO.FileNotFoundException) OrElse ex.GetType Is GetType(IO.IOException) OrElse ex.GetType Is GetType(UnauthorizedAccessException)
    2. Trace.WriteLine(String.Format("Output file {0} not yet ready ({1})", fileName, ex.Message))
    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.

    leicht of topic:
    Ich würde die Function eher "Get_DataTable_FromFile" (ohne Unterstriche), da man ja einen Rückgabewert bekommt.
    Bei "Load_DataTable_FromFile" würde ich eher eine Sub erwarten.

    OK die "Try..Catch" hab ich bei "Save_DataTable_ToFile" und "Load_DataTable_FromFile" raus genommen..
    ..und des "Application.DoEvents()" hab ich auch gelöscht..hatte ich noch von wo ich kein extra Task hatte!

    Nun zu der Funktion "ReadDataTable"....
    ​Du musst also den Rückgabewert der äußeren an den der inneren anbinden.
    ..OK, klingt plausibel ^^ .. :/
    Also nen Rückgabewert wie "Task(Of DataTable)"? Aber wie binde ich des zusammen?

    Des sieht mir auch Falsch aus, weil auf das beenden des Tasks ja nicht gewartet wird:

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Shared Function ReadDataTable(FileName As String) As DataTable
    3. Dim _dt As DataTable = New DataTable
    4. Task.Run(Sub()
    5. DataTable_Tools.File_WaitReadWriteReady(FileName, True)
    6. End Sub).ContinueWith(Sub()
    7. _dt = DataTable_Tools.Load_DataTable_FromFile(FileName).Copy
    8. End Sub)
    9. Return _dt
    10. End Function

    Morrison schrieb:

    OK die "Try..Catch" hab ich bei "Save_DataTable_ToFile" und "Load_DataTable_FromFile" raus genommen..
    ..und des "Application.DoEvents()" hab ich auch gelöscht..hatte ich noch von wo ich kein extra Task hatte!
    Und? - löst das das Problem, dass Nothing returnt wird?
    Das war doch das Problem, für welches du diesen Thread eröffnet hattest, odr?

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

    da macht er mir jetzt

    VB.NET-Quellcode

    1. Public Shared Async Function ReadDataTable(FileName As String) As Task(Of DataTable)
    2. Await Task.Run(Sub()
    3. DataTable_Tools.File_WaitReadWriteReady(FileName, True)
    4. End Sub)
    5. Return DataTable_Tools.Load_DataTable_FromFile(FileName).Copy
    6. End Function


    draus..
    ..und wie gehe ich jetzt mit dem "Task(Of DataTable)" um?

    aah, ok: dt_MainTable = Await Tools.Tools.DataTable_Tools.ReadDataTable(DT_MainTable_DateiName)


    Käy, scheint zu funktionieren! ;)Danke!!

    Hmm,

    kann mir zufällig jemand sagen ob diese Anordnung überhaupt funktioniert!
    Also Ziel ist es ja eig. in der "while"-Schleife so lange zu warten bis die Datei verfügbar ist, also nicht mehr "locked" ist.

    Für mich sieht es aber so aus als wäre es möglich nach dem Aufruf von "File_WaitReadWriteReady" einen fremden Dateizugriff zu starten!

    Hab schon probiert nen "FileStream" mit zu übergeben, bzw zu "returnen", aber des bekomm ich nicht hin das ganze durchreichen..zumal ich das dann ja auch wieder "disposen" muss!

    Naja, den von oben:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class DataTable_Tools
    4. Public Shared Async Sub SaveDataTable(FileName As String, _DataTable As DataTable)
    5. Await Task.Run(Sub()
    6. DataTable_Tools.File_WaitReadWriteReady(FileName, False)
    7. End Sub)
    8. DataTable_Tools.Save_DataTable_ToFile(_DataTable, FileName)
    9. End Sub
    11. Public Shared Async Function ReadDataTable(FileName As String) As Task(Of DataTable)
    12. Await Task.Run(Sub()
    13. DataTable_Tools.File_WaitReadWriteReady(FileName, True)
    14. End Sub)
    15. Return DataTable_Tools.Load_DataTable_FromFile(FileName).Copy
    16. End Function
    20. Public Shared Sub File_WaitReadWriteReady(ByVal fileName As String, ByVal Read As Boolean)
    21. While True
    22. Try
    23. If Read Then
    24. Using stream As FileStream = New FileStream(fileName, IO.FileMode.OpenOrCreate, FileAccess.Read, FileShare.Read)
    25. If stream IsNot Nothing Then
    26. Trace.WriteLine("Output file ready.")
    27. 'stream.Close()
    28. Exit While
    29. End If
    30. End Using
    31. Else
    32. Using stream As FileStream = New FileStream(fileName, IO.FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
    33. If stream IsNot Nothing Then
    34. Trace.WriteLine("Output file ready.")
    35. 'stream.Close()
    36. Exit While
    37. End If
    38. End Using
    39. End If
    40. Catch ex As Exception When ex.GetType Is GetType(IO.FileNotFoundException) OrElse ex.GetType Is GetType(IO.IOException) OrElse ex.GetType Is GetType(UnauthorizedAccessException)
    41. Trace.WriteLine(String.Format("Output file {0} not yet ready ({1})", fileName, ex.Message))
    42. Catch ex As Exception
    43. Trace.WriteLine(ex.Message)
    44. End Try
    45. Thread.Sleep(50)
    46. End While
    47. End Sub
    49. Private Shared Sub Save_DataTable_ToFile(ByVal Table As DataTable, ByVal FileName As String)
    50. Using stream = New MemoryStream()
    51. Dim formatter As IFormatter = New BinaryFormatter()
    52. formatter.Serialize(stream, Table)
    53. stream.Close()
    54. Using fs As FileStream = New FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
    55. fs.Write(stream.ToArray, 0, stream.ToArray.Length)
    56. End Using
    57. End Using
    58. End Sub
    60. Private Shared Function Load_DataTable_FromFile(ByVal FileName As String) As DataTable
    61. Using fs As FileStream = New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
    62. Dim formatter As IFormatter = New BinaryFormatter()
    63. Return CType(formatter.Deserialize(fs), DataTable)
    64. End Using
    65. End Function
    66. End Class
    68. End Class



    Also praktisch die "SaveDataTable" und "ReadDataTable"

    Ah - ich würd eher was einfacheres versuchen:

    VB.NET-Quellcode

    1. Private Shared Sub Save_DataTable_ToFile(ByVal Table As DataTable, ByVal FileName As String)
    2. For i = 0 To 99
    3. Try
    4. Using stream = New FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
    5. Dim formatter = New BinaryFormatter()
    6. formatter.Serialize(stream, Table)
    7. End Using
    8. Return
    9. Catch ex As Exception
    10. Thread.Sleep(50)
    11. End Try
    12. Next
    13. Throw New InvalidOperationException($"100 tryals failed to save {FileName}")
    14. End Sub
    Das kannste Async aufrufen und gut.
    Den Catch empfehle ich ausdifferenzieren auf die wirklich zu erwartenden Exceptions.

Facebook
Telefonspende