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
| Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim connectstr As String = "Database=NOM_DE_TA_BD;DataSource=localhost;User id=LOGIN_DE_TA_BD; password=LE_PASSWORD_DE_TA_BD"
Dim custConn As New MySqlConnection(connectstr)
'Remplissage du DataGrid
Dim DS As DataSet = New DataSet
Dim mondA As MySqlDataAdapter
Dim Rs As String = "SELECT * FROM NOM_DE_LA_TABLE"
custConn.Open()
mondA = New MySqlDataAdapter(MaRequete, custConn1)
mondA.Fill(DS, "NOM_DE_LA_TABLE")
DataGridView1.DataSource = DS.Tables(0).DefaultView
custConn.Close()
Catch
MsgBox(Err.Description)
Finally
End Try
End Sub
End Class |