comment faire une simple Requete sql !!Résolu

Question

salut tt le monde
en fet j cr&#233;&#233; une forme " form1" , un boutton de command " rechercher", une zone de texte" nom"
et une base de donner access nom&#233;" personne" qui contien les champs suivant :
nom
prenom
adresse
tel
age

je veut rechercher dns ma base la liste des personne dont le nom est saisi dans la zone de texte "nom" et l'afficher dans  DBGrid de la form2. et l'imprimer apres

aider moi svp je suis dans l'impasse

cs_ITALIA · Accepted Answer

Header.Width c'est pour fixer la largueur des colonnes
ils ont une taille diff&#233;rente car dans ton cas l'age et l'adresse n'on pas besoin de la m&#234;me largueur de colonne !!
mais je l'ai est pris au hazard

It@li@

cs_ITALIA · Answer

En DAO...en cochant Projet..Reference..Microsoft DAO 3.51 Object Library..

Set Db = OpenDatabase("C:\MaBase.mdb")Set ReqDb.OpenRecordset("SELECT * FROM NomTable WHERE NomChamp '" & Text1 & "'")
If Req.RecordCount <> 0 Then
   Val1=Req("Nom")
   Val2=Req("Prenom")
   Val3=Req("Adresse")
   Val4=Req("Tel")
   Val5=Req("Age")
End If
Set Req= Nothing
Set Db = Nothing

It@li@

mboudllal · Answer

merci italia
mais comment faire stp pour afficher le resultat dans un tableau ou dans un BDGrid??

cs_ITALIA · Answer

J'utilise une ListView :

Dim ObjListe As ListItem


Set Header = ListView1.ColumnHeaders.Add()
Header.Text = ""
Header.Width = 400
Set Header = ListView1.ColumnHeaders.Add()
Header.Text = "NOM :"
Header.Width = 3100
Set Header = ListView1.ColumnHeaders.Add()
Header.Text = "PRENOM :"
Header.Width = 2000
Listview1.ListItems.Clear

Set Db = OpenDatabase("C:\MaBase.mdb")Set ReqDb.OpenRecordset("SELECT * FROM NomTable WHERE NomChamp '" & Text1 & "'")
If Req.RecordCount <> 0 Then
   Val1=Req("Nom")
   Val2=Req("Prenom")
   Val3=Req("Adresse")
   Val4=Req("Tel")
   Val5=Req("Age")
End If
Set Req= Nothing
Set Db = Nothing

Set ObjListe = ListView1.ListItems.Add(, , "")
ObjListe.SubItems(1) = Val1
ObjListe.SubItems(2) = Val2

It@li@

Slyders · Answer

Set Db = OpenDatabase( app.path & "\MaBase.mdb")

c'est pratique aussi ^^ (base de donn&#233;e au meme endroit que le programme)

sinon tu peu le metter dans un Msflexgrid et taper

Printer.PaintPicture msflexgrid.Picture, 0, 10

mboudllal · Answer

listeview est un coposant ou bien? je le voi pas dans la liste des composants??????

Slyders · Answer

Code pour remplir un msflexgrid :

 Set mabase = OpenDatabase(App.Path & "/Gestionsalle.mdb")
    msf.ColWidth(0) = 0
    msf.TextMatrix(0, 1) = "Nom"
    msf.ColWidth(1) = 700
    msf.TextMatrix(0, 2) = "prenom"
    msf.ColWidth(2) = 1000
    msf.TextMatrix(0, 3) = "adrese"
    msf.ColWidth(3) = 1000
    msf.TextMatrix(0, 4) = "tel"
    msf.ColWidth(4) = 2000
    msf.TextMatrix(0, 5) = "age"
    msf.ColWidth(5) = 1000
    
        req "SELECT * FROM NomTable WHERE NomChamp " & Text1 

    Set jeu = mabase.OpenRecordset(req)
        While jeu.EOF = False
            msf.Rows = msf.Rows + 1
            msf.TextMatrix(msf.Rows - 1, 1) = jeu!nom
            msf.TextMatrix(msf.Rows - 1, 2) = jeu!prenom
            msf.TextMatrix(msf.Rows - 1, 3) = jeu!adresse
            msf.TextMatrix(msf.Rows - 1, 4) = jeu!tel
            msf.TextMatrix(msf.Rows - 1, 5) = jeu!age
            jeu.MoveNext
        Wend
       
    jeu.Close
    mabase.Close
End Sub

mboudllal · Answer

une autre question Italia 
c koi 
Header.Width = 400

Header.Width = 3100

Header.Width = 2000
 c la largeur des champs?? mais pourkoi ils ont des tailles d&#233;ffirents???
ou  bien des valeurs que tu choisi al&#233;atoirement ??

mboudllal · Answer

salut SLYDERS
Printer.PaintPicture msflexgrid.Picture, 0, 10 c pour imprimer un msflexgrid???

Slyders · Answer

>mboudllal 
Oui oui tout a fait

cs_ITALIA · Answer

[javascript:alink_7.Click() images bitmap]. D&#233;finit une op&#233;ration au niveau du bit (par exemple, la constante vbMergeCopy ou vbSrcAnd) qui est ex&#233;cut&#233;e sur l'argument picture &#224; mesure qu'il est dessin&#233; sur object. La liste compl&#232;te des op&#233;rateurs au niveau du bit figure dans la rubrique RasterOp, constantes de l'aide de Visual Basic.

It@li@

mboudllal · Answer

salut les gars
voici mon code:
m&#233; ca bug au niveau de la requete  ( en rouge ) il me dis " types incompatible " je comprend rien  !!!

Private Sub Command2_Click()
Dim b As String


y = InputBox("entrer le nom du site")
Set mabase = OpenDatabase("C:\Applicat\BaseD.mdb")


Set req mabase.OpenRecordset("SELECT type,Nombre_port,Nombre_port_vide,Ligne,Num_ligne FROM hub WHERE site ' " & y & " ' " )


   Set jeu = mabase.OpenRecordset(req)
    MSF.ColWidth(0) = 0
    MSF.TextMatrix(0, 1) = "Type"
    MSF.ColWidth(1) = 700
    MSF.TextMatrix(0, 2) = "Nombre_port"
    MSF.ColWidth(2) = 1000
    MSF.TextMatrix(0, 3) = "Nombre_port_vide"
    MSF.ColWidth(3) = 1000
    MSF.TextMatrix(0, 4) = "Ligne"
    MSF.ColWidth(4) = 2000
    MSF.TextMatrix(0, 5) = "Num_ligne"
    MSF.ColWidth(5) = 1000
    
       ' req "SELECT type,Nombre_port,Nombre_port_vide,Ligne,Num_ligne FROM BaseD WHERE Site " & Y


   ' Set jeu = mabase.OpenRecordset(req)
        While jeu.EOF = False
            MSF.Rows = MSF.Rows + 1
            MSF.TextMatrix(MSF.Rows - 1, 1) = jeu!Type
            MSF.TextMatrix(MSF.Rows - 1, 2) = jeu!Nombre_port
            MSF.TextMatrix(MSF.Rows - 1, 3) = jeu!Nombre_port_vide
            MSF.TextMatrix(MSF.Rows - 1, 4) = jeu!Ligne
            MSF.TextMatrix(MSF.Rows - 1, 5) = jeu!Num_ligne
            jeu.MoveNext
        Wend
       
    jeu.Close
    mabase.Close
req.Show ' req c la form qui contien mon MSFlexGrid

Slyders · Answer

ta bien d&#233;clarer de la fa&#231;on suivante
dim mabase as database
dim req as recordset 
?

et la  faut enelver le SETreq mabase.OpenRecordset("SELECT type,Nombre_port,Nombre_port_vide,Ligne,Num_ligne FROM hub WHERE site ' " & y & " ' " )

Slyders · Answer

dsl je dit n'importe koi, les erreurs sa m'embrouille lol
 req ("SELECT type,Nombre_port,Nombre_port_vide,Ligne,Num_ligne FROM hub WHERE site ' " & y & " ' " )


   Set jeu = mabase.OpenRecordset(req)

Slyders · Answer

au debut de ton programme d&#233;fini bien tes colones de ton msf:
Msf.cols=6 
(de 1 &#224; 5 le 0 on l'enleve sa fait une colone grise moche :p)

mboudllal · Answer

il accepte pa req sans set
il dis " utilisation incorrecte de la propriet&#233; " !!

Slyders · Answer

(dommage qu'on peu pas editer ses messages)

dim b as string et ya que des y
ta bien d&#233;clarer ton y ?

Slyders · Answer

ta bien ajouter la reference:
Microsoft DAO 3.6 Object Library ? (pour acces 2000)
sinon pour acces 97 c'est :
Microsoft DAO 3.5 Object Library

mboudllal · Answer

y c ce qu'on r&#233;cupere d'un inputbox,je s&#233; pa si j doi le d&#233;clarer, et b c rien c une variable que j utilis&#233; et elle sert plus a rien

cs_ITALIA · Answer

Pour les champ avec des _ mets les entre [] :
Exemple : [Nombre_port]

Sinon quel est le Message d'Erreur ??

It@li@

Slyders · Answer

heu si meme si c ce qu'on recup&#232;re d'un inputbox il faut le d&#233;clarer,
Met un Option Explicit pour verifier sa t'obligera tout d&#233;clarer comme il faut

mboudllal · Answer

j d&#233;clar&#233; y comme string j modifi&#233; la requetereq ("SELECT type,[Nombre_port],[Nombre_port_vide],Ligne,[Num_ligne] FROM hub WHERE site '" & y & "'")
me ca me donne tjr l'erreur : 
utilisation incorrecte de la propriet&#233;
tu voi l'erreur??

Slyders · Answer

l'erreur il te la met sur la requete ?
ta bien d&#233;clarer req en string ?
il faut que ta variable req serve seulment a contenir ta requete et ensuite a &#234;tre lancer c tout

copie colle l'algo entier qu'on voie :x

mboudllal · Answer

cool ca passe , m&#233; il bug encore sur la dernier ligne
req.show ' req c la form qui contien MSFlexGrid
dis moi stp est ce que j doi changer les propriet&#233; de MSF ??
merci

Slyders · Answer

req.show ? tu veu afficher le resultat de ta requete ?
alors fait plustot
Msgbox (req)
sa marchera mieu

Si le Req est le nom de ton formulaire alors fait le en debut de programme req.show, mais d'avoir une  variable qui s'apelle req et un form qui s'apelle req c pas bien il va se melanger les pinceau
apelle le plustot  formreq.show

mboudllal · Answer

si j fais msgbox(req) donc MSF ca me servira a rien !!  sinon dis moi stp comment j pe l'utiliser ??

regarde il dis 

Private Sub Command2_Click()
Dim y As String
Dim mabase As Database


Dim req As String


y = InputBox("entrer le nom du site")
formreq.Show
Set mabase = OpenDatabase("C:\Applicat\BaseD.mdb")


 req "SELECT type,[Nombre_port],[Nombre_port_vide],Ligne,[Num_ligne] FROM hub WHERE site '" & y & "'"



   Set jeu = mabase.OpenRecordset(req)
   ' ici il me donne une erreur : un objet est requis !!!!
    MSF.TextMatrix(0, 1) = "Type"
    MSF.ColWidth(1) = 700
    MSF.TextMatrix(0, 2) = "Nombre_port"
    MSF.ColWidth(2) = 1000
    MSF.TextMatrix(0, 3) = "Nombre_port_vide"
    MSF.ColWidth(3) = 1000
    MSF.TextMatrix(0, 4) = "Ligne"
    MSF.ColWidth(4) = 2000
    MSF.TextMatrix(0, 5) = "Num_ligne"
    MSF.ColWidth(5) = 1000
    
    
   
        While jeu.EOF = False
            MSF.Rows = MSF.Rows + 1
            MSF.TextMatrix(MSF.Rows - 1, 1) = jeu!Type
            MSF.TextMatrix(MSF.Rows - 1, 2) = jeu!Nombre_port
            MSF.TextMatrix(MSF.Rows - 1, 3) = jeu!Nombre_port_vide
            MSF.TextMatrix(MSF.Rows - 1, 4) = jeu!Ligne
            MSF.TextMatrix(MSF.Rows - 1, 5) = jeu!Num_ligne
            jeu.MoveNext
        Wend
       
    jeu.Close
    mabase.Close
End Sub

Slyders · Answer

msf.ColWidth(0) = 0

MSF.Rows = 1 'a mettre au debut du programme
j'avaia sa en + pour r&#233;tr&#233;cir ma colonne 0 , sinon je sais pas :x

si j fais msgbox(req) donc MSF ca me servira a rien !!  sinon dis moi stp comment j pe l'utiliser ?? 
je comprend pas ce que tu veu exactement ^^

mboudllal · Answer

j essay&#233; ca m&#233; il me dis 
un objet est requiq au niveau des d&#233;clarations (  msf.ColWidth(0) = 0

MSF.Rows 1 ) quand je les met en commentaire ca donne la meme erreur au niveau de  MSF.TextMatrix(0, 1) "Type"  je comprend rien SLYDERS

cs_ITALIA · Answer

Tu as bien un composant qui s'appel MSF ?

It@li@

mboudllal · Answer

tu sais ca marche !!! 


merci les gars !! vs etes sympa


cool j sui trop conten

Slyders · Answer

sa c fait ^^
l'erreur venai d'ou alors ?

mboudllal · Answer

he les gars 
dite moi comment j pe afficher une form en plein ecran
exemple :
j une form " form1"
et un bouon "afficher form2"
je ve afficher form2 en plein ecran quand je f&#233; "  form2.show " dans le code du boutton

merci

mboudllal · Answer

tu sais l'erreur c q j le MFS dans une form "frm2"et le  bouton afficher dans une autre fom " form2" et j tape pas le chemein complet 
form2.MSF.TextMatrix(0, 1) = "Type" c tt bete    


 


merci slyder

Slyders · Answer

ya une option a ton formulaire dans Windowstate tu met en maximized

c plus simple de le faire avec l'option
sinon en code sa doit du genre
form2.windowstate = 2
ou alors c ptete
form2.windowstate = maximized

enfin pref , cliker sur l'option c plus simple :p

Slyders · Answer

ya une option a ton formulaire dans Windowstate tu met en maximized

c plus simple de le faire avec l'option
sinon en code sa doit du genre
form2.windowstate = 2
ou alors c ptete
form2.windowstate = maximized

enfin bref , cliker sur l'option c plus simple :p

Slyders · Answer

dsl doublon :x
aufaite pour ne plus avoir ce genre d'erreur, nomme correctement tes formulaire sa &#233;vitera se genre d'erreur &#224; l'avenir ;)
parceque c kler que enter form2 et frm2 c pas g&#233;nial :x

mboudllal · Answer

j mis Windowstate  en maximized dans les propriet&#233;s de la form et ca marche !!!!!!!!

Slyders · Answer

valide les bonne reponse alors

mboudllal · Answer

re


dite moi les gars j essay&#233; d'imprimer un DBGrid avec la meme commande que MSFlexGrig m&#233; ca passe pas 
Printer.PaintPicture DBGrid1.Picture, 0, 10
l'erreur " Methode ou memebre de donn&#233;es introuvable  !!!

avec un MSFlexGrid ca marche  " Printer.PaintPicture MSF.Picture, 0, 10 " m&#233; ca met un pe de temps

mboudllal · Answer

dites moi est ce que on peut trier les element d'un champ de BDGridv ???

Slyders · Answer

vi en effet sa met un peu de temps mais comme tu la dit sa marche :x
le Dbgrid je connait pas dsl

si sa marche avec une requete SQL oui tu peu trier, a partir de ta requete SQL
apres tes condition du Where tu fait ORDER BY champ ASC
ou DESC descendant (asc pour ascendant)

mboudllal · Answer

je travail avec une base de donn&#233;e access, j essay&#233; ORDER BY , m&#233; ca passe pas ca doi marcher juste pour sql pe etre

Slyders · Answer

ben oui c pour le SQL 
mais c SQL pour ACCES sa passe
ecrit ta requete ici que je voi

mboudllal · Answer

bonjour
voila c ma requetereq "SELECT type,[Nombre_port],[Nombre_port_vide],Ligne,[Num_ligne] FROM hub WHERE site '" & y & "'" ORDER BY site ASC
il donne erreur au niveau de order ???

mboudllal · Answer

ooooopppppsss c bon ca marche !! c la bonne requete

mboudllal · Answer

dite moi les gars est ce que je peut mettre des images dans une base de donn&#233; access????

cs_ITALIA · Answer

oui j'ai pos&#233; une source qui le fait tr&#233;s bien

It@li@

mboudllal · Answer

j vu m&#233; j pas trop capt&#233;, m&#233; tu poura pe etre m'aider
ce que je veut faire c:
j un formulaire en vb avec un champ " nom materiel" , un "picture box" et une base de donn&#233; access qui est rel&#233; avec mon interface par un "data". je veut quand je d&#233;file les enregistrement par data, l'image change en fonction du nom du mat&#233;riel.
              merci 
et voilaaaa

cs_ITALIA · Answer

Mon code n'utilise pas de Controle Data...

Tu sais ajouter un Enregistrement dans une Base Access ?

It@li@

mboudllal · Answer

ben oui m&#233; comment stocker les images dedans ??

cs_ITALIA · Answer

Le Code de mon Soft est pas tr&#233;s compliqu&#233;...

It@li@

Slyders · Answer

et encore, faudrait prendre le temps de chercher

cs_ITALIA · Answer

Effectivement Slyders

It@li@

mboudllal · Answer

j vu ton code m&#233; j pas bien capt&#233; ITALIA

vous savez? j pens&#233; &#224; un astuce tt betesi zone de texte blabla then picture box( " chemin\image.bmp)
m&#233; j essay&#233; ca dans la fome m&#233; ca donne rien.
If Text1.Text = ppp Then
    Text3.Text = ok
    End If

dsl c des trucs un pe bete m&#233; je suis d&#233;butant, et avec vous j appris pas mal de trucs
merci

cs_ITALIA · Answer

effectivement si dans ta base au lieu d'enregistrer les images tu enregistre un chemin (C":\MonRepertoire\MonImage.bmp")
Et que toutes tes images sont bien stock&#233;e...il ni a pas de souci...

Mais si tu veux l'installer sur un autre Poste ...&#231;a commence &#224; ce compliquer !

It@li@

mboudllal · Answer

je croi que t'as raison ITALIA par ce que je doi mettre mon application sur plusieurs postes, et ca va etere vraiment galere !!!


m&#233; j rien capt&#233; dans ton code

Slyders · Answer

Si ton programme change d'endroit mais si tes images sont toujours dans le meme repertoir que ton application tu peu faire un :
app.path & "/Images/"

Les app.path contien le chemin de ton application, par exemple C:\programes Files\Jechangetousletempsdereptoirpourfairchier\Prog.exe

et tu concat&#232;ne le nom du dossier &#224; se chemin.

mboudllal · Answer

bonjour les amis
j f&#233; &#231;a m&#233; ca bug.
le message :" un objet est requis " !!!!!
savez vous d'ou ca vien??

Private Sub Form_Load()
If Text1.Text = ppp Then
Picture1.Picture = LoadPicture(applicat.Path&("/Images/hub2.JPEG"), vbLPCustom)
    Else
        Picture1.Picture = LoadPicture(applicat.Path&("/Images/hub3.JPEG"), vbLPCustom)
End Sub

cs_ITALIA · Answer

Essayes : 

Private Sub Form_Load()

If Text1.Text = ppp Then
   Picture1.Picture = LoadPicture(App.Path & ("\Images\hub2.JPEG"))
Else
        Picture1.Picture = LoadPicture(App.Path & ("\Images\hub3.JPEG"))
End If
End Sub 

It@li@

cs_ITALIA · Answer

et Aussi :

If Text1.Text = "ppp"

It@li@

Slyders · Answer

App.Path & "\Images\hub3.JPEG"
je sais pas si les parenthese sa l'arrange

mboudllal · Answer

j essay&#233; ca, ca bug plus m&#233; ca donne rien a l'execution. pe etre il fo mettre ce code dans  data ( fo peut etre tester sur les valeurs du champs d'un enregistrement !!! m&#233; j s&#233; pas faire ca !!

Private Sub Form_Load()

If Text1.Text = "ppp" Then
   Picture1.Picture = LoadPicture(Applicat.Path & "\Images\hub2.JPEG")
  End If


End Sub
S.O.S

cs_ITALIA · Answer

data ?? c'est koi

Chez moi ca fonctionne!

It@li@

mboudllal · Answer

data,: c'est le controle data qui permet de relier ta base de donn&#233;e avec ton interface graphique, il se trouve dans la boite a outils.

cs_ITALIA · Answer

J'ai jamais utilis&#233; de controle Data 

It@li@

Slyders · Answer

tu veu sur click de ton data pouvoir faire defiler tes image c sa ?

mboudllal · Answer

c'est tr&#233;s util en ce qui concerne la connexion a une base de donn&#233;es.

mboudllal · Answer

ouiiii sur la fleche "suivant" t'as tout compris SLYDERS

Slyders · Answer

Data.databasename = App.path & "tabase.mdb"
Data.recordsource = "Nomtable"
enfin quand tu clique sur l'objet tu peu tout param&#233;trer et sa marche bien.
++

Slyders · Answer

et si tu veu faire afficher tes resultat dans des textbox ta aussi des option fait pour quand tu te d&#233;place avec les fleches
text.datafield = "nomduchamp"
enfin c aussi param&#233;trable et c facil

Slyders · Answer

m&#234;me pour un picturebox ou les objet image il y a un datafield
....

Comment faire une simple Requete sql !!

71 réponses

Discussions similaires