timer+db abfrage funzt net

  • VB.NET

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

    timer+db abfrage funzt net

    hi

    ich verzweifele bald... ich krieg das nicht hin...


    ich habe einen timer der alle 1000 millisekunden etwas aus einer db abfragen soll. und das funktioniert schon nicht, ich kriege immer die meldung:
    Die 'ConnectionString'-Eigenschaft darf nicht geändert werden.Der aktuelle Status der Verbindung ist 'Geöffnet'.

    aber der Status kann gar nicht 'geöffnet' sein, da ich einmal den ganzen code bis auf die timer sub auskommentiert habe und diese meldung trotzdem kommt.
    wenn der code nicht auskommentiert ist werden alle offenen connection wieder direkt nach der abfrage geschlossen.

    mein code:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. Dim con As New Odbc.OdbcConnection
    3. Dim cmd As New Odbc.OdbcCommand
    4. Dim reader As Odbc.OdbcDataReader
    6. con.ConnectionString = "Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Uid=root;Database=nachrichten;"
    7. cmd.Connection = con
    8. cmd.CommandText = "SELECT * FROM nachrichten WHERE empfaengerid = '" & intUserid & "'"
    10. Try
    12. con.Open()
    13. reader = cmd.ExecuteReader
    14. Do While reader.Read
    15. If reader("neue_nachricht") = "1" Then
    16. MessageBox.Show("neue nachricht")
    17. Else
    18. MessageBox.Show("keine neue nachricht")
    19. End If
    20. reader.Close()
    21. con.Close()
    22. Loop
    23. Catch ex As Exception
    24. MessageBox.Show(ex.Message)
    25. con.Close()
    26. End Try
    28. End Sub


    ich hoffe ihr könnt mir helfen oder mir sagen wie es anders (vlt. besser) geht.
    danke schonmal im vorraus.


    mfg
    wsl

    hi,

    das hab ich jetzt geschafft das problem zu lösen.
    aber jetzt habe ich ein andres:

    da ich einen timer verbaut habe bekomme ich alle 1000 Millisekunden eine MessageBox angezeigt, was ich nicht will.
    ich will die messagebox nur 1mal angezeigt kriegen und dann nicht mehr. aber wie mach ich das?
    mein derzeitiger code:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. Dim con As New Odbc.OdbcConnection
    3. Dim cmd As New Odbc.OdbcCommand
    4. Dim reader As Odbc.OdbcDataReader
    6. con.ConnectionString = "Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Uid=root;Database=messenger;"
    7. cmd.Connection = con
    8. cmd.CommandText = "SELECT * FROM nachrichten WHERE empfaengerid = '" & intUserid & "'"
    9. Try
    10. con.Open()
    11. reader = cmd.ExecuteReader
    13. reader.Read()
    15. If reader("neue_nachricht") = "1" Then
    16. MessageBox.Show("neue nachricht")
    17. Else
    18. MessageBox.Show("keine neue nachricht")
    19. End If
    21. reader.Close()
    22. con.Close()
    24. Catch ex As Exception
    25. MessageBox.Show(ex.Message)
    26. End Try
    28. End Sub

    VB.NET-Quellcode

    1. Dim mes As Boolean = false
    3. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    4. [...]
    5. Else
    6. If mes = false Then
    7. MessageBox.Show("keine neue nachricht")
    8. mes = true
    9. End If
    10. End If


    Also einmal wirds angezeigt(mes = false) und dann nicht mehr (mes = true)

Facebook
Telefonspende