Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
Garthb
Newbie
Newbie

Anmeldedatum: 03.10.2010
Beiträge: 1
Connection Probleme
Verfasst am: 03.10.2010, 13:51
Hallo.

Ich versuche mit Hilfe meiner Form Anwendung spalten aus einer Datenbank zu lesen und in Labels zu Übergeben. Das ganze mache ich mit:

Code:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newsbutton.Click


        options.Visible = False
        webframe.Visible = False
        newspanel.Visible = True


        Dim con As New MySqlConnection("user id=launcher;password=[wurde Entfernt];host=212.227.139.23;database=acp;port=3306")
        Dim CMD As New MySqlCommand
        Dim reader
        Dim news As New List(Of String)


        Try
            con.Open()
            CMD.CommandText = "SELECT `By` FROM `motd` ORDER BY `ID` DESC LIMIT 0, 5"
            reader = CMD.ExecuteReader
            news.Clear()
            Do While reader.Read

                news.Add(reader("By").ToString)

                nh1.Text = news.Item(0)
                nh2.Text = news.Item(1)
                nh3.Text = news.Item(2)
                nh4.Text = news.Item(3)
                nh5.Text = news.Item(4)

            Loop

            reader.Close()
            con.Close()



            con.Open()
            CMD.CommandText = "SELECT `Message` FROM `motd` ORDER BY `ID` DESC LIMIT 0, 5"
            reader = CMD.ExecuteReader
            news.Clear()

            Do While reader.Read

                news.Add(reader("Message").ToString)

                nc1.Text = news.Item(0)
                nc2.Text = news.Item(1)
                nc3.Text = news.Item(2)
                nc4.Text = news.Item(3)
                nc5.Text = news.Item(4)

            Loop

            reader.Close()
            con.Close()




        Catch ex As Exception

            con.Close()
            MsgBox(ex.Message)

        End Try


    End Sub


Leider bekomme ich dann den Fehler:
Zitat:
Connection must be Valid and open


Würde mich Freuen wenn jemand eine Ahnung hat wo der Fehler liegen könnte. Ich finde ihn nicht und danke ich überlese was.
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: connection must, open, valid, loop

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Drag and Drop & Dateinamen auslesen 736 24.11.2008, 13:39
Keine neuen Beiträge Open and Save Standart + Save und open frage 1160 03.05.2007, 18:56
Keine neuen Beiträge IP Stealer example 4 RuaP and vb-x.org 1176 30.04.2007, 17:20
Keine neuen Beiträge bestimmten text and bestimmte zeile! 562 04.04.2007, 12:38
Keine neuen Beiträge Flip screen and shake 861 23.05.2008, 19:37
 



[ Time: 0.1281s ][ Queries: 80 (0.0498s) ][ GZIP on - Debug on ]