Bonjour

J'effectue une requête qui ne fonctionne plus depuis que j'ai remplacé mes valeurs en dur par mes variables l et nom.
Je ne parviens pas à me corriger

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 
Sub Identification(ByVal lua As Variant, ByVal nom As Variant)
 
    'Déclaration des variables communes
    Dim cnx As ADODB.Connection
    Set cnx = New ADODB.Connection
 
    'Instanciation des variables de connexion
    Dim host As String
    host = "host"
 
    Dim dsn As String
    dsn = "dsn"
 
    Dim user As String
    user = "user"
 
    Dim password As String
    password = "toto"
 
    Dim bdd As String
    bdd = "mabdd"
 
    'Début de la connection
    'Définition de la chaîne de connexion
    cnx.ConnectionString = "DSN=" & dsn & ";UID=" & user & ";PWD=" & password & ";"
 
    'ouverture de la base de donnée
    cnx.Open
    MsgBox cnx.State
 
 
    'jeu d'enregistrements retournés lors de l'exécution d'un SELECT
    Dim result As ADODB.Recordset
    Set result = New ADODB.Recordset
 
    Dim sql As String
    sql = "SELECT nom,l FROM utilisateur WHERE L =" & CStr(l) & "And nom =" & CStr(nom) & ";"
 
    result.Open sql, cnx
 
    While Not (result.EOF)
        MsgBox result("nom") & " " & result("l") & "."
        rst.MoveNext
    Wend
 
    result.Close
    cnx.Close
 
End Sub