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 ??
Merci pour votre aide
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
Partager