1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=SDZ;User Id=sa;Password=herve;")
Dim ds As New DataSet
Try
Connexion.Open()
Catch ex As Exception
MsgBox(("Erreur lors de la connexion à la BDD... Vérifiez votre connexion ou contactez votre administrateur.."), MessageBoxButtons.OK)
Me.Close()
End Try
Dim Requete As String = "SELECT * from Musiques"
Dim Commande As New SqlCommand(Requete, Connexion)
Dim Adaptateur As New SqlDataAdapter(Commande)
Try
Adaptateur.Fill(ds, "SELECT * from Musiques")
'Liaison avec le DataGrid
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Me.DGV.DataSource = ds.Tables("SELECT * from Musiques").DefaultView
End Sub |
Partager