VB 2010: resultaat query naar variable

[wicked1980]

Dat een mens zo knettergek kan worden van een zo simpel stukje code...

Voor het creëren van een aanmeldscherm wil ik een test tegen de database uitvoeren.
Daarvoor schiet ik een SELECT FROM af op een MySQL DB, en het resultaat daarvan is het ID nummer van de gebruiker

code:

select gebruiker_id from gebruikers where wachtwoord=SHA1('testest')

(ja, gebruikers met hetzelfde wachtwoord is een probleem, zit nog in testfase, staan maar 2 unieke wachtwoorden in tabel )

Omdat ik continu foutmeldingen krijg over de connectie met de DB heb ik wat checks ingebouwd in de code om de status van de connectie te checken. De connectie lukt ook gewoon, zo draait op hetzelfde scherm een pulldown menu (combobox) waarvan de waarden uit de MySQL DB komen.

Onderstaand de code die ik nu gebruik:

code:

    Private Sub butlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butlogin.Click

        Dim conn As MySqlConnection = New MySqlConnection
        Dim cmd As MySqlCommand = New MySqlCommand("select max(gebruiker_id) from gebruikers where wachtwoord=SHA1('testest')")
        conn.ConnectionString = serverstring

        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()

                'Dim antwoord As Integer = cmd.ExecuteScalar
                MsgBox(cmd.ExecuteScalar)
                MsgBox("MySQLconnectie geslaagd:")
            Else
                conn.Close()
                MsgBox("MySQLconnectie is dicht")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

omdat ik op dit moment aan het testen ben met EXECUTESCALAR gebruik ik max(gebruiker_id) in het SQL statement om te zorgen dat ik maar 1 record terugkrijg.

Als ik regel 11 en 12 uitschakel, dan wordt de connectie netjes opgebouwd.
Zet ik ze aan dan krijg ik deze foutmelding:

System.InvalidOperationException: Connection must be valid and open

Google laat me helaas in de steek, en kom dus geen poot verder.
Zo moeilijk moet het toch niet zijn om je variable te laden met het result van je query

[wicked1980]

Inmiddels toch goed gekregen met behulp van een collega met betere Google skills dan ik

code:

        Dim conn As MySqlConnection = New MySqlConnection
        Dim cmd As MySqlCommand = New MySqlCommand("select max(gebruiker_id) from gebruikers where wachtwoord=SHA1('testest')")
        conn.ConnectionString = serverstring
        cmd.CommandType = CommandType.Text
        cmd.Connection = conn

        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()

                Dim myScalar As Object
                myScalar = cmd.ExecuteScalar()
                MsgBox(myScalar.ToString)
                MsgBox("MySQLconnectie geslaagd:")
            Else
                conn.Close()
                MsgBox("MySQLconnectie is dicht")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

[wicked1980]

@Mods, opgelost, mag slotje op wat mij betreft

[RobIII]

Een slotje is niet nodig op een topic als je je oplossing hebt. Zie daarvoor ook onze faq betreffende topiceinde.

Gebruik de edit knop ( ) als je iets toe te voegen hebt; je topic herhaaldelijk omhoogschoppen is niet nodig en die melding staat er niet voor niets:

wicked1980 schreef op donderdag 20 september 2012 @ 10:47:
(ja, gebruikers met hetzelfde wachtwoord is een probleem, zit nog in testfase, staan maar 2 unieke wachtwoorden in tabel )

Waarom test je dan niet gewoon met iets als where username = 'foo'? Je weet dat je je nu op een slippery slope naar een horror-uitkomst bevindt he?

[ Voor 25% gewijzigd door RobIII op 20-09-2012 11:07 ]

[whoami]

Waarom check je of die connectie open of gesloten is ?

Je creeërt een nieuwe connectie, dus die is altijd gesloten. En mocht die connectie dan toch al open zijn, dan voer je de query maar niet uit ?

En nadien ga je de connectie nooit sluiten ?

Rare logica ...

Ik zou het eerder zo doen (C# code dan):

code:

using( var conn = new MySqlConnection ("...") )
{
      var command = new MySqlCommand ("...")

      var result = command.ExecuteScalar();
}