Public Function DataContact() As DataSet Dim Cnx As OleDbConnection = Nothing Dim AdapTContact As OleDb.OleDbDataAdapter Dim DtSet As New DataSet() Dim Sql As String 'Parametrage de la chaine de connection Cnx = EtablirConnection() 'definition de la requete Sql = "select * from CONTACTS;" 'definition du DataAdapter AdapTContact = New OleDbDataAdapter(Sql, Cnx) ' remplissage du dataset AdapTContact.Fill(DtSet, "CONTACTS") Return DtSet 'Fermeture de la connection Cnx.Close() End Function
Dim Matable As DataTable Matable = DataContact.Tables("CONTACTS") DGVcontact.DataSource = Matable
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question