Problème de récup de données sqlRésolu

Question

Bonjour, je travaille sous access et j'ai un petit soucis que je vais vous r&#233;sumer.
Voil&#224;, je cherche &#224; r&#233;cup&#233;rer une valeur sur ouverture de mon formulaire gr&#226;ce &#224; une requ&#234;te sql, car la valeur en question ne fait pas parti de la table.
Donc, sur activation du formulaire, je fais : 

Private Sub Form_Current()
Dim sql As String


sql "SELECT titre FROM resp WHERE nom" & Me.Nom_contact & ""
Me.titre = sql
End Sub

Valeur du formulaire
Endoit o&#249; je veux ins&#233;rer la valeur

Et l&#224;, dans mon &#233;tiquette "titre", j'ai comme r&#233;sultat : 
SELECT titre FROM resp WHERE nom = Mathieu

Si quelqu'un pouvait m'aider, merci d'avance.

bidule2409 · Accepted Answer

Bon ben j'ai simplifi&#233; le truc, j'ai remplac&#233; la zone de texte par une zone de liste, et saisi le code suivant, et ma valeur s'affiche correctement : 

Private Sub Form_Load()
Me.titre.RowSource = "Select Genre from RESPONSABLES where RESPONSABLES!NOM_prenom like '*" & Me.Nom_du_contact & "*' ;"
Me.titre.Requery
End Sub

Merci &#224; tout ceux qui m'ont aid&#233;.
Cordialement,

cs_lim · Answer

Salut

c'est normal il faut que tu execute ta requete

l&#224; tu lui dit dans sql = "Une Requete SQL"

ensuite tu affecte me.titre = sql donc dans titre tu retrouve ce que tu as mis dans ta variable.

en access je ne sais pas comment &#231;&#224; s'&#233;crit mais le principe est l&#224;

sql="Ma requete SQL"
'Appeler une fonction d'execution de la requete
result=SQLExecute(sql)
'Dans result j'ai re resultat de ma requete

'affichage du resultat
me.titre=result

Essaye de voir dans le forum il ya des tas de questions concernant les requetes sql
Va voir aussi dans l'aide d'access je pense que tu pourras trouver tes r&#233;ponses

@+
LIM

omsylv · Answer

Voil&#224; un code pour ex&#233;cuter une requ&#234;te sql



Private Sub Form_Current()



    Dim ct As ADODB.Connection

    Dim rc As ADODB.Recordset

    Dim sqlrequete As New Command



    Dim requete as String

    requete = "ce que tu veux ;"



    Dim val As String



        'initialisation de la base de donn&#233;es

        Set ct = New ADODB.Connection

        With ct

            .Provider = "Microsoft.Jet.oledb.4.0"

            .ConnectionString = "nomdetabase.mdb"

            .Open

        End With

        

        'r&#233;cup&#233;ration de la valeur

        Set rc = New ADODB.Recordset

        rc.Open "requete"

        val = rc(0) ' ici tu r&#233;cup&#232;res la premi&#232;re valeur, ce qui est ton cas si j'ai bien compris

        rc.Close



Et apr&#232;s tu n'as plus qu'&#224; faire Me.titre = val

Si il y a un probl&#232;me &#224; la connexion essaye de mettre le chemin d'acc&#232;s complet dans ConnectionString



Voil&#224;, dis nous si &#231;a marche bien !

omsylv · Answer

Petit erratum, un Dim sqlrequete inutile c'est gliss&#233; dans mon post

bidule2409 · Answer

Il me met une erreur : 
Erreur d'ex&#233;cution '3706'
ADO n'a pas pu trouv&#233; le fournisseur sp&#233;cifi&#233;.
J'aurai peut-&#234;tre d&#251; pr&#233;ciser que mon entreprise est toujours sous Access 97.
Ce serait peut-&#234;tre donc d&#251; &#224; Microsoft.Jet.oledb.4.0 ????

cs_CanisLupus · Answer

Salut,
pour access 97 : Microsoft.Jet.oledb.3.51

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

bidule2409 · Answer

Ben, il me met toujours la m&#234;me erreur, m&#234;me en changeant le Microsoft.Jet.3.51 !!!!

omsylv · Answer

est ce que tu as bien la r&#233;f&#233;rence OLE automation d'activ&#233;e ? sinon
peux tu me lister tes r&#233;f&#233;rences coch&#233;es, je comparerai avec les miennes.

bidule2409 · Answer

Oui, je l'ai s&#233;lectionn&#233;.
Voil&#224; mes r&#233;f&#233;rences coch&#233;es : 
Visual Basic for Applications
Microsoft Access 8.0 Object Library
Microsoft Excel 8.0 Object Library
Microsoft Word 8.0 Object Library
Microsoft ADO Ext. 2.1 for DDL ans Security
Microsoft ActiveX data Objects 2.1 Library
Microsoft Jet and Replication Objects 2.1 Library
Microsoft OLE DB Service Component 1.0 Type Library
OLE Automation
Biblioth&#232;que d'objet Microsoft Active Messaging 1.1
Microsoft DAO 3.5 Object Library

Problème de récup de données sql

9 réponses

Discussions similaires