Formübergreifendes Databinding, Fehler

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

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RadlerMEV.

    Formübergreifendes Databinding, Fehler

    ich lese hier schon eine ganze Weile alles quer zum Thema DB-Entwicklung.
    Es gilt, eine in die Jahre gekommene Access.adp-Anwendung abzulösen. Die Tabellenstruktur ist eigentlich klar, wid aber auch modifiziert.
    Die Phase anfangen, verwerfen, Dataset, dann doch typisiert, Tableadapter wegwerfen usw., da bin ich mitten drin!
    Also erst einmal Dank an alle, die hier ihr Wissen und ihre Erfahrungen weitergeben!

    Als letztes habe ich die HelpersSmallEd eingebunden....

    Als DB habe ich den SQLSERVER (Express). Konkret habe ich (als Beispiel) ein Formular mit einem DGV.

    Dank der Helpers nutze ich jetzt T135teamBS.EditCurrent(Of Frm_135_team_dlg) und T135teamBS.EditNew(Of Frm_135_team_dlg) für die Baerbeitung und das Erstellen neuer Datensätze. Funktioniert.

    Nun habe ich folgenden Gedanken: Gelegentlich ist es sinnvoll, gleich mehrere neue Datensätze anzulegen, die dann im Nachgang nur angepasst werden.
    Dazu nutze ich Frm_135_team_insert_loop aufgerufen von Frm_135_team_v02.

    Bis zum Aufruf ist das Dataset Ds_135_team_oTA.t135_team (als Beispiel Tabelle t135_team) auch gefüllt.

    Lande ich vom Frm_135_team_insert_loop wieder in Frm_135_team_v02.Teams_anlegen ist das Dataset leer.
    Folge ist ein Constraint-Fehler.

    Die Variante B aus Frm_135_team_insert_loop bringt keinen Fehler, aber ich seh da auch nichts Neues ...

    Frm_135_team_v02.TestToolStripMenuItem_Click funktioniert, da werden die Datensätze geschrieben, ist ja auch innerhalb des Formulars ...

    Fragen, ja, einige ...

    a) Könnte es sein das sich die Konzepte SqlServerPersistance und HelpersSmallEd hier nicht vertragen?
    Oder ich setze sie falsch ein?
    Beim Speichern habe ich da auch noch Bedenken, HelpersSmallEd geht ja über den OK-Button im modalen Formular, greift aber auch ein wenn das Dataset nicht gespeichert ist.
    Frm_135_team_v02.DataSet_Speichern ist aber auch noch da ....

    b) Bei T135teamBS.EditCurrent(Of Frm_135_team_dlg)() und T135teamBS.EditNew(Of Frm_135_team_dlg)() ist ja das Formübergreifende Databinding mit drin,
    hier fehlt es wahrscheinlich und deshalb geht es nicht.

    c) Wo sollte das Anfügen der neuen Datensätze laufen, in Frm_135_team_v02 oder in Frm_135_team_insert_loop?

    Ich sehe hier nur gerade keinen Weg, was dann wie zu sortieren wäre ....

    Vielen Dank schon mal für Eure Zeit ...

    Und was Euch sonst noch auffällt, her damit.



    VB.NET-Quellcode

    1. Public Class Frm_135_team_v02
    3. Private _Persistance As SqlServerPersistance
    4. Dim str_SucheIn As String = String.Empty
    5. Dim dr As DialogResult
    7. Dim int_t135 As Int32
    9. Public Sub New()
    10. InitializeComponent()
    11. _Persistance = New SqlServerPersistance(Frm_000_anmeldung.str_connStr, Ds_135_team_oTA)
    12. End Sub
    14. Private Sub Frm_135_team_v02_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    16. _Persistance.FillAll()
    18. Me.Ds_135_team_oTA.Register(Me, True) 'Helpers
    20. 'Formular für KeyDown vorbereiten!
    21. Me.KeyPreview = True
    23. txt_count_record.Text = T135teamBS.Count.ToString("N0")
    25. cbo_suchbegriff.Visible = False
    27. int_t135 = Ds_135_team_oTA.t135_team.Count
    28. 'MessageBox.Show("int_t135 Start: " & CStr(int_t135), "INFO", MessageBoxButtons.OK)
    30. End Sub
    32. Private Sub DataSet_Speichern()
    33. _Persistance.Save()
    35. tssl.Text = "Datensätze wurden gespeichert."
    36. txt_count_record.Text = T135teamBS.Count.ToString("N0")
    37. End Sub
    39. Private Sub SpeichernF9ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernF9ToolStripMenuItem.Click
    40. DataSet_Speichern()
    41. End Sub
    43. 'wird auch in Helpers behandelt, hier habe ich aber kein modales FRM mot OK-Button...
    44. Private Sub Frm_135_team_v02_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    46. Dim dr As DialogResult
    48. If Ds_135_team_oTA.HasChanges() Then
    49. 'Änderungen anzeigen
    50. 'btn_save.BackColor = Color.LightCoral
    51. dr = MessageBox.Show("Es gibt noch nicht gespeicherte Änderungen! Speichern?", "Speichern", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    53. If dr = DialogResult.Yes Then
    54. DataSet_Speichern()
    55. End If
    56. End If
    58. End Sub
    60. 'Sinnvoll?
    61. Private Sub Dgv_135_DataError(sender As Object, e As DataGridViewDataErrorEventArgs) Handles dgv_135.DataError
    63. MessageBox.Show("Error happened " _
    64. & e.Context.ToString())
    66. If (e.Context = DataGridViewDataErrorContexts.Commit) _
    67. Then
    68. MessageBox.Show("Commit error")
    69. End If
    70. If (e.Context = DataGridViewDataErrorContexts _
    71. .CurrentCellChange) Then
    72. MessageBox.Show("Cell change")
    73. End If
    74. If (e.Context = DataGridViewDataErrorContexts.Parsing) _
    75. Then
    76. MessageBox.Show("parsing error")
    77. End If
    78. If (e.Context =
    79. DataGridViewDataErrorContexts.LeaveControl) Then
    80. MessageBox.Show("leave control error")
    81. End If
    83. If (TypeOf (e.Exception) Is ConstraintException) Then
    84. Dim view As DataGridView = CType(sender, DataGridView)
    85. view.Rows(e.RowIndex).ErrorText = "an error"
    86. view.Rows(e.RowIndex).Cells(e.ColumnIndex) _
    87. .ErrorText = "an error"
    89. e.ThrowException = False
    90. End If
    92. End Sub
    94. Private Sub NeuesTeamAnlegenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesTeamAnlegenToolStripMenuItem.Click
    95. T135teamBS.EditNew(Of Frm_135_team_dlg)() 'HelpersSmallEd.dll
    96. End Sub
    98. Private Sub Dgv_135_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_135.CellDoubleClick
    99. T135teamBS.EditCurrent(Of Frm_135_team_dlg)() 'HelpersSmallEd.dll
    100. End Sub
    102. Private Sub MehrereTeamsAnlegenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MehrereTeamsAnlegenToolStripMenuItem.Click
    104. Dim frm As New Frm_135_team_insert_loop
    105. frm.Show(Me)
    107. End Sub
    109. Public Sub Teams_anlegen(ByVal int_sparte As Integer,
    110. ByVal int_nation As Integer,
    111. ByVal int_tkat As Integer,
    112. ByVal dat_von As Date,
    113. ByVal dat_bis As Date,
    114. ByVal str_bezeichnung As String,
    115. ByVal int_anzahl As Integer)
    117. 'ist die Datatable gefüllt?
    118. int_t135 = Ds_135_team_oTA.t135_team.Count
    120. '-->> PROBLEM Ds_135_team_oTA(.t135_team) ist leer
    121. 'Constraint-Fehler
    123. If int_t135 > 0 Then
    125. For i = 1 To int_anzahl
    127. 'Struktur der Zeile
    128. Dim rwTeam = Ds_135_team_oTA.t135_team.Newt135_teamRow
    130. rwTeam.t135_t105_id = int_sparte
    131. rwTeam.t135_t100_id = int_nation
    132. rwTeam.t135_suchname_team = str_bezeichnung & " " & Convert.ToString(i).PadLeft(2, CChar("0"))
    133. rwTeam.t135_name_team = rwTeam.t135_suchname_team
    134. rwTeam.t135_t134_id = int_tkat
    135. rwTeam.t135_von = dat_von.Date
    136. rwTeam.t135_bis = dat_bis.Date
    137. rwTeam.t135_gueltig_jn = CBool(1)
    138. rwTeam.t135_rf_blockstart_ezf_order = 1
    139. rwTeam.t135_kurz3 = Nothing
    140. rwTeam.t135_rf_email_leiter_team = Nothing
    141. rwTeam.t135_rf_name_leiter_team = Nothing
    142. rwTeam.t135_rf_tel_leiter_team = Nothing
    144. 'Zeile der DataTable hinzufügen
    145. Ds_135_team_oTA.t135_team.Rows.Add(rwTeam)
    146. Next
    148. tssl.Text = "Die Teams wurden angelegt."
    150. 'DataSet_Speichern()
    152. Else
    153. MessageBox.Show("int_t135: " & CStr(int_t135), "FEHLER", MessageBoxButtons.OK)
    154. End If
    156. End Sub
    158. Private Sub Frm_135_team_v02_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    160. If e.KeyCode = Keys.F9 Then
    161. DataSet_Speichern()
    162. ElseIf e.KeyCode = Keys.F7 Then
    163. T135teamBS.EditCurrent(Of Frm_135_team_dlg)() 'HelpersSmallEd.dll
    164. ElseIf e.KeyCode = Keys.F5 Then
    165. T135teamBS.EditNew(Of Frm_135_team_dlg)() 'HelpersSmallEd.dll
    166. End If
    168. End Sub
    170. Private Sub EditToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EditToolStripMenuItem.Click
    171. T135teamBS.EditCurrent(Of Frm_135_team_dlg)() 'HelpersSmallEd.dll
    172. End Sub
    174. Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click
    176. 'ZUM TEST, ohne Wechsel auf ein anderes FRM: läuft ...
    177. 'Variante 01
    179. int_t135 = Ds_135_team_oTA.t135_team.Count
    180. Dim int_t134 = Ds_135_team_oTA.t134_teamkategorie.Count
    182. For i = 1 To 3
    184. 'Struktur der Zeile
    185. Dim rwTeam = Ds_135_team_oTA.t135_team.Newt135_teamRow
    187. rwTeam.t135_t105_id = 2
    188. rwTeam.t135_t100_id = 2
    189. rwTeam.t135_suchname_team = "2020 RG BDR " & " " & Convert.ToString(i).PadLeft(2, CChar("0"))
    190. rwTeam.t135_name_team = rwTeam.t135_suchname_team
    191. rwTeam.t135_t134_id = 6
    192. rwTeam.t135_von = CDate("15.03.2020").Date
    193. rwTeam.t135_bis = CDate("15.10.2020").Date
    194. rwTeam.t135_gueltig_jn = CBool(1)
    195. rwTeam.t135_rf_blockstart_ezf_order = 1
    197. rwTeam.t135_kurz3 = Nothing
    198. rwTeam.t135_rf_email_leiter_team = Nothing
    199. rwTeam.t135_rf_name_leiter_team = Nothing
    200. rwTeam.t135_rf_tel_leiter_team = Nothing
    202. 'Zeile der DataTable hinzufügen
    203. Ds_135_team_oTA.t135_team.Rows.Add(rwTeam)
    205. Next
    207. End Sub
    208. End Class




    VB.NET-Quellcode

    1. ​
    2. Public Class Frm_135_team_insert_loop
    4. Dim dr As DialogResult
    6. Private _Persistance As SqlServerPersistance
    8. Public Sub New()
    9. InitializeComponent()
    10. _Persistance = New SqlServerPersistance(Frm_000_anmeldung.str_connStr, Ds_135_team_oTA)
    11. End Sub
    13. Private Sub Frm_135_b_teams_anlegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    15. 'kein modales Formular oder doch? Helpers vs. SqlServerPersistance ...
    17. _Persistance.CustomFill(Ds_135_team_oTA.t134_teamkategorie, "Where t134_id>0")
    18. _Persistance.CustomFill(Ds_135_team_oTA.t100_nation, "Where t100_id>0")
    19. _Persistance.CustomFill(Ds_135_team_oTA.t105_sparte, "Where t105_id>0")
    21. '_Persistance.CustomFill(Ds_135_team_oTA.t135_team, "Where t135_id>0") 'brauche ich ja eigentlich nicht
    23. 'Formular für KeyDown vorbereiten!
    24. Me.KeyPreview = True
    26. Me.cbo_t135_t105_id.SelectedValue = 2 'STR
    27. Me.cbo_t135_t100_id.SelectedValue = 2 'GER
    28. Me.cbo_t135_t134_id.SelectedValue = 6 'RG
    30. TextBox1.Text = "t105: " + CStr(Ds_135_team_oTA.t105_sparte.Count) '6 Datensätze aus t105_sparte
    32. End Sub
    34. Private Sub SpeichernF9ToolStripMenuItem_Click(sender As Object, e As EventArgs)
    35. Teams_anlegen()
    36. End Sub
    38. Private Sub Frm_135_b_teams_anlegen_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    39. If e.KeyCode = Keys.F9 Then
    40. Teams_anlegen()
    41. End If
    42. End Sub
    44. Private Sub Teams_anlegen()
    46. 'Variante A
    47. 'Übergabe der Parameter an Frm_135_team, Procedure Teams_anlegen
    48. 'läuft nicht ...
    49. Frm_135_team_v02.Teams_anlegen(int_sparte:=CInt(cbo_t135_t105_id.SelectedValue),
    50. int_nation:=CInt(cbo_t135_t100_id.SelectedValue),
    51. int_tkat:=CInt(cbo_t135_t134_id.SelectedValue),
    52. dat_von:=dtp_t135_von.Value,
    53. dat_bis:=dtp_t135_bis.Value,
    54. str_bezeichnung:=txt_t135_name_team.Text,
    55. int_anzahl:=CInt(txt_anzahl.Text))
    57. 'Variante B
    58. 'keine Fehlermeldung, aber auch keine sichtbaren neuen Datensätze, wahrscheinlich ein anderes Dataset?
    59. ' For i = 1 To CInt(txt_anzahl.Text)
    61. ' 'Struktur der Zeile
    62. ' Dim rwTeam = Ds_135_team_oTA.t135_team.Newt135_teamRow
    64. ' rwTeam.t135_t105_id = CInt(cbo_t135_t105_id.SelectedValue)
    65. ' rwTeam.t135_t100_id = CInt(cbo_t135_t100_id.SelectedValue)
    66. ' rwTeam.t135_suchname_team = txt_t135_name_team.Text & " " & Convert.ToString(i).PadLeft(2, CChar("0"))
    67. ' rwTeam.t135_name_team = rwTeam.t135_suchname_team
    68. ' rwTeam.t135_t134_id = CInt(cbo_t135_t134_id.SelectedValue)
    69. ' rwTeam.t135_von = dtp_t135_von.Value.Date
    70. ' rwTeam.t135_bis = dtp_t135_bis.Value.Date
    71. ' rwTeam.t135_gueltig_jn = CBool(1)
    72. ' rwTeam.t135_rf_blockstart_ezf_order = 1
    73. ' rwTeam.t135_kurz3 = Nothing
    74. ' rwTeam.t135_rf_email_leiter_team = Nothing
    75. ' rwTeam.t135_rf_name_leiter_team = Nothing
    76. ' rwTeam.t135_rf_tel_leiter_team = Nothing
    78. ' 'Zeile der DataTable hinzufügen
    79. ' Ds_135_team_oTA.t135_team.Rows.Add(rwTeam)
    80. ' Next
    82. Me.Close()
    84. End Sub
    86. Private Sub Btn_ok_Click(sender As Object, e As EventArgs) Handles btn_ok.Click
    87. Teams_anlegen()
    88. End Sub
    90. Private Sub Btn_cancel_Click(sender As Object, e As EventArgs) Handles btn_cancel.Click
    91. Me.Close()
    92. End Sub
    93. End Class

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

    Ich habe da was gefunden...

    Aus Frm_135_team_insert_loop geht der Aufruf _Persistance.CustomFill raus und Me.Ds_135_team_oTA.Register(Me, True) rein

    VB.NET-Quellcode

    1. ​
    2. '_Persistance.CustomFill(Ds_135_team_oTA.t134_teamkategorie, "Where t134_id>0")
    3. '_Persistance.CustomFill(Ds_135_team_oTA.t100_nation, "Where t100_id>0")
    4. '_Persistance.CustomFill(Ds_135_team_oTA.t105_sparte, "Where t105_id>0")
    6. '_Persistance.CustomFill(Ds_135_team_oTA.t135_team, "Where t135_id>0")
    8. Me.Ds_135_team_oTA.Register(Me, True) 'Helpers


    Das Insert der neuen Sätze erfolgt dann auch in Frm_135_team_insert_loop.
    Ich teste das und melde mich hier.
    Muß mich noch etwas mit dem "Register" beschäftigen.

    Dein Code-"Snippet" ist mir deutlich zu lang.
    aber immerhin scheint erkennbar, dass du tatsächlich das mit dem Register nicht richtig handhabst.
    In jedem Form, wo mit deim Dataset gearbeitet wird, musste es Registrieren, nachdem(!) InitializeComponents durchgelaufen ist.
    Ausnahmen bilden die Edit-Forms, weil die werden ja von bs.EditCurrent/bs.EditNew aufgerufen - da wird schon fürs Registrieren gesorgt.

Facebook
Telefonspende