ado

Question

bonjour g un petit probleme avec ma base de donn&#233; access
alors dans ma base il y 3colonnes id,nom,adresse
sur ma feuille g un listbox et un textbox
la listbox c'est pour afich&#233; tout les nom 
g fais:
Private cnx As ADODB.Connection

Private Sub Form_Load()
Set cnx = New ADODB.Connection
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.Open App.Path & "\client.mdb"

Dim strSql As String
Dim Ors As ADODB.Recordset
strSql = "select * from client"
Debug.Print strSql
Set Ors = New ADODB.Recordset
Ors.Open strSql, cnx, , , adCmdText
List1.Clear
While Not Ors.EOF
List1.AddItem Ors.Fields("nom")
List1.ItemData(List1.NewIndex) = Ors.Fields("id")
Ors.MoveNext
Wend
Ors.Close
Set Ors = Nothing
End Sub

et apres je veu quand je clique sur le nom qui maint&#233;resse sa mafiche dans le textbox son adresse
et c la que g un probleme
merci de m'aid&#233;

psicofox6@hotmail.com==

cs_CanisLupus · Answer

Salut, 2 solutions :
Soit, sur le click dans la listbox, tu recr&#233;es un recordset avec comme requete "select adresse from client where id = " & clng(list1.itemdata(list1.listindex)) si id est en long (ce qui est g&#233;n&#233;ralement le cas pour une id).
Soit, tu d&#233;clares ton recordset 'Ors' au niveau g&#233;n&#233;ral, tu ne le refermes pas apr&#232;s le remplissage de la liste et, sur le click dans list1 : Ors.findfirst "Id = "  & clng(list1.itemdata(list1.listindex)).

Ensuite : textbox = ors.fields("adresse")

Personnellement, je pr&#233;f&#232;re la 1&#232;re solution, &#231;a &#233;vite pas mal de probl&#232;mes si la base est en r&#233;seau.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Petit oubli, &#224; la place du ors.findfirst ... :
ors.movefirst
ors.find "Id = "  & clng(list1.itemdata(list1.listindex))

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

drpsico · Answer

d&#233;sol&#233; mes je suis debutant donc si tu pe me donn&#233; un pe + desplication 
moi g essay&#233; de faire sa

Private Sub List1_Click()
Dim strSql As String
Dim Ors As ADODB.RecordsetstrSql "select * from client where id " & CLng(List1.ItemData(List1.ListIndex))
Debug.Print strSql
Set Ors = New ADODB.Recordset
Ors.Open strSql, cnx, , , adCmdText
Text2.Text Ors.Fields("adresse")
Ors.Close
Set Ors = Nothing
End Sub

avec la requet que tu ma di mes je comprend pas pk where id et il me mais une erreur sur text2.text il me dit propriet&#233; invalide

psicofox6@hotmail.com==

cs_CanisLupus · Answer

Text2.Text = Ors.Fields("adresse")

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

drpsico · Answer

merci

psicofox6@hotmail.com==

Ado

5 réponses

Discussions similaires