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
|
Private Sub dgvCave_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvCave.CellContentClick
Dim SSQL As String
SSQL = "SELECT Id_cave, C_Pays, C_Region, C_Nom, C_Appelation, C_Classification, C_Couleur, " & _
"C_Annee, C_Conditionnement, C_Bouteille, C_Source, " & _
"C_DateAchat, C_Valeur " & _
"FROM Vins ORDER BY C_Pays "
TableVins(SSQL, "cave.mdb", "Vins")
dgvCave.DataSource = TableVins_DataSet.Tables("Vins")
TableVins_DataAdapter.Fill(TableVins_DataSet)
End Sub
Public Sub TableVins(ByVal sSQL As String, ByVal sNomBase As String, ByVal sNomTable As String)
''Ouverture base
'Initialisation de la chaîne de paramètres pour la connexion
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & Application.StartupPath & "\" & sNomBase & ";"
''Connection base
TableVins_Connection = New OleDbConnection
'Donner à la propriété ConnectionString les paramètres de connexion
TableVins_Connection.ConnectionString = sConnect
''Ouvrir la connection
TableVins_Connection.Open()
''Instancier un objet commande
TableVins_Command = New OleDbCommand(sSQL)
''Instancier un objet Adapter
TableVins_DataAdapter = New OleDbDataAdapter(TableVins_Command)
''init objet command
TableVins_Command.Connection = TableVins_Connection
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
TableVins_DataAdapter.Fill(TableVins_DataSet, CStr(sNomTable))
'Mettre dans un Objet DataTable une table du DataSet
TableVins_DataTable = TableVins_DataSet.Tables(CStr(sNomTable))
TableVins_Connection.Close()
''Premier enregistrement
iLigneTableVins = 0
End Sub |
Partager