comment afficher ce qu'on a dans un dataset avec un msgbox

**khayate** · 31/05/2007, 11h55

comment afficher avec un msgbox ce qu'on a recupere a partir d'un dataset.
j'ai besoin du code.

merci

**HULK** · 31/05/2007, 12h10

tu as quoi dans ton dataset ?

**khayate** · 31/05/2007, 13h06

j'ai une table ki vient d'une base de donnée oracle

**alaa_85** · 31/05/2007, 13h32

tu peut faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataSet.tables("Nom de la table").row("index de la ligne à afficher").item("NomdeColonne")

Bonne chance

**khayate** · 31/05/2007, 13h39

alors j'ai deux petits problemes dans mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataSet.Tables("EVENEMNT").row("index de la ligne à afficher").item("EVENT_CLIENT")

premierement comment on connait l'indexe d'une ligne
deusiement il m'affiche cette erreur en ce ki concerne DataSet.Tables:
une référence à un objet non partagé requiert une réference d'objet

merci de ton aide

**alaa_85** · 31/05/2007, 14h02

vous n'avez entrer le nom exacte de votre table,
et pour balayer tous les ligne qui existe dans votre dataset faut faire une boucle comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i as integer=0 to dataset.count-1
MsgBox(dataset.tables("Table").rows(i).item(0))
end for

le resultat de ce code c'est pour chaque ligne vous aller voir l'enregistrement du premiere champ c'est item(0) jusqu'à le fin de dataset .

**khayate** · 31/05/2007, 14h09

mais le code tu ma donnée au dessus je le mets ou dans mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
                     + "(ADDRESS=(PROTOCOL=TCP)(HOST= SM65CVDF)(PORT=1521)))" _
                     + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=OSMOSE)));" _
                     + "User Id=OSMOSE;Password=OSMOSE;"
 
 
 
        Dim sdaRequetes As New OracleDataAdapter
        Dim dsRequete As New DataSet
        'Dim laRequete As String
        Dim conn As New OracleConnection(oradb)
        conn.Open()
 
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandText = "select EVENT_CLIENT from EVENEMNT"
        cmd.CommandType = CommandType.Text
 
        sdaRequetes.SelectCommand = cmd
        sdaRequetes.Fill(dsRequete)
        DataSet.Tables("EVENEMNT").row("index de la ligne à afficher").item("EVENT_CLIENT")

**Astartee** · 31/05/2007, 14h12

deusiement il m'affiche cette erreur en ce ki concerne DataSet.Tables:
une référence à un objet non partagé requiert une réference d'objet

ah ben oui, forcément, il ne faut pas écrire directement "DataSet.Tables [...]", mais donner la référence du DataSet utilisé, càd le nom de la variable dans ton code !

EDIT : donc ici, visiblement, écrire "dsRequete.Tables [...]"
(et puis aussi, il faut en faire quelque chose de la valeur récupérée...)

**khayate** · 31/05/2007, 14h19

bain justement ce keje dois recuperer je veux le mettre dans une table ki est stockee dans ma base sql comment je peux faire ca???

**khayate** · 31/05/2007, 14h25

jai corrige le probleme du dataset mais maintenat kan je compile il me met
"'row' n'est pas un membre du System.Data.Datatable"

au niveau de cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 dsRequete.Tables("EVENEMNT").row("index de la ligne à afficher").item("EVENT_CLIENT")

**Astartee** · 31/05/2007, 14h37

On change de problème, là...

Le but c'est juste d'afficher le contenu d'un DataSet ou de faire un formulaire pour modifier carrément la base de données ?

Pour afficher les données d'un DataSet dans un MessageBox :
- récupérer les données du DataSet avec les méthodes qu'on déjà t'a indiquées
- les mettre sous la forme que tu veux
- appeler MessageBox.Show avec les paramètres que tu veux

Pour avoir un lien un peu plus direct avec la base, pour pouvoir modifier les données etc, utiliser aussi un DataAdapter et une DataGridView, tutoriaux sur cette page dans la partie ".NET et les bases de données"-"ADO.NET"

De toute manière, aller fouiller un peu dans les cours... L'accès aux données d'un DataSet, c'est relativement basique et expliqué à tout plein d'endroits...

**Astartee** · 31/05/2007, 14h38

jai corrige le probleme du dataset mais maintenat kan je compile il me met
"'row' n'est pas un membre du System.Data.Datatable"

C'est "Rows" avec un 's'.

Va voir dans les cours.

**khayate** · 31/05/2007, 14h50

"-les mettre sous la forme que tu veux
- appeler MessageBox.Show avec les paramètres que tu veux"

ca fait trois semaines ke je fais du vb.net, je sais ke ca doit etre facile mais jai un peu de mal.
eske tu peux me donner un exemple de code ou tu fais ca, ca veut la forme par exemple sql et un exemple de parametre.merci de ton aide

**Astartee** · 31/05/2007, 14h59

déjà pour le "MessageBox.Show", oublie, en fait je n'avais pas compris que "msgbox" désignait une fonction VB.NET (je fais du C#...)
D'après ce lien il suffirait de mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox(prompt)

où prompt est une chaîne de caractère qui contient la donnée que tu veux afficher.

=> pratique pour afficher UNE donnée uniquement.

Pour afficher toute la table, utilise un formulaire (System.Windows.Forms.Form) avec un DataGridView, lequel est lié à la DataTable par l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monDataGridViewAMoi.DataSource = dsRequete.Tables("EVENEMNT")

modulo les erreurs de syntaxe

Mais je persiste.
Va lire les cours.

**khayate** · 31/05/2007, 15h22

dsRequete.Tables("EVENEMNT").row("index de la ligne à afficher").item("EVENT_CLIENT"

a la place de index de la ligne à afficher je mets quoi??

**khayate** · 31/05/2007, 15h31

je sais ke c'est une kestion bete mais je ne suis kun debutant
merci de votre aide.

**alaa_85** · 31/05/2007, 16h33

à la place de l'index faut que tu faire un nombre entier :
soit la table suivant :
Personne(Nom,Prenom,Age) qui est rempli par les enregistrements suivantes :
('Nom01','pren01','age01')
('Nom02','pren02','age02')
('Nom03','pren03','age03')

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

si tu met comme ça Msgbox(DataSet.tables("Personne").rows(1).item(0))

Resultat va retourner le 2ieme ligne du premier champ c'est à dire:
Nom02
j'espére que tu as compris,
Bonne chance

**khayate** · 31/05/2007, 17h01

ca au moins je peux dire ke c'est une explication clair merci beaucoup.

**alaa_85** · 31/05/2007, 17h07

Pas de quoi on est là pour ça ?

**khayate** · 31/05/2007, 17h09

c encore jai un petit probleme kan je compile mon code donc le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
                     + "(ADDRESS=(PROTOCOL=TCP)(HOST= SM65CVDF)(PORT=1521)))" _
                     + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=OSMOSE)));" _
                     + "User Id=OSMOSE;Password=OSMOSE;"
 
 
 
        Dim sdaRequetes As New OracleDataAdapter
        Dim dsRequete As New DataSet
        'Dim laRequete As String
 
        Dim conn As New OracleConnection(oradb)
        conn.Open()
 
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandText = "select EVENT_CLIENT from EVENEMNT"
        cmd.CommandType = CommandType.Text
        'Dim drreader As OracleDataReader
 
        sdaRequetes.SelectCommand = cmd
        sdaRequetes.Fill(dsRequete)
        MsgBox(dsRequete.Tables("EVENEMNT").Rows(1).Item(0))

il m'affiche l'erreu suivante
"La référence d'objet n'est pas définie à une instance d'un obje"

keske je dois faire???

comment afficher ce qu'on a dans un dataset avec un msgbox

VB.NET

Discussions similaires

Partager

Partager