requete sql en vb vers une BdD access Fermé

Question

Bonjour,

je suis débutante en vb, mon probleme est le suivant,
j'ai une base de donnees Access qui s'appelle "Base1.mdb" elle se trouve dans "C:\bourse"
et sur excel j'ai un userform en vb qui contient 4 textbox : "textbox1" à "textbox4" vide par defaut et j'ai un bouton exécuter auquel je veux associer une requte sql de type :
select textbox1, textbox2, textbox3 from table1 where textbox4 = '100'   par exemple 

pourrier-vous  svp m'aider a associer la requete au bouton (Bouton1)

merci

Polux31 · Answer

Bonjour,

Tu veux dire que tu veux importer les données de ta base de données pour les afficher dans les textbox ?

polux

Amandine · Answer

Bpnjour,

oui c'est ça polux; 
la reponse de ma requete est une ligne donc une variable par colonne et ces variables la que je veux recuperer et les mettre dans les textbox

Polux31 · Answer

re,
je regarde ça et je te donne la réponse demain, j'ai quelque chose la dessus

;o)
polux

Polux31 · Answer

Bonjour,

Voilà un exemple, à toi de changer les différents nom de champs

Sub importDonneesAccess()
    'Nécessite d 'activer les références: Outils -> Références...
    'Microsoft ActiveX Data Objects x.x Library
    'et
    'Microsoft ADO Ext. x.x for DDL and Security

    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim strSQL As String
     
    Set Db = DAO.OpenDatabase("C:\bourse\Base1.mdb", False, False)
    strSQL = "SELECT champ1, champ2, champ3, champ4</ita> FROM <ital>[Table1] _
                  WHERE champ4 = 100"
    Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
    
    UserForm1.TextBox1 = Rs.Fields("champ1")
    UserForm1.TextBox2 = Rs.Fields("champ2")
    UserForm1.TextBox3 = Rs.Fields("champ3")
    UserForm1.TextBox4 = Rs.Fields("champ4")
     
    Db.Close
End Sub

Bonne courage pour la suite

;o)

polux

Polux31 · Answer

As-tu bien fait ça :
    'Nécessite d 'activer les références: Outils -> Références...
    'Microsoft ActiveX Data Objects x.x Library
    'et
    'Microsoft ADO Ext. x.x for DDL and Security

Polux31 · Answer

de quel type est ISIN ? 
si c'est un numérique il faut faire :
ISIN = Clng(TxISINAction.Text)

Si c'est de l'apha il faut faire dans ta requête (il y avait aussi une erreur sur le nom d'une table):
strSQL = "select isin, nom_societe, secteur, site_web _ 
from T_SECTEURS, T_SOCIETES where T_SECTEURS.CODE_SECTEUR = T_SOCIETES.CODE_SECTEUR AND T_SOCIETES.ISIN = ' " & ISIN & " ' "

Les champs extrait sont-ils dans la même table ?
Vérifie également quel est le type de champ ISIN ...

;o)

polux

Polux31 · Answer

ok tant mieux alors :o))

Tu dois avoir en haut du topic le bouton pour mettre "résolu"

Amandine · Answer

le code ISIN il est de Type : FR0000031122

pour le case "resolu" je la trouve peut etre parce que je suis pas inscrite

Polux31 · Answer

Pas grave

Bonne continuation,

;o)

polux

Amandine · Answer

j'ai encore un tit probleme
si je rentre un code ISIN que j'ai deja dans ma base tout fonctionne bien mais si je rentre un code non existant ça bloque dans le code a la ligne 

USFRM.TxISINCours = Rs.Fields("ISIN")

Polux31 · Answer

ben oui, puisque ton recordset est vide ... il faut faire un test avant d'afficher, du genre :
If IsNull(Rs.Fields(0)) Then
    MsgBox "blablabla",vbexclamation,"Erreur base de données"
    Exit Sub
End if

;o)

polux

Amandine · Answer

salut
merci polux encore une fois pour ton aide

en fait j'ai integré ton code dans ce que j'avais avant mais ca marche pas 

voici le bout de code

        Set Db = DAO.OpenDatabase("C:\bourso\BdD_Actions.mdb", False, False)
        strSQL = "select isin, nom_societe, secteur, site_web from T_secteurs, T_societes where T_SECTEURS.CODE_SECTEUR = T_SOCIETES.CODE_SECTEUR AND T_SOCIETES.ISIN = '" & ISIN & "'"
        Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
        
        'verification que le code ISIN entré figure bien dans la base de donnée
        
        If IsNull(Rs.Fields(0)) Then
             msgbox "Code ISIN non valide", vbExclamation, "Erreur base de données"
         Exit Sub
        
        End If
        
        UFESCA1.TxISINCours = Rs.Fields("ISIN")
        UFESCA1.TxNomCours = Rs.Fields("NOM_SOCIETE")
        UFESCA1.TxSecteurCours = Rs.Fields("SECTEUR")
        UFESCA1.lbRsiteCours = Rs.Fields("SITE_WEB")
        

si je rentre un ISIN qui n'existe pas ça bloque dans la ligne

 UFESCA1.TxISINCours = Rs.Fields("ISIN")

Polux31 · Answer

re,

Essaies avec ça, je n'ai pas testé et je ne suis plus tout à fait sur de la syntaxe:

        UFESCA1.TxISINCours = Rs.Fields(0)
        UFESCA1.TxNomCours = Rs.Fields(1)
        UFESCA1.TxSecteurCours = Rs.Fields(2)
        UFESCA1.lbRsiteCours = Rs.Fields(3)

Amandine · Answer

ok je vais essayer (je ne l'ai pas encore fait :)  )

je te tiens au courant du résultat

merci encore un fois polux

Amandine · Answer

:'( ça marche pas :'O

Requete sql en vb vers une BdD access

15 réponses

Discussions similaires