Discussion :

[Security_VB]

Bonjour,
Je viens de creer une database sur hostinger et une table ( login ) pour mon programme.
le probleme c est que j ai mis se code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim connexionsql As New MySqlConnection("serveur=mysql.hostinger.fr; Userid=XXXXXXXXXXx; password=XXXXXXXXX; database=XXXXXXXX;")
        Dim command As New MySqlCommand
        Dim reader As MySqlDataReader
        connexionsql.Open()
        command.Connection = connexionsql
        command.CommandText = "SELECT Username, Password FROM Login WHERE Username'" & TextBox1.Text & "' and Password'" & TextBox2.Text & "'"
        reader = command.ExecuteReader
        If reader.HasRows Then
            Form2.Show()
            Form3.Show()
        Else
            MsgBox("Le nom d'utilisateur ou le mot de passe n est pas correct.")
        End If

et quand je lance le programme apres avoir clique sur le bouton1
Il me dis Keyword Not Supported
voila un screen tu probleme http://prntscr.com/6hwmsl

[jopopmk]

Salut,

tu arrives à te connecter avec ce code sur ta DB locale ?
Ton erreur laisse penser que ta connection string n'est pas correcte.
(d'ailleurs quand on regarde ici elle n'a pas tout à fait la même forme)

[Security_VB]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles OrainsButton1.Click
        Dim connexionsql As New MySqlConnection("Server=mysql.hostinger.fr;Database=XXXXXXX;Uid=XXXXXXXX;Pwd=XXXXXXX;")
        Dim command As New MySqlCommand
        Dim reader As MySqlDataReader
        connexionsql.Open()
        command.Connection = connexionsql
        command.CommandText = "SELECT Username, Password FROM Login WHERE Username'" & TextBox1.Text & "' and Password'" & TextBox2.Text & "'"
        reader = command.ExecuteReader
        If reader.HasRows Then
            Form2.Show()
            Form3.Show()
        Else
            MsgBox("Le nom d'utilisateur ou le mot de passe n est pas correct.")
        End If
    End Sub

On y ai presque je crois
J ai plus keyword not supported
J ai cela http://prntscr.com/6hwz0o
unable to connect to any of the specified MySql hosts

[François M.]

Bonjour

Je ne sais pas ce que c'est que hostinger mais tu es sur que tu peux sortir avec une connexion à une base depuis ton réseau ?

[Security_VB]

Oui je peux

[jopopmk]

Hostinger est un hébergeur qui propose des services gratuits.
Et il est tout à fait possible qu'il bloque les requêtes qui proviennent pas de leur(s) IP(s).

Si tu te connectes en ligne de commande avec "mysql -h ..." t'arrives à taper ta DB ?

[Security_VB]

Je n arrive pas a me connecter depuis mysql workbrench il me dis hote introuvable :/
pourtant quand j ai cree la db
il y avait :
base de donné mysql : uXXXXXXXX_XX
utilisateur mysql : uxxXXXXXX_XXX
hote Mysql ; mysql.hostinger.fr

[Security_VB]

Sinon je vais changer d hebergeur je verrais bien si sa fonctionne

[jopopmk]

Il arrive que certains hébergeurs (et encore plus souvent dans les offres gratuites) bloque les requêtes SQL ne provenant pas de chez eux.
Si tu as déjà tes crédentials pour le FTP essaie de pusher un fichier ASP.NET qui affiche le résultat d'une requête simple (genre "SELECT USER();").

Question : Hostinger fait de l'hébergement .NET gratuit maintenant ?

[Security_VB]

A j ai trouve hostinger bloque les connexions exterieur a la database Donc c est payant

[Security_VB]

C est bon j ai regle le probleme µ
il y a une autre erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Private Sub OrainsButton1_Click(sender As Object, e As EventArgs) Handles OrainsButton1.Click
        Dim connexionsql As New MySqlConnection("Server=XXXXXXX;User=XXXX;Password=XXXXXX;database=XXXXX")
        Dim command As New MySqlCommand
        Dim reader As MySqlDataReader
        connexionsql.Open()
        command.Connection = connexionsql
        command.CommandText = "SELECT Username, Password FROM Login WHERE Username'" & OrainsTextBox1.Text & "' and Password'" & OrainsTextBox2.Text & "'"
        reader = command.ExecuteReader 
        If reader.HasRows Then
            Form2.Show()
            Form3.Show()
        Else
            MsgBox("Le nom d'utilisateur ou le mot de passe n est pas correct.")
            connexionsql.Close()
        End If
    End Sub

http://prntscr.com/6hyo2m screen