Discussion :

[Invité]

Bonjour,
Dans un de mes programme, je souhaite utiliser un système de licence.
Je les génère avec PHP et l'utilisateur les entres dans le programme.
Seulement, le problème est là, je ne sais ni connecter mon programme à ma base MySql, ni le faire vérifier si le code est valide !
En fait, si je sais le faire mais en PHP :

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
18
<?php
mysql_connect("sql.free.fr", "security.mondo", "xxxxxx");
mysql_select_db("security_mondo");
 
if(isset($_POST['c']))
{
$c=$_POST['c'];
$x = mysql_query('select code from code where code="'.$c.'"');
if(mysql_num_rows($x)>0)
{
echo "Le code est bon !!!";
}
else
{
echo "Le code n'est pas bon !!!";
}
}
?>

Je vous serez super reconnaissant si quelqu’un pouvait m'aider à mètre en place ce code mais cette fois si pour VB.NET

[tomlev]

http://dotnet.developpez.com/articles/ado1/vbnet/

Pour MySQL, il faut adapter un peu... installe le connecteur MySQL, et dans le code, remplace SqlConnection, SqlCommand, et SqlDataReader par MySqlConnection, MySqlCommand et MySqlDataReader

Il y a plein d'exemples sur le forum

[Invité]

J'avais déjà jeté un coup d'oeil sur ce tuto
Mais il ne parle pas des connexions avec les bases MySql distant :

Code :

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

Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" & "Initial Catalog=Northwind"

Merci quand même
D'autre solution ?

[tomlev]

Bah si c'est juste la chaine de connexion qui te pose problème, regarde ici :
http://www.connectionstrings.com/mysql

[Invité]

Cela fait maintenant 1heure et demi que j'essaye de comprendre comment ça marche ...
J'ai essayé ceci :

Imports :

Code :

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

Imports System.Data.SqlClient

Code :

Code :

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

1
2
3
4
Dim Connection As SqlConnection = New SqlConnection("Server=sql.free.fr;Database=security_mondo;Uid=security.mondo;Pwd=xxxxxxxx;")
                Connection.Open()
 
                Connection.Close()

Mais bon, je ne comprend rien, faut dire que ce n'est pas aussi simple que le PHP, et puis je trouve que ce tuto est d'un niveau trop élevé pour moi.

[tomlev]

Bah si tu lis pas les réponses qu'on te donne, ça va pas aider... SqlConnection, c'est pour SQL Server. Pour MySQL, tu dois utiliser le connecteur que je t'ai indiqué plus haut, et la classe MySqlConnection (idem pour SqlCommand, SqlDataReader, etc). A part ça c'est quasiment identique, quel que soit le type de BDD utilisé

[tomlev]

Ah, au fait, te fatigue pas : les serveurs MySQL de Free ne sont pas accessibles par internet, seulement à partir des pages perso (en PHP par exemple)

[Invité]

Oki, donc je vais m'y prendre avec le Serveur Sql privé de mon pote
J'ai passé toute la matinée à chercher à propos du fameux :
Unable to connect to any of the specified MySql hosts. (que j'avais avec la base MySql de free)
Et apparemment, il apparait quand la base MySql auquel on veut se connecter refuse les connexions à partir d'un autre serveur que le sien
Ca sur-confirme ce que tu as dit

Voici une petit code qui je crois me permettrait de vérifier la présence de la licence dans la base MySql (Et oui, je l'ai fait tout seul ) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Function Verification_de_la_licence(ByVal licence As String)
        Dim Connexion As MySqlConnection = New MySqlConnection("Data Source=MONSERVEUR;Database=MABASEDEDONNE;User ID=MONLOGIN;Password=MONPASSE")
        Connexion.Open()
        Dim command As MySqlCommand = New MySqlCommand("SELECT code FROM code WHERE code=" + licence, Connexion)
        Dim reader = command.ExecuteReader()
        If reader.HasRows Then
            Return True
        Else
            Return False
        End If
        Connexion.close()
    End Function

Pouvez-vous me confirmer que ce code est opérationnel ?
Et qu'il retourne true quand le code est bon et false quand il est mauvais ?

Connaissez-vous des services qui propose des Base MySql (connectable à distance) gratuite ?

Merci à toi tomlev pour t'es remarque, c'est vrai que je dois faire preuve de plus d'attention

[matll]

Code long si tu n'as pas d'autre traitement à faire.

Code :

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

1
2
3
4
5
If reader.HasRows Then
    Return True
Else
    Return False
End If

Autant faire un :

Code :

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

Return reader.HasRows

@+
Mat

[Invité]

Merci beaucoup

Donc mon code se transforme en ceci :

Code :

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

1
2
3
4
5
6
7
8
    Private Function Verification_de_la_licence(ByVal licence As String)
        Dim Connexion As MySqlConnection = New MySqlConnection("Data Source=MONSERVEUR;Database=MABASEDEDONNE;User ID=MONLOGIN;Password=MONPASSE")
        Connexion.Open()
        Dim command As MySqlCommand = New MySqlCommand("SELECT code FROM code WHERE code=" + licence, Connexion)
        Dim reader = command.ExecuteReader()
        Connexion.Close()
        Return reader.HasRows
    End Function

C'est quand même plus joli !!!

Three littles questions :

1 - Connaissez-vous des services qui propose des Base MySql (connectable à distance) gratuite ?
2 - Pouvez-vous me confirmer que ce code est opérationnel ?
3 - Et qu'il retourne true quand le code est bon et false quand il est mauvais ?
Merci pour vos futures réponses !

[tomlev]

1 - Connaissez-vous des services qui propose des Base MySql (connectable à distance) gratuite ?

Non, je suis même pas sûr que ça existe...

2 - Pouvez-vous me confirmer que ce code est opérationnel ?

Bah tu l'as pas testé ?
A priori je dirais que non : il faut inclure des guillemets simples autour des chaines de caractères en SQL, comme ça :

Code SQL :

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

SELECT code FROM code WHERE code='le code de la licence'

Or ton code génère cette requête :

Code SQL :

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

SELECT code FROM code WHERE code=le code de la licence

Donc erreur de syntaxe...

De toutes façons, évite de générer des requêtes par concaténation, tu t'exposes à toutes sortes de problèmes (format des nombres, des dates, risques d'injection SQL...). Utilise plutôt des requêtes paramétrées :

Code :

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

1
2
3
4
5
6
Dim command As MySqlCommand = New MySqlCommand("SELECT code FROM code WHERE code= @licence", Connexion)
Dim param = command.CreateParameter()
param.ParameterName = "licence"
param.DbType = DbType.String
param.Value = licence
command.Parameters.Add(licence)

D'autre part, j'ai une autre amélioration à te suggérer... Les objets MySqlConnection, MySqlCommand et MySqlDataReader implémentent l'interface IDisposable, donc pour être sûr de bien les libérer même en cas d'erreur, il vaut mieux les utiliser avec l'instruction Using :

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 Function Verification_de_la_licence(ByVal licence As String)
        Using Connexion As MySqlConnection = New MySqlConnection("Data Source=MONSERVEUR;Database=MABASEDEDONNE;User ID=MONLOGIN;Password=MONPASSE")
            Connexion.Open()
            Using command As MySqlCommand = New MySqlCommand("SELECT code FROM code WHERE code=@licence", Connexion)
                Dim param = command.CreateParameter()
                param.ParameterName = "licence"
                param.DbType = DbType.String
                param.Value = licence
                command.Parameters.Add(licence)
                Using reader = command.ExecuteReader()
                    Return reader.HasRows
                End Using
            End Using
        End Using
    End Function

3 - Et qu'il retourne true quand le code est bon et false quand il est mauvais ?

A priori oui, avec la correction indiquée plus haut

[Invité]

Merci infiniment, super explications !!!
C'est pas souvent que je le dit, mais pour une fois j'ai tous compris !
Merci à tous pour le temps passé sur cette discussion !!!
Au revoir tout le monde et BONNE VACANCE !!!