a tous les programmeurs de vb 6.0 besoin d'aide pour convertion d'access a vb!PLZ

Discussion dans 'Programmation' créé par sbaillamos, 15 Avril 2007.

  1. sbaillamos

    sbaillamos Visiteur

    J'aime reçus:
    0
    Points:
    0
    salut tous le monde!
    jé un petit probléme jé pa arrivé a le resoudre:
    jé charger un combobox a partir d'acces par des valeurs ki contient "012.." (par exempl) ce sont des codes le probleme c ke le combo ne lit pa le 0 et ça me coze des débaugages pour l'affichage ou le recherche etc
    3afa khouti celui ki a une idée ou bien un code ki peut m'aider n'hésitez pa le plus tot si possible
    merci d'avance

     
  2. ID^^

    ID^^ Accro

    J'aime reçus:
    375
    Points:
    83
    Re : a tous les programmeurs de vb 6.0 besoin d'aide pour convertion d'access a vb!PLZ

    si tu met le type de ce champs en char() ou varchar() ( c a dire 1 chaine de caractére) cava marché


    et voila pour remplir le combo :


    If Recodset.RecordCount <> 0 Then
    Recodset.MoveFirst
    Combo.Clear
    While Not Recodset.EOF
    combo.AddItem Recodset!champs
    Recodset.MoveNext
    Wend
    End If

     
  3. sbaillamos

    sbaillamos Visiteur

    J'aime reçus:
    0
    Points:
    0
    Re : a tous les programmeurs de vb 6.0 besoin d'aide pour convertion d'access a vb!PLZ

    merci identifia mai ce ke je veux est de remplir les 2champs dans le combobox exmpl le code et son libellé quand tu qlik sur le combo s'affiche le code + le libellé
    j'éspere ke tu as bien compris
    et merci infiniment pour ton aide [06c]
     
  4. ID^^

    ID^^ Accro

    J'aime reçus:
    375
    Points:
    83
    Re : a tous les programmeurs de vb 6.0 besoin d'aide pour convertion d'access a vb!PLZ

    voila ce ke tu veux :

    disant combo c le controle combo, text c le controle texte , et label c le controle label

    met ce code ds le lostFocus() dial combo :

    Dim P As Integer
    If Combo <> "" Then
    P = InStr(Trim(Combo), "__")
    Text = Left(Combo, P - 1)
    End If
    Combo.Visible = False

    w hda tu le met ds le change() dial text :

    Dim Req As Recordset
    Set Req = New Recordset
    Req.Open "select nom from latable li bghiti where code=" & texte , db, adOpenStatic, adLockOptimistic
    If Req.RecordCount > 0 Then
    Label = Req!nom
    Else
    label=""
    end if


    bonne chance
     
  5. Le_Dictateur

    Le_Dictateur Visiteur

    J'aime reçus:
    85
    Points:
    0
    Re : a tous les programmeurs de vb 6.0 besoin d'aide pour convertion d'access a vb!PLZ

    Hmmmm, nass mjahdin [22h]
     
  6. ID^^

    ID^^ Accro

    J'aime reçus:
    375
    Points:
    83
    Re : a tous les programmeurs de vb 6.0 besoin d'aide pour convertion d'access a vb!PLZ

    widi 3ayza kalam!! [22h]
     
  7. sbaillamos

    sbaillamos Visiteur

    J'aime reçus:
    0
    Points:
    0
    Re : a tous les programmeurs de vb 6.0 besoin d'aide pour convertion d'access a vb!PLZ

    7afedak a zin identifia
    sturgeon 3afak mate9awasech liya 3liha rah mezal mn wlad o benat bladi ghadin i7etajouha [17h]
    merci infinement pour ton aide [06c]
     
  8. ID^^

    ID^^ Accro

    J'aime reçus:
    375
    Points:
    83
    Re : a tous les programmeurs de vb 6.0 besoin d'aide pour convertion d'access a vb!PLZ

    ya pas de koi khti hada wajib [06c], ila 7tajiti chi programme ana filkhidma [25h]
     

Partager cette page