Discussion :

[fikou]

Bonjours,
Je fais une recherche dans une table.

J'ai trouvé ce code sur le net mais je n'arrive pas à éditer le résultat dans un TextBox

Code :

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

1
2
3
4
5
6
7
8
 
Dim TablePersonnes As DataTable = Cl25m_DataSet.Tables("Concours")
 
Dim LignesRecherchees As DataRow() = TablePersonnes.Select("C_IdConcours = " & sMaVar)
 
For Each Ligne As DataRow In LignesRecherchees
     Console.WriteLine(Ligne("C_NomConcours")) 
Next

Je ne suis pas sur que ma recherche fonctionne, Si il y à plus simple ?? merci

Fikou

[boubounne]

Le code la ne te permet pas de recuperer le texte dans une textbox, mais l'affiche en mode console...
POur le mettre dans une textbox tente un truc comme :

Code :

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

1
2
 
textbox1.text = Ligne("C_NomConcours").toString

[nikoko34]

...et vu que l'on est dans une expression de type for each...
utilise plutôt une listbox !

[boubounne]

...et vu que l'on est dans une expression de type for each...
utilise plutôt une listbox !

Pas faux, maintenant tout depend de combien d'enregistrement tu doit recuperer, si tu est sur qu'il y en aura toujours un seul, alors une textbox sera bien, par contre si il y en a plusieur, une listbox serait le plus approprié

[fikou]

Merci,

Ca marche pas.
Il me dit que ligne n'est pas déclaré. Le prob c'est que dans l'exemple que j'ai pris sur le net

http://forums.microsoft.com/MSDN-FR/...3064&SiteID=12

elle n'est non plus pas déclarée, je ne sais pas quel en est le type.
En fait j'ouvre une table et affiche dans une comboBox tous les champs "Nom" de cette table.
J'aimerai que lorsque je selectionne un nom récuperer l'id de l'enregistrement

cboConcours.ValueMember = "C_IdConcours"
Label4.Text = cboConcours.SelectedValue.ToString

et avec une recherche sur l'Id afficher les autre champs de la table.


J'ouvre ma base de cette façon :

''Connection base
Cl25m_Connection = New OleDbConnection
'Donner à la propriété ConnectionString les paramètres de connexion
Cl25m_Connection.ConnectionString = sConnect
''Ouvrir la connection
Cl25m_Connection.Open()
''Instancier un objet commande
Cl25m_Command = New OleDbCommand(sSQL)
''Instancier un objet Adapter
Cl25m_DataAdapter = New OleDbDataAdapter(Cl25m_Command)
''init objet command
Cl25m_Command.Connection = Cl25m_Connection
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
Cl25m_DataAdapter.Fill(Cl25m_DataSet, CStr(sNomTable))
'Mettre dans un Objet DataTable une table du DataSet
Cl25m_DataTable = Cl25m_DataSet.Tables(CStr(sNomTable))

Merci d'avance

FikoU

[boubounne]

essaye comme ca :

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
24
25
26
27
28
29
30
31
 
        Dim MyConnexion As OleDbConnection
        Dim Mycommand As OleDbCommand
        Dim myReader As OleDbDataReader
        Dim connString As String = "chaine de connexion"
        MyConnexion = New OleDbConnection
        MyConnexion.ConnectionString = connString
        Mycommand = New OleDbCommand
        Dim i As Integer
 
        'on ouvre la connexion a la base de données
        MyConnexion.Open()
 
        'on créer la commande select(c'est un exemple...)
        Mycommand.CommandText = "select CIVILITE,NOM,PRENOM,NUMERO from base order by NOM, PRENOM"
 
        'on se connecte a la base de données
        Mycommand.Connection = MyConnexion
 
        'on rempli le datareader avec les données de la base de données
        myReader = Mycommand.ExecuteReader()
 
        'on rempli le tableau avec les données du datareader en vérifiant que les données ne sont pas null
        Do While myReader.Read()
 
            If Not (myReader.IsDBNull(0)) Then
                textbox1.text= myReader.GetValue(0)
            end if
........
 
loop

apres tu peut remplir un tableau avec ton datareader, ou faire des recherches etc...

[fikou]

Merci Boubounne,
Je galère avec ces facon de VB.Net de traiter les tables.

Du momment que j'ai récupéré mon Id il n'existe aucun moyen simple de faire une recherche dans le dataset ou datareader, du genre aller au début de la table (BOF), rechercher selon condition et afficher le tout.

FikoU