Discussion :

[danielpfi]

Bonjour à tous,

Je réalise une macro VBA excel avec des requêtes SQL
je souhaiterai vérifier la présence d'une données dans la colonne d'une table, si elle est existante je souhaiterai avec un retour "VRAI" et le cas contraire "FAUX" en VBA.

Ci-dessous une partie de ma macro (elle fonctionne)

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
Private Sub ConnectionDBB() 'Connexion à la BASE DE DONNEES
 
    Set Cnx = CreateObject("ADODB.Connection")
    With Cnx
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={SQL Server};Server=name;" & _
            "Database=xxxxxx ;Uid=xxx;Pwd=xxxxxxx;"
        .Open
    End With
 
Set recset = CreateObject("ADODB.Recordset")
 
 
    Requete = XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 
    recset.Open Requete, Cnx, 3 ' adOpenStatic
 
    Cnx.Close
    Set Cnx = Nothing
    Set recset = Nothing
 
 
End Sub

Merci pour vos retours

[Zekraoui_Jakani]

De quelle donnée s'agit-il, de quel type (char, num, alphanum, ...), quelle colonne, quelle table (XL, Access, autre, ...)?

[Thumb down]

Bonjour,

je subodore que ta connexion est bonne!

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
Sub test()
MsgBox Trouver("toto")
End Sub
Function Trouver(v) As Boolean
With CreateObject("ADODB.Connection")
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={SQL Server};Server=name;" & _
    "Database=xxxxxx ;Uid=xxx;Pwd=xxxxxxx;"
    .Open
    Dim Sql As String
    Sql = "select * from MyTable Where MyChamp='" & v & "'"
    With .Execute(Sql)
        Trouver = Not .EOF
        .Close
    End With
    .Close
End With
End Function