Problèmes code login vb.net

oxytomire - 9 mai 2013 à 12:59
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 9 mai 2013 à 20:04
Bonjour/Bonsoir

J'ai trouvé ce code sur internet:

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = "server=mysql5.000webhost.com; user id=user; password=test; database=database"
        Try
            conn.Open()

        Catch myerror As MySqlException
            MsgBox("Error 404")

        End Try

        Dim myAdapter As New MySqlDataAdapter

        Dim sqlquery "SELECT * FROM login WHERE username '" + txtuser.Text + "' AND password= '" + txtpass.Text + "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim MyData As MySqlDataReader
        MyData = myCommand.ExecuteReader
        If MyData.HasRows = 0 Then
            MsgBox("Invalid Login Info.")
        Else
            MsgBox("valid Login Info.")
            Form1.Show()
            Me.Hide()
        End If



Mais le soucis c'est que j'ai une erreur à cette ligne:

MyData = myCommand.ExecuteReader


l'erreur c'est: Connection must be valid and open

10 réponses

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
9 mai 2013 à 14:28
Bonjour,

As-tu espionné les valeurs de ta connexion en pas à pas, si non, je te conseil de le faire ?
As-tu eu un message 404 s'afficher ?

En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site
0
Bonjour,

Oui j'ai bien le message 404 qui s'affichent.

Si j'enlève Microsoft.VisualBasic, mon applications à pleins d'erreurs et comment activer Option Explicit et Option Strict.
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
9 mai 2013 à 14:49
Bonjour,

A la place d'avoir uniquement MsgBox"..")
Fais :
MessageBox.Show(myerror.ToString)
Cela indique que ta connexion a eu une erreur lors de son ouverture.

Tout est indiqué dans mon message pour Option Strict et Option Explicit.

Sinon, pour les erreurs dues à Microsoft.VisualBasic, voici un exemple de remplacement :
MsgBox -> MessageBox.Show

Sinon, postes tes lignes qui posent pb et on regarde ensemble.

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site
0
Bonjour,

Grâce à votre systèmes je voit toute les erreurs

Mais pour Option Strict et Option Explicit, je ne sais pas qu'elle onglet c'est propriétés du serveur.

Et pour les erreurs de Microsoft.VisualBasic, c'est fileopen
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
9 mai 2013 à 15:55
Bonjour,

Pour les accès aux fichiers, voir IO.File.ReadAllLines, ReadAllText, ..., WriteAllText, ..., Append*, ...

Sinon, utiliser les flux IO.StreamReader, StreamReader, FileStream, ...

http://msdn.microsoft.com/fr-fr/library/zcd4xwzs%28v=vs.80%29.aspx

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
9 mai 2013 à 15:56
Petit ajout :
0
Merci, mais ça ne change rien
j'ai toujours l'erreur à:

MyData = myCommand.ExecuteReader
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
9 mai 2013 à 16:51
Bonjour,

Oui, si ta connexion échoue, elle n'est pas ouverte.
Et comme tu n'as pas mis le message d'erreur, je ne peux rien dire de plus que :
http://www.connectionstrings.com/

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site
0
Voila l'erreur qu j'ai:
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
9 mai 2013 à 20:04
Bonjour,

Il te dit qu'il ne peut pas se connecter à ton serveur car l’hôte n'est pas autorisé, revérifie ta configuration (client et serveur)

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site
0
Rejoignez-nous