re Assez urgent - une question toute simple

Question

re desolé mais on ne lit pas bien ce ke j'ai ecrit donc je renvoit le mesage !! ----, Salut à tous, j'espère que vous pourrez m'aider. Mon projet consiste à réaliser un réaliser un répertoire téléphonique qui sera combiné avec un numérateur téléphonique. Le répertoire téléphonique est déjà créer. Voici mon problème lié à la partie concernant le numérateur téléphonique : J'ai une form sur lakel ya un data combo, un textbox et d'autre bouton. Le data combo est relié à une base de données accès 2000. Ce que je souhate faire, c'est qu'en fonction de la valeur contenue dans le data combo, afficher la valeur correspondante dans le texte box. Je m'explik, si par exemple dans le datacombo, je choisi le nom toto, alors dans le textbox, on doit me donner le numéro de téléphone de toto. J'ai utilisé une connexion DAO pour faire le répertoire. Et j'ai connecté le datacombo à l'aide d'un data report. Si quelq'un pouvait m'aider à résoudre ce petit problème, ce sera très aimable de sa part. Merci

jpleroisse · Answer

Bonsoir,

Pour un DataCombo, je ne sais pas (je vais faire quelques essais).
Personnelement pour obtenir ce r&#233;sultat, j'utilise un Combobox. Si tu
n'as besoin que du DataCombo que pour cela, essaye d'utiliser cette
m&#233;thode. Dans cet exemple l'ai utilis&#233; la BD Biblio.mdb que j'ai dans
VB6.



Private Sub Combo1_Click()

Dim msg As String

msg = Combo1.ItemData(Combo1.ListIndex) & ""

Text1 = msg

End Sub



Private Sub Command1_Click()

Dim adoConnection As ADODB.Connection

Dim adoRecordSet As ADODB.Recordset

Set adoConnection = New ADODB.Connection

Set adoRecordSet = New ADODB.Recordset

Dim ConnectionString As String

ConnectionString "Provider Microsoft.Jet.OLEDB.3.51;" & " Data
Source = C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"

adoConnection.Open ConnectionString

adoRecordSet.Open "Publishers", adoConnection

Do Until adoRecordSet.EOF



Combo1.AddItem adoRecordSet!Name

Combo1.ItemData(Combo1.NewIndex) = adoRecordSet!PubID

adoRecordSet.MoveNext

Loop

adoRecordSet.Close

adoConnection.Close



Set adoConnection = Nothing

Set adoRecordSet = Nothing

End Sub

(Si je trouve une m&#233;thode pour le DataCombo, je la post de suite)



jpleroisse

cs_Shany · Answer

Je te remercie, je vais tester ta solution et je te tiens au courant.
En ce qui concerne le datacombo je l'avais juste mis pour avoir acc&#232;s au donn&#233;es de ma table. Je vais le remplacer par un combobox.

cs_Shany · Answer

hum, jpleroisse

J'ai examin&#233; ton proc&#233;d&#233;. En fait toi c'est en cliquant sur un bouton que tu vas obtenir la valeur de ton combobox.

Moi ce n'est pas ce que je veux.

Ce que je cherche &#224; faire, c'est en choisissant une info dans la liste du combo alors dans le textbox j'ai une info relative au combo.

exemple :

dans le combo j'ai des noms et en fonction des noms on me donne le tel du nom.

En fait, je c'est que je dois utiliser une proc&#233;dure du style :

Private Sub Combo1_Click()

End Sub

Mais le probl&#232;me, c'est que j'ai test&#233; toute sorte de requete pour regler le probl&#232;me, j'ai m&#234;me utiliser  les ADO mais je ne peux pas les combin&#233; avec des DAO que j'ai utilis&#233; pour faire mon r&#233;pertoire, on me dit que la connexion est ferm&#233; ou ne peut pas etre utilis&#233;.

Un vrai casse-t&#234;te, je vais encore faire travailler mes m&#233;ninges.

cs_Shany · Answer

jpleroisse, c'est bon on ma fourni une autre solution au moyen d'une connection DAO. Et comme j'utilise dej&#224; une connection DAO pour faire mon r&#233;pertoire cela ne posera aucun probl&#232;me.

Merci encore de m'avoir r&#233;pondu .

Re Assez urgent - une question toute simple

4 réponses

Discussions similaires