Nicht typisiertes Dataset, Datenmodel

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

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

    Nicht typisiertes Dataset, Datenmodel

    Hallo,

    bin dabei meinen Datenzugriff zur Datenbank zuändern. Typisierte Datasets mag ich einfach nicht.
    Habe mir da eine Lösung für untypsierte Datasets erarbeitet.
    Bevor ich da nun weiter mache (sind doch viele Tabellen in den Datenbanken) würde ich Euch bitten, mal drüber zu schauen.
    Nicht das ich einen Denkfehler oder sonst einen Fehler im Code habe.

    Spoiler anzeigen


    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    3. Imports System.Data.OleDb
    5. Public Class DatenDS
    7. Private Halt As Boolean
    8. Public Tabellenliste As New List(Of CDatatools)
    9. Public AktuellesDatentool As New CDatatools
    10. Public MBKOCH_DatenDS As New CDatatools ' Anzulegen für jede Tabelle der Datenbanken
    11. Public MBKOCH_Inhalt As New CDatatools
    12. Public MBSOFT_Zeitplan As New CDatatools
    13. Private Modus As String
    14. Private I As Integer
    16. Private Sub DatenDS_Load(sender As Object, e As EventArgs) Handles Me.Load
    18. Me.Visible = False
    19. Me.Opacity = 0
    20. Me.Visible = True
    21. Me.Halt = True
    23. Daten.DSMBSoft = New DataSet
    24. Daten.DSMBKoch = New DataSet
    26. Monitor.Form_Initalisieren(Me)
    27. Me.Modus = "A"
    29. Me.MBKOCH_DatenDS.Name = "MBKOCH DatenDS"
    30. Me.MBKOCH_Inhalt.Name = "MBKOCH Inhalt"
    31. Me.MBSOFT_Zeitplan.Name = "MBSOFT Zeitplan"
    33. With Me.Tabellenliste
    34. .Add(Me.MBKOCH_DatenDS)
    35. .Add(Me.MBKOCH_Inhalt)
    36. .Add(Me.MBSOFT_Zeitplan)
    37. End With
    39. With Me.TS_Part.ComboBox
    41. For I = 0 To Me.Tabellenliste.Count - 1
    42. .Items.Add(Me.Tabellenliste(I).Name)
    43. Next
    45. .Text = Me.Tabellenliste(0).Name
    47. End With
    49. Me.DatasetLaden()
    51. Me.Halt = False
    52. Me.Opacity = 1
    54. End Sub
    55. Private Sub DatasetLaden()
    57. Me.MBKOCH_DatenDS.Initalisieren(Daten.DSMBKoch, Daten.Verbindungsstring_MBKOCH, "DatenDS", Me.MBKOCH_DatenDS)
    58. Me.MBKOCH_Inhalt.Initalisieren(Daten.DSMBKoch, Daten.Verbindungsstring_MBKOCH, "Inhalt", Me.MBKOCH_Inhalt)
    59. Me.MBSOFT_Zeitplan.Initalisieren(Daten.DSMBSoft, Daten.Verbindungsstring_MBSOFT, "Zeitplan", Me.MBSOFT_Zeitplan)
    61. Me.AktuellesDatentool = Me.Tabellenliste(0)
    62. Me.DGV_Zuordnung()
    64. End Sub
    65. Private Sub TS_Speichern_Click(sender As Object, e As EventArgs) Handles TS_Speichern.Click
    66. If Me.Halt Then Exit Sub
    67. Me.Validate()
    69. With Me.AktuellesDatentool
    70. .DataBinding.EndEdit()
    71. .DataAdapter.Update(.DS.Tables(.Tabellenname))
    72. End With
    73. Me.DGV_Ausgabe.ReadOnly = True
    75. Me.AktuellesDatentool.DS.Tables(AktuellesDatentool.Tabellenname).Clear()
    76. With Me.AktuellesDatentool
    77. .Initalisieren(.DS, .Datenverbindung, .Tabellenname, Me.AktuellesDatentool, .SelectString)
    78. End With
    80. Me.Modus = "A"
    82. End Sub
    83. Private Sub TS_Korrektur_Click(sender As Object, e As EventArgs) Handles TS_Korrektur.Click
    84. If Me.Halt Then Exit Sub
    85. Me.DGV_Ausgabe.ReadOnly = False
    86. End Sub
    87. Private Sub TS_Neuanlage_Click(sender As Object, e As EventArgs) Handles TS_Neuanlage.Click
    88. If Me.Halt Then Exit Sub
    89. Me.Modus = "N"
    90. Me.DGV_Ausgabe.ReadOnly = False
    91. Me.AktuellesDatentool.DataBinding.AddNew()
    92. End Sub
    93. Private Sub TS_Loeschen_Click(sender As Object, e As EventArgs) Handles TS_Loeschen.Click
    94. If Me.Halt Then Exit Sub
    96. Dim JaNein As DialogResult = MessageBox.Show("Möchten Sie nun den Datensatz löschen?", "Löschbestätigung" & Programm.Copyright_Messagebox,
    97. MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    99. If JaNein = DialogResult.No Then Exit Sub
    100. AktuellesDatentool.DataBinding.RemoveCurrent()
    101. End Sub
    102. Private Sub TS_Abbruch_Click(sender As Object, e As EventArgs) Handles TS_Abbruch.Click
    103. If Me.Halt Then Exit Sub
    104. If Me.Modus = "N" Then
    105. AktuellesDatentool.DataBinding.RemoveCurrent()
    106. End If
    107. Me.DGV_Ausgabe.ReadOnly = True
    108. End Sub
    109. Private Sub TS_Aus_Click(sender As Object, e As EventArgs) Handles TS_Aus.Click
    110. If Me.Halt Then Exit Sub
    111. Me.Close()
    112. End Sub
    113. Private Sub TS_Part_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TS_Part.SelectedIndexChanged
    114. If Me.Halt Then Exit Sub
    116. For I = 0 To Me.Tabellenliste.Count - 1
    117. If Me.TS_Part.ComboBox.Text = Me.Tabellenliste(I).Name Then
    118. Me.AktuellesDatentool = New CDatatools
    119. Me.AktuellesDatentool = Me.Tabellenliste(I)
    120. End If
    121. Next
    123. Me.DGV_Zuordnung()
    125. End Sub
    126. Private Sub DGV_Zuordnung()
    128. With Me.DGV_Ausgabe
    129. .DataSource = Nothing
    130. .DataSource = Me.AktuellesDatentool.DataBinding
    131. For I = 0 To Me.AktuellesDatentool.DS.Tables(Me.AktuellesDatentool.Tabellenname).Columns.Count - 1
    132. .Columns(I).AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    133. If .Columns(I).Name = "ID" Then .Columns(I).Visible = False
    134. Next
    135. .ReadOnly = True
    136. End With
    138. With Me.Label_ID
    139. .DataBindings.Clear()
    140. .DataBindings.Add("Text", Me.AktuellesDatentool.DataBinding, "ID", True)
    141. End With
    142. End Sub
    144. Private Sub DGV_Ausgabe_SelectionChanged(sender As Object, e As EventArgs) Handles DGV_Ausgabe.SelectionChanged
    145. If Me.Halt Then Exit Sub
    146. With Me.Label_ID
    147. .DataBindings.Clear()
    148. .DataBindings.Add("Text", Me.AktuellesDatentool.DataBinding, "ID", True)
    149. End With
    150. End Sub
    152. Public Class CDatatools
    154. Public DS As DataSet
    155. Public Name As String
    156. Public SelectString As String
    157. Public Tabellenname As String
    158. Public Datenverbindung As String
    159. Public DataAdapter As New OleDbDataAdapter
    160. Public Commandbilder As OleDbCommandBuilder
    161. Public DataBinding As New BindingSource
    163. Public Sub Initalisieren(ByVal Datenset As DataSet, ByVal Verbindung As String, ByVal Tabellennamen As String, ByVal Tool As CDatatools,
    164. ByVal Optional Selectanweisung As String = "SELECT * From ")
    166. With Me
    167. .DS = Datenset
    168. .Tabellenname = Tabellennamen
    169. .Datenverbindung = Verbindung
    170. .SelectString = Selectanweisung
    171. End With
    173. Dim Selection As String = Selectanweisung & Tabellennamen
    175. Me.DataAdapter = New OleDbDataAdapter(Selection, Verbindung)
    176. Me.Commandbilder = New OleDbCommandBuilder(Me.DataAdapter)
    178. With Me.DataAdapter
    179. .UpdateCommand = Me.Commandbilder.GetUpdateCommand
    180. .InsertCommand = Me.Commandbilder.GetInsertCommand
    181. .DeleteCommand = Me.Commandbilder.GetDeleteCommand
    182. .Fill(Datenset, Tabellennamen)
    183. End With
    185. Me.DataBinding.DataSource = Datenset.Tables(Tabellennamen)
    186. DatenDS.AktuellesDatentool = Tool
    188. End Sub
    190. End Class
    192. End Class




    Danke
    Gruß Markus

    Dürfte ich dich fragen, was genau dich denn an typisierten DataSets stört? Ich habe zwar noch nie ernsthaft mit DS gearbeitet, jedoch weiß ich, dass man, wenn richtig angewandt, man damit sehr bequem arbeiten kann. Andererseits weiß ich auch um etliche andere Möglichkeiten um auf eine Datenbank zuzugreifen. Vielleicht gibt es ja was, was deinen Bedürfnissen eher entspricht?

Facebook
Telefonspende