Discussion :

[petitsims]

Bonjour à vous,
Voilà, j'ai créé une requete paramètrable, et je voudrai pouvoir l'utiliser au travers de mon appli access.
Pour faire cela, je me suis référé à un tutorial et voilà ce que j'ai fais (copié :p)

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
 
Private Sub Texte0_GotFocus()
'Déclaration des variables
Dim cnx As ADODB.Connection
Dim cmd As ADODB.Command
Dim prm1 As ADODB.Parameter
Dim rst As ADODB.Recordset
 
'Instanciation des variables
Set cnx = New ADODB.Connection
Set cmd = New ADODB.Command
Set prm1 = New ADODB.Parameter
Set rst = New ADODB.Recordset
 
'Connexion à la base de données
#########MON PB
cnx.ConnectionString = "Provider=" & PiloteDaccesAlaBaseDeDonnées & ";DSN=" & NomDuDSN & ";UID=" & NomUtilisateur & ";PWD=" & MotDePasse & ";"
'cnx.Open
 
'Préparation de l'objet Command
cmd.CommandText = "SELECT * FROM r_search WHERE lib_mois = ?"
 
'Préparation du paramètre
prm1.Name = "unmois" 'Nom du champ correspondant
prm1.Type = adVarChar 'Type du champ
prm1.Direction = adParamInput 'Type de paramètre : Entrée, Sortie, Entrée/Sortie
prm1.Size = 40 'Taille maximale du champ
prm1.Value = "Mars" 'Valeur du paramètre
 
'Exécution de la requête
Set rst = cmd.Execute
End Sub

Mon pb se pose lors de la création de la connection, je ne sais pas comment faire pour dire que c'est qur la base où je suis actuellement.
Auriez vous une solution?

Merci d'avance

[=JBO=]

Bonjour,

Code :

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

1
2
'Instanciation des variables
Set cnx = CurrentProject.Connection

...et bonsoir.

[jab]

Je ne suis pas un grand spécialiste Access mais pourquoi ne pas utiliser quelque chose comme

Code :

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

1
2
3
4
5
 
Sub t()
Dim rs As Recordset
Set rs = CurrentDb().OpenRecordset("Select * from maTable")
End Sub