Console dans textBox

Version imprimable

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:

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

02/08/2007, 09h33
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:

1 2 textbox1.text = Ligne("C_NomConcours").toString
02/08/2007, 14h01
nikoko34

...et vu que l'on est dans une expression de type for each...
utilise plutôt une listbox !
02/08/2007, 15h41
boubounne

Citation:

...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é
02/08/2007, 15h44
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

Citation:

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 :

Citation:

''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

essaye comme ca :

Code:

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...

02/08/2007, 16h22
fikou

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

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
02/08/2007, 16h29
boubounne

tu créer une collection, et tu insere les données de ton datareader dans celle ci....
recherche, tri, suppression, ajout, etc...

et ensuite pour enregistrer tu fait l'inverse...
parcour du tableau, enregistrement, etc... voir meme mettre le tableau dans le datareader (pas sur de cette solution..)

Merci à tous,
Je suis newbie en VB.NET.
Cela fait trop lomgtemps que je cherche une solution à mon prob.
Je ne connait pas encore les collections et si je me lance !!!! je vais encore sécher.
J'ai fait comme ça (puristes s'abstenir) :D
Code:

1 2 3 4 5 6 7 8 Do While Cl25m_DataTable.Rows.Count - 1 <> i If Cl25m_DataTable.Rows(i).Item("C_IdConcours") = cboConcours.SelectedValue Then lblDate.Text = (Cl25m_DataTable.Rows(i).Item("C_Date")) lblDiscipline.Text = (Cl25m_DataTable.Rows(i).Item("C_Discipline")) Exit Do End If i = i + 1 Loop
Encore merci
FikoU

03/08/2007, 10h07
boubounne

ton code ma lair plutot bien, et pour les collection, ne dit pas que tu va secher, au contraire, c'est relativement simple a utiliser, et ce te facilite la vie pour beaucoup de chose...

Utilise la FAQ, et regarde les différents tutos, tu verra que ce n'est pas la mer a boire en fait...

aller bonne continuation :king: