1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| Imports MySql.Data.MySqlClient
Public Class Form1
'****************déclaration des variables**************
'la chaine de connection
Dim Bdd As New MySql.Data.MySqlClient.MySqlConnection
'la requete sql
Dim ReqSql As String
'le dataset qui contient les données lu
Dim MonDataSet As New DataSet
'l'adapter par qui On va effectuer les commandes
Dim MonAdapter As MySqlDataAdapter
'la table sur laquelle On est
Dim latablealire As String
Private Sub bt_connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_connect.Click
latablealire = T_Table.Text
Try
'on ferme d'abord au cas ou elle serait rester ouverte
Bdd.Close()
'Je Me connect à la base de donnée
Bdd.ConnectionString = "Database=" & T_Bdd.Text & ";Data Source=" & T_serveur.Text & ";User Id=" & T_user.Text & ";Password=" & T_pass.Text
'et j'ouvre ma connection
Bdd.Open()
'je defini ma requete
ReqSql = "SELECT * FROM " & latablealire & ";"
'Mon adapter recupere les données de ma requete
MonAdapter = New MySqlDataAdapter(ReqSql, Bdd)
'que j'insere dans mon dataset
MonAdapter.Fill(MonDataSet, latablealire)
'Fermeture de la connection
Bdd.Close()
'affichage des données dans le datagrid
Dim Matable As DataTable
Matable = MonDataSet.Tables(latablealire)
DataGridView1.DataSource = Matable
'affichage de l'erreur si la connexion ne s'est pas effectuée
Catch MySqlException As Exception
MessageBox.Show("Erreur SQL:" + MySqlException.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class |
Partager