Discussion :

[peck]

Bonjour,

Je fais mes premiers pas sur Access et c'est assez laborieux.
Je voudrais me connecter à la base que je suis en train d'utiliser pour faire une simple requete de sélection.

j'essai ca

Function verifPhotos()
'Connection à la base de données
Set conn = CreateObject("ADODB.Connection")
conn = CurrentDb
'Requete de selection des produits
sql = "SELECT * FROM produit"
Set Rs = CreateObject("ADODB.Recordset")
Rs.Open sql conn
End Function

Mais ca me renvoi une erreur de syntaxe.
Quelqu'un pourrait m'aiguiller?

Merci d'avance,
Yannick

[Pierre Fauconnier]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    Dim cn As ADODB.Connection
    Set cn = CurrentProject.Connection

Ok?

[peck]

Toujours pas
Il me met en rouge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rs.Open sql conn

[zEndymion]

Slt,

il manque la virgule je pense, voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim StrSQL As String
 
Cnn.Open CurrentProject.Connection
 
StrSQL = "SELECT * FROM G_DATE_MAJ"
Rs.Open StrSQL, Cnn
 
Rs.Close: Set Rs = Nothing
Cnn.Close: Set Cnn = Nothing

[peck]

Merci ca marche