VB6 access Au secour je vais craquer

Question

Bonjour je suis debutant en VB et pour mon stage je dois r&#233;alis&#233; un
petit programme en vb6 qui se connecte a une base access pour la table
: ( champs: Nom, Prenom, Adresse)

mon pbs est le suivant

j'aimerais par exemple taper Nom d'une personne entrer dans ma base de
donn&#233;e dans une textbox   et recevoir le reste des
informations c 'est a dire Prenom Adresse dans 2 autres Textbox, apres
avoir cliquer sur un bouton

cela doit etre simple pour vous mais c'est hyper [javascript:Insert_Emoticon('/imgs2/smile_dissapprove.gif'); ]compliqu&#233; pour moi je vous remercie d'avace pour votre aide 





PS j'utilise VB6  Access 2000  ou 97
du chocolat pur des antilles a celui qui m'aide

cs_ITALIA · Answer

En DAO...en cochant Projet...Reference...Microssoft DAO 3.51 Object Library :

Dans ton Code :

Set Db = OpenDatabase("C:\MaBase.mdb") ' D&#233;finition base de donn&#233;e
Set Req= Db.OpenRecordset("SELECT Prenom,Adresse FROM MaTable WHERE Nom= '" & Text1.Text & "'")
If Req.RecordCount <> 0 Then
   Text2.text= Req("Prenom")
   Text3.text= Req("Adresse")
End If
Set Req=Nothing
Set Db=Nothing

It@li@

cs_ITALIA · Answer

Remplace MaTable par le Nom de la ta table

It@li@

tof008 · Answer

pour faire apparaitre les champs apr&#233;s avoir clik&#233; sur le bouton; mets ds la form load 
text2.Visible = false
text3.visible = false

apres ds command1_click, tu met 
text2.Visible = true
text3.visible = true

Ensuite tu suis les conseils toujours avis&#233; de [mailto:It@li It@li]@ 

tof008 (un gars qui apprend bcp de choses sur ce forum...)

Slyders · Answer

et aores tu ferme ta base 
req.close
db.close
histoir que sa soit propre

cs_ITALIA · Answer

Avec :

Set Req=Nothing
Set Db=Nothing

ca devrait le faire.

It@li@

Slyders · Answer

je connaisait pas cet fa&#231;on oki

tof008 · Answer

on en apprend tous les jours!!!!

cs_ITALIA · Answer

ares972 n'oublies pas de cocher reponse accept&#233;e si c'est OK

It@li@

VB6 access Au secour je vais craquer

8 réponses

Discussions similaires