Discussion :

[quatar]

Bonjour,
j'ai fait un tour du forum pour avoir un réponse. Je cherche à exécuter des requete sql avec du code VBA sous access 2003
si j'ai bien compris un code possible serais

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim db As Database
Dim sql As String
 
Set db = CurrentDb
 
sql = "SELECT [Importation JB].Numéro FROM [Importation JB] WHERE ((([Importation JB].Numéro)=1));"
 
DoCmd.RunSQL sql

pourtant j'ai un message d'erreur comme quoi l'instruction runsql nécessite un argument consistant à une requete sql.
la requete doit etre juste vu qu'elle a été créée à partir d'une requete Access classique
Je suis un peu voir beaucoup perdu que dois je faire. Ya t il une histoire de complément de référence,...
Merci

[Tofalu]

RunSQL ne s'applique pas aux requêtes de sélection, interresse toi aux recordsets

[NOODLE02]

Voici qui devrai résoudre ton problème

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
Sub SQLTEST()
  Dim strg_rsql As String      ' string de la requête SQL
  Dim dbas As Database       ' déclaration de l'objet database
  Dim recs As Recordset       ' déclaration de l'objet recordset
 
  Set dbas = CurrentDb        ' affectation de l'objet database à la db courante
 
  strg_rsql = "SELECT * FROM table1"  
 
  Set recs = dbas.OpenRecordset(strg_rsql)  'ouverture du recordset
  If Not recs.EOF Then          ' vérification que le recordset n'est pas vide
    recs.MoveFirst                 ' positionnement au début du recordset
    While Not recs_eof           ' tant que pas dernier record
 
' ici le code qui doit exploiter le recordset courant
 
      recs.MoveNext               ' lire le record suivant
    Wend
  End If
 
  Set recs = Nothing             ' supprimer l'objet recordset
  Set dbas = Nothing            ' supprimer l'objet database
End Sub

la commande DoCmd.RunSql est plutôt indiquée pour des requête d'ajout, de modification ou de suppression d'enregistrement