'Ligne de code généré automatiquement : Me.Soins_effecTableAdapter.Fill(Me.Gestion_clientèle.Soins_effec) 'Ligne de code modifiée pour appliquer le filtre créer Me.Soins_effecTableAdapter.FillBy(Me.Gestion_clientèle.Soins_effec, Tri_Nom_Client, Tri_Prenom_client) 'FillBy étant la procédure que j'ai créer
Dim Vue As New DataView(dsBL.Tables("DREF")) DataGridView.DataSource = Vue
' Taille de police Dim Fo As New System.Drawing.Font("Arial", 10) DataGridView.Font = Fo ' Fixer la largeur de colonne DataGridView.Columns(0).Width = 100 ' En-tête de colonne (titre) DataGridView.Columns(0).HeaderText = "Dossier"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question' Variables Public strSql As String ' Requête SQL Public strConn As String ' Paramètres de la connexion à SQL Public conn As SqlConnection Public CmdS As SqlCommand Public da As SqlDataAdapter Public dsBL As New DataSet() ' Dataset des bulletins de livraison ' String de connexion à SQL strConn = "Initial Catalog=Nom_de_la_base;Data Source=Nom_du_serveur;User ID=SQLuser;Password=;" ' Requête SQL strSql = "SELECT ... FROM ... WHERE ..." ' Connexion à la base, sélection des données conn = New SqlConnection(strConn) conn.Open() CmdS = New SqlCommand(strSql) da = New SqlDataAdapter(CmdS) CmdS.Connection() = conn ' Vidage du DataSet (si besoin) dsBL.Clear() ' Remplissage du DataSet da.Fill(dsBL, "Nom_de_la_table_de_la_clause_FROM") ' Fermeture de la connexion (si besoin) conn.Close()