begin process at 2008 07 07 03:08:46
1 205 881 membres
32 nouveaux aujourd'hui
14 120 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : [VBA/SQL]Selectioner un valeur d'une table [ Base de données / SQL ] (abuzed)

[VBA/SQL]Selectioner un valeur d'une table le 21/11/2007 08:11:58

abuzed
Bonjour,

J'ai une requet SQL qui compte une 20aines d'enregistrement dans une table Access, une seul de ses informtions m'interesse par la suite.

Je voudrais récupèrer une valeur et l'inscrir dans une variable.

Voiçi mon code:

Dim RS As New ADODB.Recordset

        Dim recherche As String
        Dim Variable As String

recherche = "Select Nom_De_La_Colone From Nom_De_La_Table"
        Set RS = CurrentDb.OpenRecordset(recherche, dbOpenTable)
        Variable = RS.Fields(recherche).Value
        RS.Close

Merci de votre aide

Re : [VBA/SQL]Selectioner un valeur d'une table le 21/11/2007 09:47:10

abuzed
Petite précision, je voudrais en faite rechercher la valeur ID (numéro auto) juste après le call de ma fonction SQL.

Merci

Re : [VBA/SQL]Selectioner un valeur d'une table le 28/11/2007 17:40:51

pynuch88
Pouquoi tu ne met pas ton filtre dans la clause where de ta requete ???

Re : [VBA/SQL]Selectioner un valeur d'une table le 28/11/2007 18:20:53

abuzed
Car ma requete SQL ne fais que d'ajouter la valeur d'un attribut d'après un noeud d'un flux XML

Re : [VBA/SQL]Selectioner un valeur d'une table le 29/11/2007 08:50:55

abuzed
Voici un exemple pour être plus preci:

SQL = " Insert InTo MyTable(Primary, Secondary)" & _
            " values ('" & first_noeud.Attributes.getNamedItem("attribut1").Text & "' " & _
            ", '" & second_noeud.Attributes.getNamedItem("attribut2").Text & "' ) "

        Call CurrentDb.Execute(SQL)

Par contre ma table à 3 colones, la première est un numéro auto est je veux le récupèrer pour l'inserer dans une autre requete insert pour faire la liaison entre les deux tables.

Merci

Re : [VBA/SQL]Selectioner un valeur d'une table le 30/11/2007 11:08:20

abuzed
Je me suis répondu moi-même, je mets le code, sa peux servir pour un prochain ;)
    
Dim sqlid As String
Dim rs As ADODB.Recordset
Dim id As String
Dim lastid As String

        conn.Open
        sqlid = "Select MAX(MON_ID) As lastid From TABLE"
        Set rs = New ADODB.Recordset
        rs.Open sqlid, conn, adOpenStatic, adLockReadOnly
        id = rs!lastid
        rs.Close
        Set rs = Nothing
        conn.Close

msgbox(id)


Classé sous : table, variable, sql, valeur, rs

Participer à cet échange

Pub



Appels d'offres

Realisation graphique ...
Budget : 700€
WEB DESIGN
Budget : 1 000€
Plugin Dialer outlook
Budget : 2 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS