ToolstripButton Datenbank Verknüpfung on Runtime

  • Access

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

    ToolstripButton Datenbank Verknüpfung on Runtime

    Hallo zusammen,

    ich verfolge das Forum seit einer längeren Zeit, super hilfsbereite und aktive Community! Ich habe ein Problem bezüglich meiner Datenbank Einbindung in mein VBA Programm.

    Bevor ich gesteinigt werde: Mir ist bewusst, dass es nicht sauber ist, dass es wahrscheinlich 1000 mal einfacher geht. Das sind alles codes, die von 1000 Foreneinträgen zusammengesucht wurden, von einem Kerl mit Ehrgeiz aber 0 Programmiererfahrung.

    Zunächst eine Erklärung, was mein Programm tun soll(da es mittlerweile sehr komplex geworden ist):

    1. Meine Windows "Form2" beinhaltet mehrere Comboboxen, diese sind alle mit einer Datenbank verbunden und wird durch diese befüllt(funktioniert auch)
    2. Mit dem Buttonklick auf "Weiter" soll nun, je nach Inhalt der Combobox, eine weitere Datenbank erstellt werden,jeweils eine Tabelle pro Combobox. (Funktioniert, aber umständlich)
    3. In diese Tabellen sollen von einer separaten Datenbank Inhalte befüllt werden ("Checkpunkte"). (Funktioniert)
    4. Für jede erstellte Tabelle soll dann auf der nächsten Seite (Form6) ein Toolstripbutton erstellt und jeweils zu den Tabellen zugeordnet werden. (Funktioniert nicht)
    5. Durch den Klick auf eines der Toolstripbutton's soll nun unser Datagridview angezeigt werden. (Funktioniert)


    Jetzt habe ich ein paar Dinge, die nicht funktionieren, bzw. die ich gerne in eine Schleife einbringen würde:
    1. Ich habe 33 Comboboxen in meiner Windows Form2, wenn ich alle einzelnd anspreche funktioniert es, jedoch würde ich es gerne so machen, dass alle comboboxen im Windows Form angesprochen werden. Ganz unten befindet sich der gesamte Code. Wenn ich eine For Each Schleife hinzufüge passiert garnichts.
    Mein Versuch:

    VB.NET-Quellcode

    1. For Each Control As Control In Me.Controls
    2. If TypeOf Control Is ComboBox Then
    4. If Control.Text <> "Bitte Prozess angeben" Then
    5. Connection = Catalog.ActiveConnection
    6. Tabelle.Name = Control.Text
    8. Tabelle.Columns.Append("Checkpunkte", ADOX.DataTypeEnum.adVarWChar,)
    10. Tabelle.Columns.Append("Ja", ADOX.DataTypeEnum.adBoolean,)
    11. Tabelle.Columns.Append("Nein", ADOX.DataTypeEnum.adBoolean,)
    13. Catalog.Tables.Append(Tabelle)
    15. Dim ConnectionOLE2 As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=xyz\Documents\Linien\" & DatabaseName & ".accdb")
    16. Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Control.Text & " = TRUE)", ConnectionOLE)
    18. TabelleName = Control.Text
    20. da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO " & TabelleName & " (Checkpunkte,Ja,Nein) VALUES (@Checkpunkte, @Ja, @Nein)", ConnectionOLE2)
    21. da.InsertCommand.Parameters.Add("@Checkpunkte", OleDb.OleDbType.VarChar, 50, "Checkpunkte")
    23. da.InsertCommand.Parameters.Add("@Ja", OleDb.OleDbType.Boolean, 8, "Ja")
    24. da.InsertCommand.Parameters.Add("@Nein", OleDb.OleDbType.Boolean, 8, "Nein")
    26. da.AcceptChangesDuringFill = False
    28. da.Fill(dt)
    30. Dim Button As New ToolStripButton
    32. Button.Text = Control.Text
    34. Form6.FragenAllgemeinToolStrip.Items.Add(Button)
    35. Button.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
    36. Button.ImageTransparentColor = System.Drawing.Color.Magenta
    37. Button.Name = "Button"
    38. Button.Size = New System.Drawing.Size(60, 29)
    40. Dim dt1 As New DataSet
    41. Dim Fr As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Control.Text & "=True)", ConnectionOLE)
    42. Fr.Fill(dt1)
    43. Form6.DataGridView2.DataSource = dt1.Tables(0)
    45. AddHandler Button.Click, AddressOf HandleDynamicButtonClick
    47. da.Update(dt)
    49. Else
    50. End If
    52. End If
    53. Next



    So hab ich es davor gemacht und so funktionierts:

    VB.NET-Quellcode

    1. If Prozess1.Text <> "Bitte Prozess angeben" Then
    2. Connection = Catalog.ActiveConnection
    3. Tabelle.Name = Prozess1.Text
    5. Tabelle.Columns.Append("Checkpunkte", ADOX.DataTypeEnum.adVarWChar,)
    7. Tabelle.Columns.Append("Ja", ADOX.DataTypeEnum.adBoolean,)
    8. Tabelle.Columns.Append("Nein", ADOX.DataTypeEnum.adBoolean,)
    10. Catalog.Tables.Append(Tabelle)
    12. Dim ConnectionOLE2 As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=xyz\Documents\Linien\" & DatabaseName & ".accdb")
    13. Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess1.Text & " = TRUE)", ConnectionOLE)
    15. TabelleName = Prozess1.Text
    17. da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO " & TabelleName & " (Checkpunkte,Ja,Nein) VALUES (@Checkpunkte, @Ja, @Nein)", ConnectionOLE2)
    18. da.InsertCommand.Parameters.Add("@Checkpunkte", OleDb.OleDbType.VarChar, 50, "Checkpunkte")
    20. da.InsertCommand.Parameters.Add("@Ja", OleDb.OleDbType.Boolean, 8, "Ja")
    21. da.InsertCommand.Parameters.Add("@Nein", OleDb.OleDbType.Boolean, 8, "Nein")
    23. da.AcceptChangesDuringFill = False
    25. da.Fill(dt)
    27. Dim Button As New ToolStripButton
    29. Button.Text = Prozess1.Text
    31. Form6.FragenAllgemeinToolStrip.Items.Add(Button)
    32. Button.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
    33. Button.ImageTransparentColor = System.Drawing.Color.Magenta
    34. Button.Name = "Button"
    35. Button.Size = New System.Drawing.Size(60, 29)
    37. Dim dt1 As New DataSet
    38. Dim Fr As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess1.Text & "=True)", ConnectionOLE)
    39. Fr.Fill(dt1)
    40. Form6.DataGridView2.DataSource = dt1.Tables(0)
    42. AddHandler Button.Click, AddressOf HandleDynamicButtonClick
    44. da.Update(dt)
    45. Else
    46. End If


    2. Ich würde gerne für jede erstellte Tabelle einen Toolstripbutton für die Toolstripleiste "Fragenallgemeintoolstrip" erstellen. Zudem sollen die einzelnen Buttons on Runtime den jeweiligen Tabellen zugeordnet werden. Hier funktioniert es auch für einen angesprochenen Button, dies soll jedoch auch in einer Schleife laufen. Zudem soll die Zuordnung anders gestaltet sein, aktuell wird es mit Button.Text=Prozess.Text gelöst, aber die Buttons sollen später anders heißen, wodurch bei dieser Lösung die Verknüpfung flöten geht.

    Mein Versuch:

    VB.NET-Quellcode

    1. Dim Button As New ToolStripButton
    3. Button.Text = Prozess1.Text
    5. Form6.FragenAllgemeinToolStrip.Items.Add(Button)
    6. Button.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
    7. Button.ImageTransparentColor = System.Drawing.Color.Magenta
    8. Button.Name = "Button"
    9. Button.Size = New System.Drawing.Size(60, 29)
    11. Dim dt1 As New DataSet
    12. Dim Fr As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess1.Text & "=True)", ConnectionOLE)
    13. Fr.Fill(dt1)
    14. Form6.DataGridView2.DataSource = dt1.Tables(0)
    16. AddHandler Button.Click, AddressOf HandleDynamicButtonClick
    17. Else
    18. EndIf
    20. Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs)
    21. Dim Button As ToolStripButton = DirectCast(sender, ToolStripButton)
    22. Form6.DataGridView2.Show()
    23. End Sub


    3. Habe ich derzeit keine Lösung, wie ich die DataSets abspeichere. Als ich die Datenbanken über die VBA Nutzeroberfläche verknüpft hatte (also nicht im Runtime), hatte ich es irgendwie hinbekommen, dass die Datenbanken live verbunden und geupdated wurden, durch BindingSources evtl.? Wenn ja, wie erstelle ich bzw. verknüpfe ich sowas mit meinem DataSet in Runtime?

    Ich bedanke mich im Voraus für jede Antwort

    Hier ist der gesamte Code:


    VB.NET-Quellcode

    1. Dim Connection As ADODB.Connection
    2. Dim Tabelle As ADOX.Table
    3. Dim TabelleName As String
    4. Dim ProzessName1 As String
    6. Connection = New ADODB.Connection
    7. Catalog = New ADOX.Catalog
    8. Tabelle = New ADOX.Table
    10. ProzessName1 = Me.Prozess1.Text
    11. DatabaseName = Form1.TextBox5.Text
    13. Catalog.Create("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=xyz\Linien\" & DatabaseName & ".accdb")
    15. If Prozess1.Text <> "Bitte Prozess angeben" Then
    16. Connection = Catalog.ActiveConnection
    17. Tabelle.Name = Prozess1.Text
    19. Tabelle.Columns.Append("Checkpunkte", ADOX.DataTypeEnum.adVarWChar,)
    21. Tabelle.Columns.Append("Ja", ADOX.DataTypeEnum.adBoolean,)
    22. Tabelle.Columns.Append("Nein", ADOX.DataTypeEnum.adBoolean,)
    24. Catalog.Tables.Append(Tabelle)
    26. Dim ConnectionOLE2 As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=xyz\Documents\Linien\" & DatabaseName & ".accdb")
    27. Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess1.Text & " = TRUE)", ConnectionOLE)
    29. TabelleName = Prozess1.Text
    31. da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO " & TabelleName & " (Checkpunkte,Ja,Nein) VALUES (@Checkpunkte, @Ja, @Nein)", ConnectionOLE2)
    32. da.InsertCommand.Parameters.Add("@Checkpunkte", OleDb.OleDbType.VarChar, 50, "Checkpunkte")
    34. da.InsertCommand.Parameters.Add("@Ja", OleDb.OleDbType.Boolean, 8, "Ja")
    35. da.InsertCommand.Parameters.Add("@Nein", OleDb.OleDbType.Boolean, 8, "Nein")
    37. da.AcceptChangesDuringFill = False
    39. da.Fill(dt)
    41. Dim Button As New ToolStripButton
    43. Button.Text = Prozess1.Text
    45. Form6.FragenAllgemeinToolStrip.Items.Add(Button)
    46. Button.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
    47. Button.ImageTransparentColor = System.Drawing.Color.Magenta
    48. Button.Name = "Button"
    49. Button.Size = New System.Drawing.Size(60, 29)
    51. Dim dt1 As New DataSet
    52. Dim Fr As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess1.Text & "=True)", ConnectionOLE)
    53. Fr.Fill(dt1)
    54. Form6.DataGridView2.DataSource = dt1.Tables(0)
    56. AddHandler Button.Click, AddressOf HandleDynamicButtonClick
    58. da.Update(dt)
    59. Else
    60. End If
    62. Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs)
    63. Dim Button As ToolStripButton = DirectCast(sender, ToolStripButton)
    64. Form6.DataGridView2.Show()
    65. End Sub

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „SerkanLives“ ()

    Willkommen im Forum.

    Viel zu tun, aber zuerst zu den Problemen.

    SerkanLives schrieb:

    So hab ich es davor gemacht und so funktionierts:
    Da ist kein auf Anhieb ins Auge stechender Bezug zu einer ComboBox. Schwierig zu sagen, warum es da klappt, wenn der Bezug fehlt.

    SerkanLives schrieb:

    Wenn ich eine For Each Schleife hinzufüge passiert garnichts.
    Unwirksam, wenn die ComboBoxen nicht auf dem Form direkt liegen, sondern in einem Container (Panel, TabControl, GroupBox, ...; Da gehören dann zu Me.Controls nur die Container, aber die ComboBoxen gehören zu den Controls des entsprechenden Containers.

    SerkanLives schrieb:

    Habe ich derzeit keine Lösung, wie ich die DataSets abspeichere. Als ich die Datenbanken über die VBA Nutzeroberfläche verknüpft hatte (also nicht im Runtime), hatte ich es irgendwie hinbekommen, dass die Datenbanken live verbunden und geupdated wurden, durch BindingSources evtl.? Wenn ja, wie erstelle ich bzw. verknüpfe ich sowas mit meinem DataSet in Runtime?

    DataSets sind (mächtige und umfangreiche) Klassen. Die werden nicht gespeichert. Ein DataSet beinhaltet DataTables und die enthalten Daten und diese Daten kann man abspeichern. Das Verknüpfen von BijndingSource und DataSet/DataTable ist sehr einfach. Aber dafür ist viel zu viel Code gepostet, um da eine für Dich passende Lösung anbieten zu können. Grundsätzlich: BindingSource.DataSource = DeinDataSet: BindingSource.DataMember = "NameDeinerDataTable"

    Literaturempfehlung und Co.:
    Wenn Du in Visual Studio unterwegs bist, dann geht es nicht um VBA, sondern um VB.Net. VBA sind Makros in Word, Excel und Co. DGV, DataSet und AddHandler sind VB.Net.
    Kümmer Dich um eine saubere Benennung Deiner CEs und Forms. Form6? DataGridView2? Da blickt doch keiner durch.
    Dialoge richtig instanziieren
    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.

    Hey VaporiZed,

    danke dir für deine Antwort und ja, wie gesagt, man kann es sauberer machen, das wird auch alles sauberer gemacht.


    VaporiZed schrieb:

    Da ist kein auf Anhieb ins Auge stechender Bezug zu einer ComboBox. Schwierig zu sagen, warum es da klappt, wenn der Bezug fehlt.


    Die Combobox heißt Prozess1, demnach

    VB.NET-Quellcode

    1. If Prozess1.Text <> "xyz" Then
    .
    Bezug ist vorhanden durch

    VB.NET-Quellcode

    1. Dim Fr As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess1.Text & "=True)", ConnectionOLE)
    . In der Tabelle Fragekatalog sind die Prozesse nochmal in Spalten vorhanden, die durch ne Checkbox auf TRUE oder FALSE gesetzt werden können und sind so den jeweiligen Fragen zugeordnet.



    VaporiZed schrieb:

    Unwirksam, wenn die ComboBoxen nicht auf dem Form direkt liegen, sondern in einem Container (Panel, TabControl, GroupBox, ...; Da gehören dann zu Me.Controls nur die Container, aber die ComboBoxen gehören zu den Controls des entsprechenden Containers.


    Ich hab jetzt versucht, die Me.Controls Funktion zu umgehen & hab jetzt eine Liste von Comboboxen erstellt, und diese dann in eine Schleife eingepackt, was auch funktioniert

    VB.NET-Quellcode

    1. Dim Combobox As New List(Of ComboBox)
    2. Combobox.Add(Prozess1)
    3. Combobox.Add(Prozess2)
    4. Combobox.Add(Prozess3)
    5. Combobox.Add(Prozess4)
    6. Combobox.Add(Prozess5)
    7. Combobox.Add(Prozess6)
    8. Combobox.Add(Prozess7)
    9. Combobox.Add(Prozess8)
    10. Combobox.Add(Prozess9)
    11. Combobox.Add(Prozess10)
    12. Combobox.Add(Prozess11)
    13. Combobox.Add(Prozess12)
    14. Combobox.Add(Prozess13)
    15. Combobox.Add(Prozess14)
    16. Combobox.Add(Prozess15)
    17. Combobox.Add(Prozess16)
    18. Combobox.Add(Prozess17)
    19. Combobox.Add(Prozess18)
    20. Combobox.Add(Prozess19)
    21. Combobox.Add(Prozess20)
    22. Combobox.Add(Prozess21)
    23. Combobox.Add(Prozess22)
    24. Combobox.Add(Prozess23)
    25. Combobox.Add(Prozess24)
    26. Combobox.Add(Prozess25)
    27. Combobox.Add(Prozess26)
    28. Combobox.Add(Prozess27)
    29. Combobox.Add(Prozess28)
    30. Combobox.Add(Prozess29)
    31. Combobox.Add(Prozess30)
    32. Combobox.Add(Prozess31)
    34. For Each Prozess As ComboBox In Combobox
    35. If Prozess.Text <> "Bitte Prozess angeben" Then
    36. Dim Tabelle As ADOX.Table
    37. Tabelle = New ADOX.Table
    38. Connection = Catalog.ActiveConnection
    40. Tabelle.Name = AG1.Text + Name1.Text
    42. Tabelle.Columns.Append("Checkpunkte", ADOX.DataTypeEnum.adVarWChar,)
    43. Tabelle.Columns.Append("Ja", ADOX.DataTypeEnum.adBoolean,)
    44. Tabelle.Columns.Append("Nein", ADOX.DataTypeEnum.adBoolean,)
    46. Catalog.Tables.Append(Tabelle)
    48. Dim ConnectionOLE2 As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=\\xyz\Documents\Linien\" & DatabaseName & ".accdb")
    49. Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess.Text & " = TRUE)", ConnectionOLE)
    51. TabelleName = AG1.Text + Name1.Text
    53. da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO " & TabelleName & " (Checkpunkte,Ja,Nein) VALUES (@Checkpunkte, @Ja, @Nein)", ConnectionOLE2)
    54. da.InsertCommand.Parameters.Add("@Checkpunkte", OleDb.OleDbType.VarChar, 50, "Checkpunkte")
    56. da.InsertCommand.Parameters.Add("@Ja", OleDb.OleDbType.Boolean, 8, "Ja")
    57. da.InsertCommand.Parameters.Add("@Nein", OleDb.OleDbType.Boolean, 8, "Nein")
    59. da.AcceptChangesDuringFill = False
    61. da.Fill(dt)
    63. Dim Button As New ToolStripButton
    65. Button.Text = Prozess.Text
    67. Form6.FragenAllgemeinToolStrip.Items.Add(Button)
    68. Button.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
    69. Button.ImageTransparentColor = System.Drawing.Color.Magenta
    70. Button.Name = "Button"
    71. Button.Size = New System.Drawing.Size(60, 29)
    73. Dim dt1 As New DataSet
    74. Dim Fr As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess.Text & "=True)", ConnectionOLE)
    75. Fr.Fill(dt1)
    76. Form6.DataGridView2.DataSource = dt1.Tables(0)
    78. AddHandler Button.Click, AddressOf HandleDynamicButtonClick
    80. da.Update(dt)
    81. Tabelle = Nothing
    83. End If
    85. Next

    Jetzt ist halt noch die Sache, dass die Tabellennamen

    VB.NET-Quellcode

    1. Tabelle.Name = AG1.Text + Name1.Text
    auch in eine Schleife sollen und den Comboboxen zugeordnet werden sollen --> Für Prozess1 -> Ag1 + Name1, Für Prozess2 -> Ag2 + Name2 usw., nur habe ich keinen blassen Schimmer wie das funktionieren soll.

    EDIT:

    Ich hab es jetzt folgendermaßen versucht, jedoch spuckt er mir den Fehler: "Table ID is invalid" aus..

    VB.NET-Quellcode

    1. Dim Connection As ADODB.Connection
    3. Dim TabelleName As String
    5. Connection = New ADODB.Connection
    7. Combobox.Add(Prozess1)
    8. Combobox.Add(Prozess2)
    9. Combobox.Add(Prozess3)
    10. Combobox.Add(Prozess4)
    11. Combobox.Add(Prozess5)
    12. Combobox.Add(Prozess6)
    13. Combobox.Add(Prozess7)
    14. Combobox.Add(Prozess8)
    15. Combobox.Add(Prozess9)
    16. Combobox.Add(Prozess10)
    17. Combobox.Add(Prozess11)
    18. Combobox.Add(Prozess12)
    19. Combobox.Add(Prozess13)
    20. Combobox.Add(Prozess14)
    21. Combobox.Add(Prozess15)
    22. Combobox.Add(Prozess16)
    23. Combobox.Add(Prozess17)
    24. Combobox.Add(Prozess18)
    25. Combobox.Add(Prozess19)
    26. Combobox.Add(Prozess20)
    27. Combobox.Add(Prozess21)
    28. Combobox.Add(Prozess22)
    29. Combobox.Add(Prozess23)
    30. Combobox.Add(Prozess24)
    31. Combobox.Add(Prozess25)
    32. Combobox.Add(Prozess26)
    33. Combobox.Add(Prozess27)
    34. Combobox.Add(Prozess28)
    35. Combobox.Add(Prozess29)
    36. Combobox.Add(Prozess30)
    37. Combobox.Add(Prozess31)
    38. Combobox.Add(Prozess32)
    40. Dim Name As New List(Of String)
    42. Name.Add(Name1.Text)
    43. Name.Add(Name2.Text)
    44. Name.Add(Name3.Text)
    45. Name.Add(Name4.Text)
    46. Name.Add(Name5.Text)
    47. Name.Add(Name6.Text)
    48. Name.Add(Name7.Text)
    49. Name.Add(Name8.Text)
    50. Name.Add(Name9.Text)
    51. Name.Add(Name10.Text)
    52. Name.Add(Name11.Text)
    53. Name.Add(Name12.Text)
    54. Name.Add(Name13.Text)
    55. Name.Add(Name14.Text)
    56. Name.Add(Name15.Text)
    57. Name.Add(Name16.Text)
    58. Name.Add(Name17.Text)
    59. Name.Add(Name18.Text)
    60. Name.Add(Name19.Text)
    61. Name.Add(Name20.Text)
    62. Name.Add(Name21.Text)
    63. Name.Add(Name22.Text)
    64. Name.Add(Name23.Text)
    65. Name.Add(Name24.Text)
    66. Name.Add(Name25.Text)
    67. Name.Add(Name26.Text)
    68. Name.Add(Name27.Text)
    69. Name.Add(Name28.Text)
    70. Name.Add(Name29.Text)
    71. Name.Add(Name30.Text)
    72. Name.Add(Name31.Text)
    73. Name.Add(Name32.Text)
    75. For Each Prozess As ComboBox In Combobox
    76. If Prozess.Text <> "Bitte Prozess angeben" Then
    77. For i = 0 To 31
    78. 'Tabelle erstellen
    79. Dim Tabelle As ADOX.Table
    80. Tabelle = New ADOX.Table
    81. Connection = Form1.Catalog.ActiveConnection
    83. Tabelle.Columns.Append("Checkpunkte", ADOX.DataTypeEnum.adVarWChar,)
    84. Tabelle.Columns.Append("Ja", ADOX.DataTypeEnum.adBoolean,)
    85. Tabelle.Columns.Append("Nein", ADOX.DataTypeEnum.adBoolean,)
    87. Form1.Catalog.Tables.Append(Tabelle)
    89. 'Tabelle mit Fragen füllen
    90. Dim ConnectionOLE2 As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=xyz\Documents\Linien\" & DatabaseName & ".accdb")
    91. Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess.Text & " = TRUE)", ConnectionOLE)
    93. TabelleName = Name.Item(i)
    95. da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO " & TabelleName & " (Checkpunkte,Ja,Nein) VALUES (@Checkpunkte, @Ja, @Nein)", ConnectionOLE2)
    96. da.InsertCommand.Parameters.Add("@Checkpunkte", OleDb.OleDbType.VarChar, 50, "Checkpunkte")
    98. da.InsertCommand.Parameters.Add("@Ja", OleDb.OleDbType.Boolean, 8, "Ja")
    99. da.InsertCommand.Parameters.Add("@Nein", OleDb.OleDbType.Boolean, 8, "Nein")
    101. da.AcceptChangesDuringFill = False
    103. da.Fill(dt)
    105. 'Button für die Tabelle erstellen
    106. Dim Button As New ToolStripButton
    108. Button.Text = Name.Item(i)
    110. Fragebogen.FragenAllgemeinToolStrip.Items.Add(Button)
    111. Button.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
    112. Button.ImageTransparentColor = System.Drawing.Color.Magenta
    113. Button.Name = "Button"
    114. Button.Size = New System.Drawing.Size(60, 29)
    116. 'Button mit der Tabelle verknüpfen
    117. Dim Fr As New OleDb.OleDbDataAdapter("SELECT * FROM Fragekatalog WHERE (" & Prozess.Text & "=True)", ConnectionOLE)
    118. Fr.Fill(dt1)
    120. AddHandler Button.Click, AddressOf HandleDynamicButtonClick
    121. Tabelle = Nothing
    122. Next
    123. Else
    124. End If
    125. Next


    Die Bindingsource zum live Updaten der Datenbank (wenn das überhaupt so funktioniert, hab ich noch nicht kontrollieren können) ist jetzt in die nächste Form Fragebogen gewandert:

    VB.NET-Quellcode

    1. Private Sub Fragebogen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Dim Binding As New BindingSource
    4. Binding.DataSource = Form2.dt1
    5. Me.DataGridView2.DataSource = Binding
    7. End Sub


    Ich danke nochmal für die Unterstützung!

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „SerkanLives“ ()

Facebook
Telefonspende