Bonjour,
Aujourd'hui je vais vous montrer comment utiliser mysql en VB.NET.
Let's GO ! :shock:
Menu:
1) Connexion
2) Affichage des donnees dans une listview
3) Ajout d'une ligne
4) Suppression d'une ligne
5) Edition d'une ligne
Avant tout telechargez ceci: http://www.mysql.com/downloads/connector/net/
et ajouter le a votre projet: Reference -> Ajouter et selectionnez le dll mysql.data.dll se trouvant dans programmes files/mysql.
1) Connexion
Ajoutez cet imports:
Cliquez pour révéler
Cliquez pour masquer
Imports Mysql.Data.Mysqlclient
Maintenant ajoutez cet variable:
Cliquez pour révéler
Cliquez pour masquer
Public Class Sconnection as new mysqlconnection
Et ecrivez ceci dans form load:
Cliquez pour révéler
Cliquez pour masquer
If sconnection.state = sconnection.closed then
Sconnection.connexionstring = "SERVER = localhost; USERID = root; PASSWORD =; DATABASE =;
Sconnection.open"
End if
Load.people()
A vous de remplir les trou au dessus:
PASSWORD = votremotdepasse; ...
Connection terminé :P
2) Affichage des donnees dans une listview
Ajoutez une listview que vous nommerez "lvpeople" et trois boutons.
Mettez votre lisview en mode detail: view = details
Ajoutez les colones correspondant a votre database et une qui s'appellera "id".
Et ajoutez ceci a votre fom1, on va creer la fonction loadpeople qui va nous permettre d'ajouter des donnees a notre listiew:
Cliquez pour révéler
Cliquez pour masquer
Public Sub LoadPeople()
Dim sqlQuery as string = "SELECT * FROM tbl_people"
Dim sqlAdapter as new mysqldataadapter
Dim sqlCommand as nes mysqlcommand
Dim table as new datatable
Dim i as integer
With sqlCommand
.commandtext = sqlquery
.connection = sconnection
End with
Whith sqladapter
.selectcommand = sqlcommand
.Fill(TABLE)
End with
Lvpeople.items.clear()
For i = 0 to table.row.count - 1
With lvPeople
.items.add(table.rows(i)("id"))
End with
With .items(.items.count - 1).subitems
.add(table.rows(i)("colone database"))
.add(table.rows(i)("colone database")) 'remplacez colone database par vos collones localhost et rajoutez en si il faut
End with
End sub
3) Ajouter un ligne
Nous allons maintenant ajouter une ligne et ecrire dans les colonnes :p
Je vous avez demandé d'ajouter 3 boutons, prenez l'un des trois vous aller modifier son texte par "Ajouter ligne" ;)
Vous allez y mettre le code suivant:
Cliquez pour révéler
Cliquez pour masquer
Et vous allez creer une nouvelle form qui portera le nom "frmadd". (on se demande bien pourquoi...)
Ajoutez y plusieurs textbox, le nombre correspondant a celui de vos colonnes et un bouton.
Ajoutez cet imports sur le nouvelle form:
Cliquez pour révéler
Cliquez pour masquer
Imports mysql.data.mysqlconnection
Cette variable:
Cliquez pour révéler
Cliquez pour masquer
Public class as new mysqlconnection
Et ajoutez ce code au bouton:
Cliquez pour révéler
Cliquez pour masquer
If sconnection.state = sconnection.closed then
Sconnection.connexionstring = "SERVER = localhost; USERID = root; PASSWORD =; DATABASE =;
Sconnection.open"
End if
Dim sqlquery as string = "INSERT INTO tbl_people (colone1, colone2, colone3) VALUES ('" & textbox1.text & _ "', '" & textbox2.text & "','" & textbox3.text & "')" 'Remplacez colone1,2,3 ... Par vos colones localhost et textbox1,2,3 ... Par vos textbox de votre form frmadd
Dim sqlcommand as new mysqlcommand
With sqlcommand
.commandtext = sqlquery
.connection = sconnection
.executenonquery()
End with
MsgBox("Ajout réussi !")
Dispose()
Close()
Form1.loadpeople()
Je vous continu le tuto dans la journée