Utiliser datagrid avec une requete en vb.net
Fermé
fersonly
Messages postés
1
Date d'inscription
lundi 1 décembre 2014
Statut
Membre
Dernière intervention
1 décembre 2014
-
1 déc. 2014 à 15:00
Kalissi - 5 déc. 2014 à 17:25
Kalissi - 5 déc. 2014 à 17:25
besoin d'aide sur l'utilisation d'un datagrid en vb.net je veux que le datagrid affiche les infos d'un seul etudiant plûtot que toute la table. l'utilisateur va entrer le matricule dans un textbox et et en fonction du matricule entrer, le datagrid ira chercher les info rechercher.
voici la requete :
SELECT mut_serv_cod , mut_dat , mut_fonct FROM MUTATION where matricule='" & textbox1.text & " '. je ne sais pa comment lier cette requette au datagrird. merci d'avance
voici la requete :
SELECT mut_serv_cod , mut_dat , mut_fonct FROM MUTATION where matricule='" & textbox1.text & " '. je ne sais pa comment lier cette requette au datagrird. merci d'avance
A voir également:
- Utiliser datagrid avec une requete en vb.net
- Utiliser chromecast - Guide
- Utiliser iphone comme webcam - Guide
- Comment utiliser l'ia - Accueil - Guide Intelligence artificielle
- Utiliser une tablette comme ecran pc - Guide
- Comment utiliser utorrent - Télécharger - Téléchargement & Transfert
1 réponse
Bonjour,
du genre :
K
du genre :
Public Property Connexion As OleDb.OleDbConnection
Get
Dim oldCon As OleDb.OleDbConnection = Me.zConnexion
If (oldCon Is Nothing) Then
Me.zConnexion = New OleDb.OleDbConnection
End If
Return Me.zConnexion
End Get
Set(value As OleDb.OleDbConnection)
Me.zConnexion = value
End Set
End Property
Public Function ExecuterLecture() As Datatable
Dim MonAdapteur As OleDbDataAdapter = Nothing
Dim MonDataTable As DataTable = Nothing
Dim MonDataSet As New DataSet()
Try
Dim reqSQL As String = "Select ..."
MonAdapteur = New OleDb.OleDbDataAdapter(reqSQL, Connexion)
MonAdapteur.Fill(MonDataSet, "MaTable")
MonDataTable = MonDataSet.Tables("MaTable")
Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
Connexion.Close()
End Try
Return MonDataTable
End Function
Private Sub AfficheDonnees(ByVal pMaTable As DataTable)
MonDGV..DataSource = pMatable
End Sub
K