Bonjour à tous,

Je débute dans la base de données, les instructions SQL etc...

Mon but : récupérer et afficher dans un label la valeur du champ BECTPREMSP de la table BESOIN où le champ BEKNRANG=44428...

Voici mon code, la connexion à l'air de fonctionner, l'instruction de commande SQL à l'air également, je n'ai pas d'erreur...
Mais ensuite je ne sais pas comment affecter par exemple à un label la valeur trouvée dans ma base de données ??


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Dim Cn As ADODB.Connection
        Dim Cm As ADODB.Command
        Dim Rs As ADODB.Recordset
 
        Cn = New ADODB.Connection
        Cn.Open("DRIVER=Firebird/InterBase(r) driver;SERVER=\\srv-adfiles;DATABASE=\\srv-adfiles\C:\Program Files\Firebird2\bin\pmi.fdb;UID=GTI;PWD=GTI")
        Cm = New ADODB.Command
        With Cm
            .ActiveConnection = Cn
            .CommandText = "SELECT BECTPREMSP FROM BESOIN WHERE BEKNRANG=44428;"
            Rs = .Execute
 
        End With
Merci pour votre aide