If count error

Version imprimable

If count error

Bonjour,
Je rencontre un problème dans mon programme.
Dans mon formulaire de connexion qui est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Imports System.Data.Sql
Imports System.Data.SqlClient
 
Public Class Form1
    Dim Conn As SqlConnection
    Dim Cmd As SqlCommand
    Dim Rd As SqlDataReader
    Dim Query As String
    Private Sub ButtonMembres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMembres.Click
        Conn = New SqlConnection("Server=127.0.0.1;Database=PS_DATABASE;User Id=/;Password=/")
        Try
            If TextPSN.Text = "" Then
                MessageBox.Show("Le champ PSN ne doit pas être vide.")
            End If
            If TextMDP.Text = "" Then
                MessageBox.Show("Le champ Mot de passe ne doit pas être vide.")
            End If
            Conn.Open()
            Query = "Select * from PS_Database.dbo.Login where PSN = '" & TextPSN.Text & "' and Motdepasse = '" & TextMDP.Text & "'"
            Cmd = New SqlCommand(Query, Conn)
            Rd = Cmd.ExecuteReader
 
            MessageBox.Show("Connexion Réusite!")
            Conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
 
        Finally
            Conn.Dispose()
        End Try
    End Sub
End Class

Quand je clic sur le bouton donc, qu'il y est rien dans la text box ou des valeurs, connexion réussite :o me^me si je met un des valeur non présentes dans ma base de données.
J'aimerais faire une fonction un peu comme en php :
if count $errors = 0 alors on passe a l'étape suivante, l'idée serait que si c'est vide hop sa donne +1 erreur donc pas de connexion.
Et surtout corriger le problèmes des valeurs >.<
Merci

15/08/2015, 17h30
GuruuMeditation

A première vue, deux choses. Quand tu testes si TextPSN.Text (par exemple) est vide, faut un "return" avant le endif, sinon il va passer dans le code et se connecter.

C'est normal que tu arrives à "connection réussie" car la requête SQL est valide. C'est juste qu'elle ne devrait rien retourner si tu mets des valeurs qui n'existent pas.

Bonsoir,
Oui j'ai trouvé, j'ai rajouté cela a la fin de

Code:

Rd = Cmd.ExecuteReader

Code:

1
2
3
4
5
If Rd.Read Then
Message comme quoi c'est bon
Else 
Erreur
Endif

Et j'ai joué comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Conn.Open()
        Query = "Select Joueur from abrassive_p8z9.GDC where Joueur='" & TextPSN.Text & "'"
        Cmd = New MySqlCommand(Query, Conn)
        Rd = Cmd.ExecuteReader
        If Rd.Read Then
            Erreur.Text = "" & TextPSN.Text & " déjà activé"
            Succes.Text = ""
        Else
            Conn.Close()
            Conn.Open()
            Query = "INSERT INTO abrassive_p8z9.GDC (Joueur) values ('" & TextPSN.Text & "')"
            Cmd = New MySqlCommand(Query, Conn)
            Rd = Cmd.ExecuteReader
            If Rd.Read Then
                Erreur.Text = "Erreur lors de l'ajout de " & TextPSN.Text & ""
                Succes.Text = ""
            Else
                Succes.Text = "" & TextPSN.Text & " ajouté"
                Erreur.Text = ""
            End If
        End If
        Conn.Close()

EDIT, en essayant de me connecter à une BDD MySQL AUTRE que en local cela ne veut pas..

Citation:

Unable to connect to any specified MySQL host.

Ayant les informations bonnes..
J'ai essayé Livehost/Olympe/Hostinger nada
Merci

17/08/2015, 19h19
GuruuMeditation

Tu arrives à te connecter à cette autre autrement? (Un outil de gestion db ou autre). Pour voir si c'est un problème de connection entre ton PC et la DB ou autre chose
18/09/2015, 22h11
ideox

La connexion avec certains hébergeurs GRATUIT ne pouvait se faire.. Mais avec un payant tout marche :)