Connexion mysql sous visual basic - Cheat-gam3 : La référence française en matière de cheat !

Evaelis · 26/09/2011, 19h17

I - Introduction
II - Ressources
III - Code
IV - Bonus

Introduction
Dans ce tutoriel vous apprendrez à editer des tables comme sous navicat
Je ne dirrez pas "double cliquez sur le bouton" etc à vous de vous débrouiller
Sur ce les bases du tuto

Ressources
[Seul les membres enregistrés peuvent voir les liens Cliquez-ici pour vous inscrire]

Code
Tout d'abord vous devez inclure Mysql.data (4.0)
Pour ce allez dans votre projet => Projet => Ajouter une référence => Onglet NET => Mysql.Data *
Vous avez peut être deux Mysql.data prenez la 4.0 (Runtime = v4.0.xxxxx)
Puis dans votre code incluez le :

Code:

Imports MySql.Data.MySqlClient

Dans votre form mettez 5 textbox
Textbox1 : Ip du serveur
Textbox2 : Nom de votre database
Textbox3 : Nom de votre table
Textbox4 : Identifiant
Textbox5 : Mot de passe (Avec ou sans password mode)
Je suis perdu :
[Seul les membres enregistrés peuvent voir les liens Cliquez-ici pour vous inscrire]

Ensuite 1 bouton (Connexion) avec le code ci dessous :

Citation:

'On désactive les textbox et le bouton (Kikoo vous ne pouvez plus cliquer :D
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
Button1.Enabled = False
'Une fois désactiver
If Not conn Is Nothing Then conn.Close() 'En cas de problème : Si la connection est active on la ferme
'On prépare la connection
Dim connStr As String
connStr = String.Format("server=" & TextBox1.Text & ";user id=" & TextBox4.Text & "; password=" & TextBox5.Text & "; database=" & TextBox2.Text & "; pooling=false", TextBox1.Text, TextBox4.Text, TextBox5.Text) 'Voici les infos

Try 'En cas d'erreur on aura pas de problème on trouvera le message qui se trouve dans le catch
conn = New MySqlConnection(connStr)
conn.Open()
Showtable() 'Fonction que l'on créeras plus tard
Catch ex As MySqlException
'Connection Failed, redo.
MessageBox.Show("Erreur de connexion : " + ex.Message)
'On réactive les textboxs
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
Button1.Enabled = True
End Try

Nous avons presque finis !
Ajoutez un 2ème bouton (Sauvegarde) et un DataGridView
Créons la fonction (en tant que sub)

Code:

Public Sub Showtable()
  data = New DataTable
         da = New MySqlDataAdapter("SELECT * FROM " + TextBox3.Text, conn)
         cb = New MySqlCommandBuilder(da)
         da.Fill(data)
         DataGridView1.DataSource = data
         data.AcceptChanges() 
         TextBox6.Enabled = True
         Button2.Enabled = True
 End Sub

Ensuite il suffit de finir avec la sauvegarde dans le code du bouton 2 :

Code:

  Try
             Dim changes As DataTable = data.GetChanges()
             da.Update(changes)
             data.AcceptChanges()
         Catch ex As Exception
             MsgBox(ex.ToString)
         End Try

Votre programme est prêt , attention vous ne pouvez pas supprimer de ligne (Records) [Voir suite]

Bonus
Personnellement je l'utilise pour des vérifications de comptes (Bots etc)
Étant un tuto simple le bonus ne seras que sur la suppression de ligne :

Code:

da = New MySqlDataAdapter("DELETE * FROM " + TextBox3.Text +" WHERE id=1, conn) 'Vous pouvez changer la conditions (Pour les connaisseurs ce code n'est pas du vb mais du mysql )
         cb = New MySqlCommandBuilder(da)
         da.Fill(data)

Copyright Mathis - Devcenter - Copie Interdite sans citer les sources et l'auteur (Bande du *** c'est moi l'auteur é_é)
Attention Cryptez vos programmes !