Bonjour,
Pour mon second tutoriel je vais vous apprendre à utiliser mysql et faire un système de licence.
Tout d'abord il vous faut :
mysql.data.dll (je vous laisse chercher sur internet)
Une base de donnée. (bon allez je vous la donne débrouiller vous pour la mettre sur votre base de donné. ce n'est qu'un patch sql) : http://www.multiupload.com/SQK3D3U36K
Commençons =D.
Dans un 1er temps créer une base de donnée Key ensuite ajouter la table que je vous est donner.
Ensuite il faut faire une fenêtre avec :
1 = Textbox
1 = Bouton
ajouter ceci en haut :
Imports MySql.Data.MySqlClient
et en dessous de
public class form1 ajouter ceci :
Dim conn As New MySqlConnection
Double clique sur le fenêtre
vous aurez ceci :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Ajouter ceci comme ceci :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Connect("localhost", "root", "votremotdepassedemysql", "key") 'On change si besoin
End Sub
Ensuite ajouté ceci en dessous du End Sub
Private Function Connect(ByVal server As String, ByRef user As String, ByRef password As String, ByRef database As String)
'On se connecte avec les information donner
conn.ConnectionString = "server=" + server + ";" _
& "user id=" + user + ";" _
& "password=" + password + ";" _
& "database=" + database + ";"
Try
'Si il y a aucune erreur on ouvre la connexion
conn.Open()
Return True
Catch ex As MySqlException
'Si il y a une erreur on affiche le message suivant
Return MsgBox("Aucune Connexion au Mysql")
End Try
End Function
Ensuite double cliquer sur votre bouton et vous aurez ceci :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
End Sub
Ajouter ceci et modifier si besoin.
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As MySqlDataReader
Dim SQL As String
Dim key As String = TextBox1.Text.Replace("'", "\'")
Dim sqlquery = "SELECT * FROM key WHERE key = '" + key + "'"
SQL = "SELECT * FROM `key` WHERE `key` = '" + key + "' and `ban` = 0"
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
Try
myData = myCommand.ExecuteReader()
myData.Read()
If myData.HasRows = 0 Then 'Si le mot de passe ou l'email ne correspond pas a se qu'il y a dans la BDD alors on affiche
MsgBox("Il se peut que votre comptes soit invalide")
myData.Close()
Else 'Si le mot de passe et l'email correspond a un compte alors on affiche
MsgBox("Bienvenue " + key)
myData.Close()
Me.Visible = False
InAppWindows.Show()
End If
Catch ex As MySqlException
MsgBox(ex.Message)
End Try
Modifier bien tout si besoin.
Ce système va lire sur une base de donnée une licence et si dans la table ban = 1 ou autre nombre supérieur à 0 alors la licence et bannis.
Ce tutoriel doit rester sur cadernis et non sur d'autre forum.