requete sql

Question

Bonjour, j aimerai savoir comment on fait pour rechercher une donn&#233;e quelconque dans ma base de donn&#233;e, j ai d&#233;ja creer mes bases de donn&#233;es avec access et r&#233;aliser des requetes mais je ne sais pas comment faire pour demander une requete a partir d une list box. En fait je veux s&#233;lectionner dans ma list box ce que je veux rechercher dans ma base de donn&#233;e, j aimerais connaitre le code sql . 
merci d avance parce que la j suis vraiment plant&#233;

cs_trabice · Answer

exemple ds bdd users
id : 1,2,3
nom : fab,nico,...
pr&#233;nom.

ds ta list tu as 1,2,3.

tu fai une requete : "select nom,prenom from users where id=' " & cint(nomdetalist.text) & "';"

ici cint(...) permet de transformer le string en integer. car id est de type num&#233;rique.

sinon si c de l alpha enlever les "cotes"(''''''''') et cint()

j espere que ca r&#233;pond a ta question
fabrice

pointdalattitude · Answer

Merci pour ta r&#233;ponse,
mais d&#233;sol&#233; je commence depuis peu et j ai pas trop compris! alors si tu pouvais me r&#233;expliquer se serait cool merci d avance

cs_trabice · Answer

1 : tu es bien sous VB6?

pointdalattitude · Answer

ouiii

cs_trabice · Answer

donne ta table ,tes champs,le contenu de ta textbox.
comment tu rempli ta list?
tu s&#233; faire des acc&#232;s a la BDD?

pointdalattitude · Answer

En fait, je fais une gestion de film et je cherche mes titres dans ma base de donn&#233;e selon les genres ( ca c est fait) et j affiche ca dans une list box et je voudrais apres s&#233;lectionner le titre de mon film dans ma listbox et que ca me sorte toutes les infos de ma base de donn&#233;e sur ce film j espere que tu vois ce que je veux dire
merci

pointdalattitude · Answer

ma list est rempli depuis une requete access

cs_trabice · Answer

alors deja le code est a mettre ds nomdetaliste_change(..)

ensuite

tu fai ta requete select
tu l'execute?
ca va ca?

et tu r&#233;cupere les valeurs 
msgbox recordset.fields(0)
textbox1.text =  recordset.fields(0)

dsl du retard..

pointdalattitude · Answer

Je vais tester tout ca !
Merci

pointdalattitude · Answer

Ok je vois ce que tu veux dire mais comment fais tu pour &#233;x&#233;cuter la requete ( je sais je sui mauvais !!) merci bien de ta patience !!

cs_trabice · Answer

Dim i, j, numligne As Integer
Dim strSQL, strSQL2, rep As String
Dim rsnumPFamodif  As New ADODB.Recordset
Dim RsPrSuppr As New ADODB.Recordset
Dim rsado2 As New ADODB.Recordset


If Option1(0).Value = True Then 'nouveau
    Call razgrid
    txtnumPF.Enabled = True
    Etape = 1
    Action = "ajout"
    Frame2.Enabled = True
    txtnumPF.SetFocus
End If


If Option1(1).Value = True Then 'modifier
    If DataCombo1.Text = "" Then
        MsgBox "Veuillez selectionner une piece finie", vbInformation, "Probl&#232;me de modification"
        Exit Sub
    End If
    Call razgrid
    Frame2.Enabled = True
    txtnumPF.Enabled = False
    Action = "modif"    strSQL "SELECT * FROM PF WHERE IDPF '" & DataCombo1.Text & "';"
    rsnumPFamodif.Open strSQL, ConnexionTest, adOpenDynamic, adLockOptimistic
    If rsnumPFamodif.RecordCount >= 1 Then
        txtnumPF.Text = rsnumPFamodif!idpf
        txtlibPF.Text = rsnumPFamodif!libpf
        numligne = 1
            Do While rsnumPFamodif.EOF = False
                MSHFlexGrid1.TextMatrix(numligne, 0) = rsnumPFamodif!idsodroite
                MSHFlexGrid1.TextMatrix(numligne, 1) = rsnumPFamodif!idsogauche
                MSHFlexGrid1.TextMatrix(numligne, 2) = rsnumPFamodif!idmoule
                numligne = numligne + 1
                rsnumPFamodif.MoveNext
            Loop
        Etape = numligne
        txtlibPF.SetFocus
    End If

j'ai pa trop le tps today dsl,
je te balance ca
essaye de traduire.

Fabrice

Requete sql

11 réponses

Discussions similaires