Unbehandelte Ausnahme: System.TypeInitializationException

Typhoon · 1. Mai 2023, 18:06

Hallo liebes Forum

Da ich michnoch immer mit der Fehlerbehebung "Option Strict ON" auseinandersetzt und doch noch so einige Fehler zu beheben sind hänge ich leider wieder an einer Stelle, die ansonsten immer Funktioniert hat.

Verbindung zur Datenbank über das Modul "dbConnect" Hier der Code:

VB.NET-Quellcode

'importieren von MySql
Imports MySql.Data.MySqlClient
Module dbConnect
'die Verbindung zur Datenbank definieren, damit von überall her darauf zugegriffen werden kann
Public con As New MySqlConnection
Public Function ConnectDatabase() As String
'array defninieren
Dim mysqlError As String
LeseIni()
Try
'Testen ob die Verbindung noch offen ist, wenn nein dann
If con.State = ConnectionState.Closed Then
'VerbindungsString erstellen
con.ConnectionString = "SERVER=" & druckereimanagerConnection.serverName & "; PORT=" & druckereimanagerConnection.serverPort & "; USER ID=" & druckereimanagerConnection.userName & "; PASSWORD=" & druckereimanagerConnection.userPassWd & "; CHARSET=" & druckereimanagerConnection.charset & ";"
'Verbindung öffnen
con.Open()
End If
'und wahr zurückgeben
Return CStr(True)
'Fehler abfangen
Catch myerror As MySqlException
'fehler meldung und fehlercode in array schreiben
mysqlError = myerror.Message & " " & myerror.Number.ToString
'und fehler zurück geben
Return mysqlError
End Try
End Function
End Module

Wenn ich das Programm ausführe wird an der Stelle "con.open()" ein Fehler ausgeworfen.

System.TypeInitializationException: "Der Typeninitialisierer für "MySql.Data.MySqlClient.Replication.ReplicationManager" hat eine Ausnahme verursacht."

3 inneren Ausnahmen

1. TypeInitializationException: Der Typeninitialisierer für "MySql.Data.MySqlClient.MySqlConfiguration" hat eine Ausnahme verursacht.
2. ConfigurationErrorsException: Das Konfigurationssystem konnte nicht initialisiert werden.
3. ConfigurationErrorsException: Unbekannter Konfigurationsabschnitt "userSettings". (C:\Users\gebha\AppData\Local\Druckereimanager\Druckereimanager.exe_Url_5yrwbnf5yzfthjgwi3y0gzhlxsgojh2z\1.0.0.0\user.config line 3)

Kann mir bitte jemand einen Tipp geben? Ich komme leider mit google und co nicht weiter.

Danke Gebhard

VaporiZed · 1. Mai 2023, 18:19

Typhoon schrieb:

Unbekannter Konfigurationsabschnitt "userSettings". (C:\Users\gebha\AppData\Local\Druckereimanager\Druckereimanager.exe_Url_5yrwbnf5yzfthjgwi3y0gzhlxsgojh2z\1.0.0.0\user.config line 3)

Was steht denn in der user.config in Zeile#3, wenn der Compiler schon so konkrete Ursachendaten ausspuckt?

Typhoon · 2. Mai 2023, 13:41

Hallo VaporiZed

Das steht in der user.config drinnen.

XML-Quellcode

<?xml version="1.0" encoding="utf-8"?>
<configuration>
<userSettings>
<Druckereimanager.My.MySettings>
<setting name="AutoUpdate" serializeAs="String">
<value>False</value>
</setting>
</Druckereimanager.My.MySettings>
</userSettings>
</configuration>

Gruss Gebhard

ErfinderDesRades · 2. Mai 2023, 15:29

das ist für eine Config wohl unvollständig. Hier eine App.Config von mir:

XML-Quellcode

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="DbRestorer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
</startup>
<userSettings>
<DbRestorer.My.MySettings>
<setting name="TestSetting" serializeAs="String">
<value>False</value>
</setting>
</DbRestorer.My.MySettings>
</userSettings>
</configuration>

Du siehst: Die SectionGroup <userSettings> muss quasi 'angemeldet' sein (unter Angabe eines Datentyps), damit das Configurations-System das lesen kann.

Typhoon · 3. Mai 2023, 16:50

Hallo ErfinderDesRades

Danke für dein Post. Hat leider nicht funktioniert. Copy and Past und ein paar Änderungen z.B. DbRestorer.My.MySettings in Druckereimanager.My.MySettings geändert ergab danach ein Fehler in Zeile 5.

Ich war mutig und habe die ganze user.config gelöscht und siehe da..... Jetzt funktionierte dasd Program wieder.

Noch eine Frage. Gibt es eine Möglichkeit eine Textbox zu aktualisieren wie eine Datagridview?

Ich lese einen Wert aus meiner DB und gib den Inhalt in der Textbox aus. Jetzt schreibe ich einen neuen Wert in die DB und dann sollte auch der Textbox.Text aktualisiert werden nach dem drückern des Buttons Speichern. Ich bekommen das nicht hin. Mit Form.Refresh(), Form.Load() klappt alles nicht.

Hier mein Code für das lesen und einfügen in die DB:

VB.NET-Quellcode

Imports MySql.Data.MySqlClient
Public Class FrmFeuchtraum
Private Sub FrmFeuchtraum_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim AktFldNme As String = String.Empty
Dim MyReader As MySqlDataReader = Nothing
Dim cmd As New MySqlCommand
Dim sql As String = "Select * FROM `DWP`.`feuchtmittelmessung` WHERE tank = 'T1' ORDER BY datum DESC LIMIT 1"
Try
If CBool(ConnectDatabase()) Then
cmd = New MySqlCommand With {
.Connection = con,
.CommandText = sql
}
MyReader = cmd.ExecuteReader
With MyReader
While .Read
For N As Integer = 0 To .FieldCount - 1
AktFldNme = .GetName(N)
Select Case AktFldNme.ToLower
Case "datum".ToLower
lblDatumT1.Text = .GetDateTime(N).ToString("g") '"dd/MM/yyyy HH:mm:ss"
Case "leitwert".ToLower
lbltnk1lwt.Text = .GetInt32(N).ToString("D")
End Select
Next
End While
End With
End If
Catch ex As MySqlException
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error [" & ex.GetType.Name & ", Akt. Feld: """ & AktFldNme & """]")
Finally
If MyReader IsNot Nothing Then
MyReader.Close()
MyReader = Nothing
End If
If cmd IsNot Nothing Then
cmd.Dispose()
cmd = Nothing
End If
End Try
End Sub
Private Sub BtnSpeichern_Click(sender As Object, e As EventArgs) Handles BtnSpeichern.Click
Dim cmd As New MySqlCommand("INSERT INTO `DWP`.`feuchtmittelmessung`(tank, leitwert)Values('T1', @leitwert)", con)
If CheckValidInput(txttnk1lwt.Text) = CStr(True) Then
Try
cmd.Parameters.AddWithValue("leitwert", txttnk1lwt.Text.Replace(",", "."))
Catch myerror As MySqlException
'fehler meldung und fehlercode anzeigen
MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
cmd.ExecuteNonQuery()
MessageBox.Show("Messungen erfolgreich eingetragen", "Information", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
Else
MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & "Nicht alle Angaben enthalten gültige Werte.", "Eingabefehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
End Class

Bei einer Datagridview funktioniert das doch mit Fill wie z.B.

VB.NET-Quellcode

Public Sub Disp_data()
Dim cmd As New MySqlCommand("SELECT * FROM `DWP`.`gummituchwechsel` WHERE druckeinheit = 'DE1'", con)
cmd.ExecuteNonQuery()
Dim dt As New DataTable
Dim da As New MySqlDataAdapter(cmd)
da.Fill(dt)
DataGridViewlistede1.DataSource = dt
DataGridViewlistede1.CurrentCell = DataGridViewlistede1.Item(0, DataGridViewlistede1.Rows.Count - 1)
End Sub

Git es soetwas auch für Texboxen?

Gruß und Danke

Gebhard

VaporiZed · 3. Mai 2023, 17:20

Das Zauberwort heißt DataBinding. Ja, das gibt es auch für TextBox und viele andere Controls. Es gibt verschiedene Arten von DataBinding. Simple, List und Complex. Du brauchst SimpleDataBinding, bei dem ein Wert eines Datenpakets im Zielcontrol angezeigt (und ggf. geändert) wird. Grundsätzlich läuft jede Art von WinForms-DataBinding nach dem Schema:

Daten in eine geeignete Datenstruktur laden, also z.B. eine Datensatzklasseninstanz (sog.POCOs oder hier wohl POVOs) oder eine Liste von Datensatzklasseninstanzen
Datensatz(liste) über eine BindingSource dem GUI zugänglich machen
Control(s) an den gewünschten BindingSource-Teil binden

Die BindingSource (BS) nimmt als Datenquelle entweder einen Datensatz (Datenklasseninstanz) oder eine Liste davon. Die Position der BS bestimmt, welcher Eintrag der Liste im Current der BS steht. Hast Du eine List(Of Foo) und 12 Foos in jener Liste und legst diese List(Of Foo) als DataSource der BS fest, kannst Du über die Position nun z.B. Position 0 festlegen. Damit wäre im BS-Current der erste Listeneintrag "drin", also über Current zugänglich. Mit den BS.Move…-Befehlen oder über Setzen der Position kannst Du über Code den Listeneintrag wählen, der im BS-Current drinstecken soll.
Im GUI kannst Du für Deine TextBox nun über die Property DataBinding festlegen, welche TextBox-Eigenschaft mit welcher Foo-Eigenschaft verbunden werden soll. So wird bei TextBoxen sehr häufig die Text-Property verbunden, sodass eben die gewählte Foo-Property in der TextBox gezeigt wird.

Typhoon · 4. Mai 2023, 16:15

Hallo VaporiZed

Danke für deine Bemühungen. Ich bin jetzt etwas überfordert da ich nicht genau weiß ob ich die Frage aus Post 5 richtig gestellt habe, oder mich falsch ausdrückte.
Ich versuche es hinzubekommen das wenn ich einen neuen Messwert (123) eingebe und mit Eintragen & Speichern in die db schreibe der Wert der vorher angezeigt wird (258) aktualisiert wird.
Im Moment muss ich das Fenster schliessen und neu aufmachen, damit mir der neu eingegebene Wert (123) angezeigt wird. Der Wert wird in einem Label ausgegeben. (lbltnk1lwt)
So wir Refresh oder frmForm1_load.Load() aber das klaptt nicht.
Gruß Gebhard

VaporiZed · 4. Mai 2023, 16:43

Typhoon schrieb:

Im Moment muss ich das Fenster schliessen und neu aufmachen

Und was passiert da konkret als Code? Das sollte eben statt dort im Button-EventHandler passieren. Also einfach den Code verschieben. Oder besser in eine passende Methode verschieben und über den Button nur jene Methode aufrufen.

btw:

Typhoon schrieb:

wird in einem Label ausgegeben. (lbltnk1lwt)

Mit der Labelbezeichnung willst Du wahrscheinlich einen Kryptowettbewerb gewinnen. Warum werden derartige Controlbenennungen eigentlich noch verwendet? Hirntraining?

Typhoon · 4. Mai 2023, 18:13

Und was passiert da konkret als Code?

Beim aufrufen der Form wird folgeneder Code ausgeführt:

VB.NET-Quellcode

Imports MySql.Data.MySqlClient
Public Class FrmFeuchtraum
Private Sub FrmFeuchtraum_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim AktFldNme As String = String.Empty
Dim MyReader As MySqlDataReader = Nothing
Dim cmd As New MySqlCommand
Dim sql As String = "Select * FROM `DWP`.`feuchtmittelmessung` WHERE tank = 'T1' ORDER BY datum DESC LIMIT 1"
Try
If CBool(ConnectDatabase()) Then
cmd = New MySqlCommand With {
.Connection = con,
.CommandText = sql
}
MyReader = cmd.ExecuteReader
With MyReader
While .Read
For N As Integer = 0 To .FieldCount - 1
AktFldNme = .GetName(N)
Select Case AktFldNme.ToLower
Case "datum".ToLower
lblDatumT1.Text = .GetDateTime(N).ToString("g") '"dd/MM/yyyy HH:mm:ss"
Case "leitwert".ToLower
lbltnk1lwt.Text = .GetInt32(N).ToString("D")
End Select
Next
End While
End With
End If
Catch ex As MySqlException
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error [" & ex.GetType.Name & ", Akt. Feld: """ & AktFldNme & """]")
Finally
If MyReader IsNot Nothing Then
MyReader.Close()
MyReader = Nothing
End If
If cmd IsNot Nothing Then
cmd.Dispose()
cmd = Nothing
End If
End Try
End Sub

Der holt sich immer den letzten eintrag aus der db und wirft den in der Textbox aus.

Der neue Eintrag wird mit folgendem Code in die db geschrieben:

VB.NET-Quellcode

Private Sub BtnSpeichern_Click(sender As Object, e As EventArgs) Handles BtnSpeichern.Click
Dim cmd As New MySqlCommand("INSERT INTO `DWP`.`feuchtmittelmessung`(tank, leitwert)Values('T1', @leitwert)", con)
If CheckValidInput(txttnk1lwt.Text) = CStr(True) Then
Try
cmd.Parameters.AddWithValue("leitwert", txttnk1lwt.Text.Replace(",", "."))
Catch myerror As MySqlException
'fehler meldung und fehlercode anzeigen
MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & myerror.Message & vbCrLf & "Errorcode: " & myerror.Number, "MySQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
cmd.ExecuteNonQuery()
MessageBox.Show("Messungen erfolgreich eingetragen", "Information", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
txttnk1lwt.Clear()
Else
MessageBox.Show("Es ist ein Fehler aufgetreten" & vbCrLf & "Nicht alle Angaben enthalten gültige Werte.", "Eingabefehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub

Danach sollte die Form aktualisiert werden ohne das ich immer die Form schließen und dann wieder zu öffnen.

Mit der Labelbezeichnung willst Du wahrscheinlich einen Kryptowettbewerb gewinnen.

lbltnk1lwt = LabelTank1Leitwert vielleicht wäre besser lblt1lwt

Gruß Gebhard

VaporiZed · 4. Mai 2023, 19:10

Das mit der Labelbezeichnung musst Du für Dich wissen und entscheiden …
Der ganze Code aus dem FormLoad-EventHandler kann doch in eine Sub namens … keine Ahnung, ReloadData. Und den Code von BtnSpeichern_Click in eine namens SaveData. Das kannst Du dann vom FormLoad-EventHandler aus aufrufen, aber eben auch nach dem Speichern über den Button. Also

VB.NET-Quellcode

Private Sub FrmFeuchtraum_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ReloadData()
End Sub
Private Sub BtnSpeichern_Click(sender As Object, e As EventArgs) Handles BtnSpeichern.Click
SaveData()
ReloadData()
End Sub

Typhoon · 5. Mai 2023, 10:49

@VaporiZed

Perfekt!! Das war's. Genau das suchte ich. Danke!!

Schönes WE allen.

Gruß Gebhard

Unbehandelte Ausnahme: System.TypeInitializationException

Unbehandelte Ausnahme: System.TypeInitializationException

VB.NET-Quellcode

Typhoon schrieb:

XML-Quellcode

XML-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Typhoon schrieb:

Typhoon schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben