Findfirst en VB2010

Question

Bonjour à tous.

Je programmais en VB6 et j'ai décidé de basculer sur VB2010. Je rencontre donc qq difficultés.
Entre autres, comment rechercher un enregistrement dans une table (issue d'une base Access) basé sur un critère ?
La fonction en vb6 est findfirst.

Ex : On a une table avec en champs N° Sécu, nom, prénom et on veut se positionner sur l'enregistrement dont le n° Sécu est contenu dans un textbox.

J'ai évidemment cherché sur différents forums mais n'ai pas trouvé une solution simple et efficace.

Merci pour vos réponses.

Subaqua.

NHenry · Answer

Bonjour,

Utilises une requête SQL du format :
SELECT * From MaTable WHERE MonChamp=Valeur

cs_subaqua · Answer

Est-ce que ça marche si, au lieu de mettre "MaTable", je mets le résultat d'une requête ?
Je voyais bien comment faire en vb6 mais en vB2010, je ne suis pas encore à l'aise avec la syntaxe.

NHenry · Answer

Bonjour,

Si tu as créé la requête dans Access, oui, sinon, montres ta requête source afin de voir comment arranger cela.

cs_subaqua · Answer

Ci-dessous mon code :

       'ouverture de la connexion(à partir du répertoire de l'application)sur la même ligne
        cnxstr "provider microsoft.jet.oledb.4.0 ; data source = c:\30 - Opatom\bdd_essai.mdb;"
        cnx = New OleDbConnection
        cnx.ConnectionString = cnxstr
        cnx.Open()
        'Création de la requête sql à partir d'une liste déroulante liste_pays
        sql = "select * from t_essai WHERE pays='" & liste_pays.value & "' ORDER by nom"
        'Création de la commande et on l'instancie (sql) 
        cmd = New OleDbCommand(sql)
        'Création du dataadapter (dta) et on l'instancie (cmd)
        dta = New OleDbDataAdapter(cmd)
        'On instancie la commande (cmd) à la connection (cnx) 
        cmd.Connection() = cnx
        'On charge le dataset (dts) grace à la propriété fill du dataadapter (dta)
        dta.Fill(dts, "t_essai")
        'On charge la datatable (dtt) grace à la propriété tables du dataset (dts)                  
        dtt = dts.Tables("t_essai")
       'J"aimerais ici rechercher dans ma requête le nom d'une personne à partir de son n° de sécu
       'l'instruction ci-dessous me donne le nom du 1er enregistrement de la requête ce qui ne m"intéresse pas          
       Me.Lb_text.Text  = dtt.Rows(1).Item("nom")

NHenry · Answer

Bonjour,

Voir :
http://www.generation-nt.com/filtrage-dataset-entraide-2331811.html
http://msdn.microsoft.com/fr-fr/library/bb669073.aspx

Sinon, le mieux si tu n'as qu'un seul item à afficher, serait d'utiliser un OleDataReader et de filtrer plus précisément à le requête.

cs_subaqua · Answer

OK, merci bien pour tes réponses.

Findfirst en VB2010

6 réponses

Votre réponse

Discussions similaires