ADO ListView et TextBox

Question

Salut....

Je travail avec VB6 et j'ai un prob. avec ADO....

Je vexu cr&#233;er un bouton Recherche. Quand je rentre un num&#233;ro de dossier, l'info doit apparaitre dans mon listview...   Voici mon code.

P.S. Je ne saisis pas encore l'int&#233;gralit&#233; du code pour la listwiew 

Private Sub cmdRecherche_Click()


'On Error GoTo err


Set BD = New ADODB.Recordset
ListView1.ListItems.Clear


BD.Open "SELECT * FROM [dossiers_actif] WHERE [DOSSIER] like '%" & txtRechercheAvancee.Text & "%'", Connection, adOpenKeyset, adLockBatchOptimistic


BD.Update


'Mise a jour de la listview avec la requete trouv&#233;e
For a = 0 To BD.RecordCount - 1
    Set itmX = ListView1.ListItems.Add(, , BD!DOSSIER)
    itmX.SubItems(2) = BD!DOSSIER
   **** itmX.SubItems(1) = BD!LIVRAISON****
    itmX.SubItems(12) = BD!R&#201;F&#201;RENCE
    itmX.SubItems(13) = BD!REMARQUE
    BD.MoveNext
Next a
 
Exit Sub


End Sub

Dans ma boucle pour faire apparaitre l'info dans le Listview...
Mon bug, est qu'il me sort un message d'erreur  &#224; cette ligne itmX.SubItems(1) = BD!LIVRAISON. Ca me dit que c'est un type incompatible... Pourquoi ???

J'aimerais savoir aussi, que veux dire le chiffre en paranth&#232;se???

Deuxxi&#232;me question...

Je cherche depuis plusieurs jours le code poir faire apparaitre l'info pas dans un ListView mais plutot dans les textbox. Dans mon prog, j'ai 5 text box ou je voix les informatiions de ma base de donn&#233;es. J'Aimerais qaund je cherche un dossier que l'info s'inscrive dans les 5 textbox et ainsi pouvoir modifier les informations. 

Si quelqu'un peut me donner un bout de code pour m'aider un peu....

Merci d'avance

P.S. J'ai regarder sur le site et le prog. que j'ai trouver sur ADO font toujours apparaitre l'info dans un ListView et non dans des textbox.

Merci d'avance

cs_frop01 · Answer

Salut,



1- v&#233;rifies si BD!LIVRAISON n'est pas NULL dans la base de donn&#233;es si
c'est le cas utilises if Not IsNull(BD!LIVRAISON) then ...........

2- utilises DO Until bd.EOF au lieu de FOR (Imagines si RecordCount=0 alors on aura For i=0 to -1)

3- L'affichage dans une listView est valable dans le cas d'un affichage
de plusieurs occurences et le textbox pour afficher une donn&#233;e pr&#233;cise.



@+

  [mailto:cyberscorp2004@msn.com MSN]  [mailto:frop01@yahoo.fr YAHOO] 
http://www.codes-sources.com

nhervagault · Answer

Salut, je vais completer la reponse un peu

le chiffre est le numero de sous items l'index du sous item



La structure d'une listview est 

Text SousItem(0) sousitem(1) ....



Le texte est ce qui est mis dans la premiere  colonne et en mode icone,

les sousitem sont mis en mode detail.





pour mettre dans un textbox 

textbox1.text = BD!R&#201;F&#201;RENCE

je ne vois pas ou est la complexit&#233;.

Sinon il faut &#234;tre sur d'avoir qu'un seul &#233;lement dans le resultat comme indiquer plus haut.



Voila.

ADO ListView et TextBox

2 réponses

Discussions similaires