1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Requête avec plusieurs paramétres

Signaler
Messages postés
4
Date d'inscription
lundi 16 avril 2007
Statut
Membre
Dernière intervention
6 avril 2008
 -
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
 -
salut!
je voulais savoir si c'est possible d'utiliser une requete SQL de ce genre dans le dataenvironment :
select *  from "client" where ?=?
si oui comment passer les deux paramétres dans le code du boutton pour exécuter la recherche car g essayé  ce code mais il m'a afficher une erreur : type incompatible !!
voila le code du boutton:
Private Sub Command1_Click()
DataEnvironment1.cher_client (Combo1.Text), (Text1.Text)
Set DataGrid2.DataSource = DataEnvironment1
DataGrid2.Refresh
DataEnvironment1.rscher_client.Close
End Sub

[mailto:peg@sus peg@sus]

3 réponses

Réponse 1 / 3
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
 6
Salut,


Oui c'est possible, il suffit de mettre des and entre les différentes valeurs :

"select *  from client where champ1='" & combo1.Text & "' AND champ2='" & text1.Text & "'"

L'expérience, c'est une connerie par jour, mais jamais la même..
Réponse 2 / 3
Messages postés
4
Date d'inscription
lundi 16 avril 2007
Statut
Membre
Dernière intervention
6 avril 2008
merci pour votre reponce mais le nom du champ est un paramétre aussi !!
select *  from "client" where ?=?
car je veu faire un recherche dans une table client suivant deux paramétres le nom du champ,et la valeur à chercher
exemple:
select *  from "client" where "idcl"=5
param1=idcl
param2=5

[mailto:peg@sus peg@sus]
Réponse 3 / 3
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
 46
salut,

    Dim sTable As String
    Dim sField As String
    Dim lValue As Long
    Dim sSql  As String
    
    sTable = "client"
    sField = "idcl"
    lValue = 5
    
    sSql = "SELECT * FROM " & sTable & " WHERE
" & sField & " =
" & CStr(lValue) & ";"

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Répondre Posez votre question