MySQL Timeout expired

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    MySQL Timeout expired

    Hallo Zusammen,

    ich glaube ich mach da bei der Datenbankprogrammierung was falsch...
    Also ich möchte das mein Programm Ordner durchsucht und dann schaut ob die Datein schon in der Datenbank vorhanden sind. Das funktioniert auch so weit. Leider bekomme ich jetzt eine Fehlermeldung die ich nicht so ganz nachvollziehen kann.



    Wenn ich das richtig verstehe gibt es einen Timeout ? Liegt es daran das zu viele anfragen in zu kurzer Zeit gestellt werden? Ist es damit getan den Timeout beim MySql Server zu erhöhen? Oder liegt es doch an meiner Programmierung bzw. an den Abfragen und dem Insert?

    Hier der Teil der für das auswählen der Ordner oder des Ordners verantwortlich ist:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim serie As String = ComboBox1.Text
    3. If serie = "Alle Serien" Then
    4. Dim server As String = INI_ReadValueFromFile("Einstellungen", "server", "", ".\cfg.ini")
    5. Dim user As String = INI_ReadValueFromFile("Einstellungen", "user", "", ".\cfg.ini")
    6. Dim passwort As String = INI_ReadValueFromFile("Einstellungen", "passwort", "", ".\cfg.ini")
    7. Dim datenbank As String = INI_ReadValueFromFile("Einstellungen", "datenbank", "", ".\cfg.ini")
    9. Dim myConnectionString2 As String
    10. Dim reader As MySql.Data.MySqlClient.MySqlDataReader
    11. myConnectionString2 = "server=" & server & ";uid=" & user & ";pwd=" & passwort & ";database=" & datenbank & ";"
    12. Dim myConnection2 As New MySqlConnection(myConnectionString2)
    13. Dim myInsertQuery2 As String = "SELECT * FROM serien WHERE status = 'ja' ORDER BY serienname"
    14. Dim myCommand2 As New MySqlCommand(myInsertQuery2)
    15. myCommand2.Connection = myConnection2
    16. myConnection2.Open()
    17. reader = myCommand2.ExecuteReader
    18. Do While reader.Read()
    19. Dim serienname As String = reader("serienname")
    20. indexierungserien(serienname)
    21. Loop
    22. myCommand2.Connection.Close()
    23. Else
    24. indexierungserien(serie)
    25. End If
    26. End Sub


    Und hier der Code womit ich die Daten überprüfe:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub indexierungserien(serie As String)
    2. Dim serienname As String = serie
    3. Dim server As String = INI_ReadValueFromFile("Einstellungen", "server", "", ".\cfg.ini")
    4. Dim user As String = INI_ReadValueFromFile("Einstellungen", "user", "", ".\cfg.ini")
    5. Dim passwort As String = INI_ReadValueFromFile("Einstellungen", "passwort", "", ".\cfg.ini")
    6. Dim datenbank As String = INI_ReadValueFromFile("Einstellungen", "datenbank", "", ".\cfg.ini")
    7. Dim myConnectionString2 As String
    8. Dim reader As MySql.Data.MySqlClient.MySqlDataReader
    9. myConnectionString2 = "server=" & server & ";uid=" & user & ";pwd=" & passwort & ";database=" & datenbank & ";"
    10. Dim myConnection2 As New MySqlConnection(myConnectionString2)
    11. Dim myInsertQuery2 As String = "SELECT * FROM serien WHERE serienname = '" & serienname & "'"
    12. Dim myCommand2 As New MySqlCommand(myInsertQuery2)
    13. myCommand2.Connection = myConnection2
    14. myConnection2.Open()
    15. reader = myCommand2.ExecuteReader
    16. Do While reader.Read()
    17. Dim pfad As String = reader("pfad")
    18. Dim pfadbackslash As String = Replace(pfad, "\", "\\\")
    19. Dim thetvdbapi As String = reader("thetvdbapi")
    20. Dim xrelapi As String = reader("xrelapi")
    22. ListBox1.Items.Add(pfad)
    23. For Each unterordner In My.Computer.FileSystem.GetDirectories(pfad)
    24. Dim arrayordner() As String = Split(unterordner, "\")
    25. Dim arrayordnerteile As String = arrayordner.Count - 1
    26. ListBox1.Items.Add(arrayordner(arrayordnerteile))
    27. For Each datein In My.Computer.FileSystem.GetFiles(unterordner)
    28. 'ListBox1.Items.Add(datein)
    29. Dim infoReader As System.IO.FileInfo
    30. infoReader = My.Computer.FileSystem.GetFileInfo(datein)
    31. Dim dateifilesize As String = infoReader.Length
    32. Dim arraydatei() As String = Split(datein, "\")
    33. Dim arraydateiteile As String = arraydatei.Count - 1
    34. Dim datei As String = arraydatei(arraydateiteile)
    35. Dim serieordner As String = arraydatei(arraydatei.Count - 2)
    36. Dim laenge As String = datei.Length - 4
    37. Dim releasename As String = datei.Substring(0, laenge)
    38. Dim myConnectionString As String
    39. myConnectionString = "server=" & server & ";uid=" & user & ";pwd=" & passwort & ";database=" & datenbank & ";"
    40. Dim myConnection As New MySqlConnection(myConnectionString)
    41. Dim myInsertQuery As String = "SELECT COUNT(*) FROM content WHERE datei = '" & datei & "'"
    42. Dim myCommand As New MySqlCommand(myInsertQuery)
    43. myCommand.Connection = myConnection
    44. myConnection.Open()
    45. Dim numb = CInt(myCommand.ExecuteScalar())
    46. If numb < 1 Then
    47. ListBox1.Items.Add(datei)
    48. myCommand.Connection.Close()
    49. '
    50. Dim myConnectionString3 As String
    51. myConnectionString3 = "server=" & server & ";uid=" & user & ";pwd=" & passwort & ";database=" & datenbank & ";"
    52. Dim myConnection3 As New MySqlConnection(myConnectionString3)
    53. Dim myInsertQuery3 As String = "INSERT INTO `davenet`.`content` (`id`, `typ`, `serie`, `serieordner`, `datei`, `releasename`, `pfad`, `quali`, `staffel`, `episode`, `titel`, `plot`, `filesize`, `releasegroup`, `videotype`, `audiotype`, `status`, `nzbdllink`, `retention`, `thetvdbapi`, `xrelapi`, `imdb`, `cover`, `erfasst`) VALUES (NULL, 'Serie', '" & serienname & "', '" & serieordner & "', '" & datei & "', '" & releasename & "', '" & pfadbackslash & "', NULL, NULL, NULL, NULL, NULL, '" & dateifilesize & "', NULL, NULL, NULL, NULL, NULL, NULL, '" & thetvdbapi & "', '" & xrelapi & "', NULL, NULL, NULL)"
    54. Dim myCommand3 As New MySqlCommand(myInsertQuery3)
    55. myCommand3.Connection = myConnection3
    56. myConnection3.Open()
    57. myCommand3.ExecuteNonQuery()
    58. myCommand3.Connection.Close()
    59. System.Threading.Thread.Sleep(500)
    60. '
    61. End If
    62. Next
    63. Next
    64. Loop
    65. myCommand2.Connection.Close()
    66. End Sub


    Ich weiß es ist nicht gut aber darum wende ich mich ja auch ans Forum :) Ich denke bei den MySQL Sachen gibt es noch Optimierungsbedarf :P Aber ich bin froh das ich es überhaupt zum laufen gebracht habe :D

    Danke,

    Diabetiker :thumbup:

    Also, ein Thread verweist auf ein neues Sub. Da schreibst du dann das Ganze von einem der Ausführungen rein.

    VB.NET-Quellcode

    1. Dim t As New Thread(AddressOf MySQL1)
    2. t.Start()
    4. Sub MySQL1()
    5. 'Hier kommt dann der Code zum prüfen rein.
    6. End Sub


    Und das machst du für jede Anfrage.

    Ok hört sich erst mal logisch an , Danke ! :thumbup:
    Ich weiß das ist etwas viel verlangt aber könntest du das für eine SQL Abfrage mal exemplarisch machen damit ich weiß wie es in meinem Fall richtig aussehen muss?
    Das wäre wirklich klasse!

    Danke,

    Diabetiker :thumbsup:

    Also: Vorab, ich kann nicht garantieren, ob das klappt. Du solltest eventuell noch die Threads von bestimmten Punkten aus starten, wenn der andere Thread jeweils beendet ist.

    VB.NET-Quellcode

    1. Dim t As New Thread(AdressOf MySQL3)
    2. t.Start() 'Das solltest du noch machen, wenn die anderen Threads beendet sind
    3. Sub MySQL3()
    4. Dim myCommand3 As New MySqlCommand(myInsertQuery3)
    5. myCommand3.Connection = myConnection3
    6. myConnection3.Open()
    7. myCommand3.ExecuteNonQuery()
    8. myCommand3.Connection.Close()
    9. System.Threading.Thread.Sleep(500)
    10. '
    11. End If
    12. Next
    13. Next
    14. Loop
    15. myCommand2.Connection.Close()
    16. End Sub


    Das blöde ist jetzt, ich musste oben nen Teil weglassen, wegen der Formatierung. Das da einfach wieder reinmachen, also das mit der Connection3.

    Warum eigentlich eine Do-Schleife?
    Weißt du, das Problem ist, dass ich bei deinem Code nicht weiß, was was ist, da der so aufeinander gepresst ist.
    Ungefähr so musst du es dann machen, aber noch anpassen!
    Versuche mal ne andere Timeout-Zeit in dem String.

    Vielleicht solltest du dir noch das ansehen:

    VB.NET-Quellcode

    1. System.Threading.Thread.Sleep(500)


    Mal abgesehen vom aufeinandergepressten Code!
    Hier solltest du mal versuchen den Interval höher zu setzen!
    Wäre einfacher!

    Nein sollte er sich nicht. Wenn ne Datenbank nen Timeout zurückgibt hat das garantiert nix damit zu tun, dass du kein mulithreading verwendest. Und mit Sleep und derartigem Brainfuk auffahren ist da wohl die falsche Lösung. Da der Fehler beim erstellen einer Verbindung auftritt:
    a) Ist die Datenbank gestartet
    b) Ist die Datenbank verfügbar(hast du eine Verbindung darauf - internet Verbindung,...)
    c) Stimmt der Connectionstring
    d) Gibt es eine InnerExeception?
    e) Teste mal mit einem MySQL Client wie z.B. MySQL-Workbench ob du auf die Datenbank kommst.

    An Sperrzuständen hervorgerufen durch Transaktionen wird es beim öffnen einer Verbindung wohl eher weniger liegen. Und außerdem ist MySQL darauf ausgelegt sehr sehr viele Anfragen bearbeiten zu können. Threading ist nicht die Antwort auf alles.

    Außerdem: Vergiss nicht die Verbindung nach den Abfragen wieder zu schließen. Mehrere offene Verbindungen können durchaus zu Problemen führen.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Hallo Zusammen,

    Antworten:
    a) Ja
    b) Ja (Liegt lokal)
    c) Ja (Daten werden ja auch importiert. Irgendwann kommt der Fehler)
    d) Verstehe die Frage leider nicht
    e) Verbindung kann hergestellt werden

    Ich denke das ich auch überall die verbinung geschlossen haben.

    Danke,

    Diabetiker

Facebook
Telefonspende