Hallo liebe Community,
seit Tagen sitze ich an einem Problem, für welches ich immer noch keine Lösung habe.
Was ich haben will:
- Für jeden Prozess als Combobox, in dessen nicht der Wert "Bitte Prozess angeben" gegeben ist, soll eine Tabelle in einer vorhandenen Datenbank erstellt werden. -> Tabelle erstellen -> funktioniert
- Die Tabellennamen sollen aus den jeweiligen Textboxen Name1,Name2 etc. entnommen werden, dh. Name1.Text für Prozess1 -> funktioniert nicht!
- In diese Tabelle werden Werte von einer anderen Datenbank hinzugefügt. -> Tabelle befüllen -> funktioniert
- Die Daten der erstellten Tabelle sollen nun PRO TABELLE mit jeweiligen Bindingsources verknüpft werden, dh. Tabelle1 für Binding1, Tabelle2 für Binding2 etc.
- Pro Tabelle soll ein Toolstripbutton für die nächste Form erstellt werden mit den jeweiligen Binding Sources als Datasource, sodass ich am Ende die Verknüpfung: Name1.Text für Prozess1 für Binding1, Name2.Text für Prozess2 für Binding2 etc. habe
Die Idee dahinter ist simpel: Auf der nächsten Form existiert eine Toolstripleiste und eine versteckte Datagridview, welcher durch den Klick auf eines der Toolstripbuttons seine jeweilige Datasource mit den jeweiligen Bindings erhält. Sodass die jeweiligen Tabellen in der Datenbank durch die Toolstripbuttons erscheinen.
Wie man erkennen kann habe ich versucht, alle Combo und Textboxen jeweils in Listen zu packen und dann durch die Listen zu loopen. Es taucht der Fehler: Exception from HRESULT: 0x80040E3E auf, für die es keine wirkliche Beschreibung gibt. Ich hoffe ihr könnt mir da weiterhelfen!
seit Tagen sitze ich an einem Problem, für welches ich immer noch keine Lösung habe.
Was ich haben will:
- Für jeden Prozess als Combobox, in dessen nicht der Wert "Bitte Prozess angeben" gegeben ist, soll eine Tabelle in einer vorhandenen Datenbank erstellt werden. -> Tabelle erstellen -> funktioniert
- Die Tabellennamen sollen aus den jeweiligen Textboxen Name1,Name2 etc. entnommen werden, dh. Name1.Text für Prozess1 -> funktioniert nicht!
- In diese Tabelle werden Werte von einer anderen Datenbank hinzugefügt. -> Tabelle befüllen -> funktioniert
- Die Daten der erstellten Tabelle sollen nun PRO TABELLE mit jeweiligen Bindingsources verknüpft werden, dh. Tabelle1 für Binding1, Tabelle2 für Binding2 etc.
- Pro Tabelle soll ein Toolstripbutton für die nächste Form erstellt werden mit den jeweiligen Binding Sources als Datasource, sodass ich am Ende die Verknüpfung: Name1.Text für Prozess1 für Binding1, Name2.Text für Prozess2 für Binding2 etc. habe
Die Idee dahinter ist simpel: Auf der nächsten Form existiert eine Toolstripleiste und eine versteckte Datagridview, welcher durch den Klick auf eines der Toolstripbuttons seine jeweilige Datasource mit den jeweiligen Bindings erhält. Sodass die jeweiligen Tabellen in der Datenbank durch die Toolstripbuttons erscheinen.
VB.NET-Quellcode
- Dim Comboboxliste As New List(Of ComboBox)
- Dim Name As New List(Of TextBox)
- Dim n As Integer
- Comboboxliste.Add(Prozess1)
- Comboboxliste.Add(Prozess2)
- Comboboxliste.Add(Prozess3)
- Name.Add(Name1)
- Name.Add(Name2)
- Name.Add(Name3)
- For n = 0 To 2
- For Each Prozess As ComboBox In Comboboxliste
- If Prozess.Text <> "Bitte Prozess angeben" Then
- TabelleName = Name(n).Text
- 'Tabelle erstellen
- Tabelle.Name = TabelleName
- Tabelle.Columns.Append("Checkpunkte", ADOX.DataTypeEnum.adVarWChar,) '--> Hier taucht der Fehler "Exception from HRESULT: 0x80040E3E" auf
- Tabelle.Columns.Append("Ja", ADOX.DataTypeEnum.adBoolean,)
- Tabelle.Columns.Append("Nein", ADOX.DataTypeEnum.adBoolean,)
- Catalog.Tables.Append(Tabelle)
- 'Tabelle befüllen
- Prozessadapter.InsertCommand = New OleDb.OleDbCommand("INSERT INTO " & TabelleName & " (Checkpunkte) VALUES (@Checkpunkte)", ConnectionOLE2)
- Prozessadapter.InsertCommand.Parameters.Add("@Checkpunkte", OleDb.OleDbType.VarChar, 300, "Checkpunkte")
- Prozessadapter.AcceptChangesDuringFill = False
- Prozessadapter.Fill(Fragen)
- Prozessadapter.Update(Fragen)
- 'ToolstripButton erstellen
- ToolButton.Text = TabelleName '
- Fragebogen.FragenAllgemeinToolStrip.Items.Add(ToolButton)
- ToolButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
- ToolButton.ImageTransparentColor = System.Drawing.Color.Magenta
- ToolButton.Name = "Button"
- ToolButton.Size = New System.Drawing.Size(60, 29)
- 'Binding erstellen
- Tabellenadapter = New OleDb.OleDbDataAdapter("SELECT * FROM " & TabelleName & "", ConnectionOLE2)
- Tabellenadapter.Fill(DataGridSet)
- Binding.DataSource = DataGridSet
- AddHandler ToolButton.Click, AddressOf HandleDynamicButtonClick
- End If
- Next
- Next
Wie man erkennen kann habe ich versucht, alle Combo und Textboxen jeweils in Listen zu packen und dann durch die Listen zu loopen. Es taucht der Fehler: Exception from HRESULT: 0x80040E3E auf, für die es keine wirkliche Beschreibung gibt. Ich hoffe ihr könnt mir da weiterhelfen!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SerkanLives“ ()