vb6+requête

Question

Bonjour 


voila le requête:

comp.Open "select  compteur    from  compteurs  where code =1 ",cn,1 ,2


je veut prendre la valeur de compteur et met dans un zone de
texte et dans un autre tableau 


comment ?

Renfield · Answer

Text1.Text = comp.Fields(0).Value

cs_sny2009 · Answer

merci Renfield 
comment je peut prend le valeur de compteur et met dans autre tableau 
rs.feilds("n_ piece") = comp.Fields("compteur").Value
j'écrie cette requête mais il  a  une erreur

Renfield · Answer

- ce n'est pas une requete.
- rs n'est pas un tableau, mais un recordset

cependant, ton code semble correct (a la faut de frappe pres)

faudrait plus de code, pour pouvoir t'en dire plus.

cs_sny2009 · Answer

Set comp = New ADODB.Recordset
comp.Open " update compteurs  set compteur=compteur+1  where  code=1", cn, 1, 2 'mise a jour de compteur
If comp.State <> adStateClosed Then comp.Close
comp.Open "select compteur from compteurs where code=1", cn, 1, 2
Set rec = New ADODB.Recordset
rec.Open "select code_exp  from expert where nom='" & texpert.Text & "'", cn, 1, 2 ' nom d'expert
Set rs = New ADODB.Recordset ' ajouter un acc
        rs.Open "[accompagnement]", cn, 1, 2
        rs.AddNew
        rs.feilds("n_ piece") = comp.Fields("compteur").Value

Renfield · Answer

comp.Open " update compteurs  set compteur=compteur+1  where  code=1", cn, 1, 2 'mise a jour de compteur
If comp.State <> adStateClosed Then comp.Close

ouah! j'ai jamais vu ce genre de codage...
et moi qui me contente de :

cn.execture "UPDATE `compteurs` SET `compteur`=`compteur`+1 WHERE `code`=1"

---------------

a quoi sert rec ?

on ecrit pas feilds mais fields, comme je te l'ai fait remarquer au premier message.

gaffe a l'injection SQL avec ton texpert.text (quotes a doubler)

au final, que cherches tu a faire ?

cs_sny2009 · Answer

merci Renfield 
j'ai corrigé mais il y a une erreur, l'erreur est :"L’objet ne gée pas cette propriéte ou cette méthode"

Renfield · Answer

faute de frappe:
cn.execute

dis, t'as pas d'intellisense, pour t'aider dans ce genre d'erreurs ?

cs_sny2009 · Answer

je ne compris pas le VB6  beaucoup et merci de votre aide  je suis entrain de le maitriser  
alors  je suis besion de voter aide svp 
mon nouveau question : comment je peut prendre le valeur de comp et met dans n°piece

et merci d'avance

Vb6+requête

8 réponses

Votre réponse

Discussions similaires