Affichage de données
Binou19
Messages postés
7
Date d'inscription
vendredi 26 juin 2009
Statut
Membre
Dernière intervention
12 octobre 2009
-
9 juil. 2009 à 04:56
gillestang Messages postés 58 Date d'inscription lundi 22 juin 2009 Statut Membre Dernière intervention 10 juin 2011 - 3 août 2009 à 16:01
gillestang Messages postés 58 Date d'inscription lundi 22 juin 2009 Statut Membre Dernière intervention 10 juin 2011 - 3 août 2009 à 16:01
A voir également:
- Affichage de données
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Base de données javascript - Conseils pratiques -Javascript
- Nomenclature base de données - Conseils pratiques -PHP
- Connexion base de données - Conseils pratiques -PHP
- Ebp impossible de se connecter à la base de données ✓ - Forum SQL
1 réponse
gillestang
Messages postés
58
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
10 juin 2011
3 août 2009 à 16:01
3 août 2009 à 16:01
Bjr
apres la connexion il faut créer une commande qui va extraire les données dans la table souhaite,
Dim Req as String
Req = "SELECT Table.* FROM Table"
Dim Cmd as Oledbcommand
cmd = new Oledbcommand(Req)
dim Adapter As oledbadapter
'on le met le resultat de la commande dans le dataadapter
Adapter = new oledb.OledbDataadapter(cmd)
cmd .Connection() = Connexion ('chaine de connexion ici )
cmd .CommandText = Req
'Charger le Dst sur le Adapter
Dim Dst as DataSet
Adapter.SelectCommand = Cmd
'en charger le dataset ici avec l'adapter
Adapter.Fill(DSt, "TableN1")
Dim TableName as DataTable
'on initialise le datatable avec les données setrouvant dans le dataset et la table "TableN1"
TableName = Dst.Tables("TableN1")
'On efface le contenu du champs textbox
TexteBox.Text = ""
Rownum = 0 'Positionné à l'enregistrement 1
TexteBox.Text = TableName .Rows(RowNum).Item("NOM1").ToString 'NOM1 est le nom de la varible dans la table
apres la connexion il faut créer une commande qui va extraire les données dans la table souhaite,
Dim Req as String
Req = "SELECT Table.* FROM Table"
Dim Cmd as Oledbcommand
cmd = new Oledbcommand(Req)
dim Adapter As oledbadapter
'on le met le resultat de la commande dans le dataadapter
Adapter = new oledb.OledbDataadapter(cmd)
cmd .Connection() = Connexion ('chaine de connexion ici )
cmd .CommandText = Req
'Charger le Dst sur le Adapter
Dim Dst as DataSet
Adapter.SelectCommand = Cmd
'en charger le dataset ici avec l'adapter
Adapter.Fill(DSt, "TableN1")
Dim TableName as DataTable
'on initialise le datatable avec les données setrouvant dans le dataset et la table "TableN1"
TableName = Dst.Tables("TableN1")
'On efface le contenu du champs textbox
TexteBox.Text = ""
Rownum = 0 'Positionné à l'enregistrement 1
TexteBox.Text = TableName .Rows(RowNum).Item("NOM1").ToString 'NOM1 est le nom de la varible dans la table