Requête SQL, "executersql necessite un argument "

Version imprimable

Bonjour à tous,

J'ai utilisé la fonction recherche en vain ....

Je réalise une requête SQL des plus simples .... Et j'ai une erreur, j'avou ne pas comprendre.

J'ai beau lire et re-lire ma requête je n'y vois pas d'erreur.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Option Compare Database Private Sub cmd_ok_Click() Dim var1 As String var1 = [Form_F_account]![n_compte] MsgBox var1 DoCmd.RunSQL ("SELECT [FAC_Interface].Accoount, FAC_Magnitude.ACCDesignationF " _ & "FROM [FAC_Interface], [FAC_Magnitude] " _ & "WHERE [FAC_Interface].Compte_Magnitude = FAC_Magnitude.ACC " _ & "AND ((([FAC_Interface].Accoount) LIKE '%" & var1 & "%'));") End Sub
Et j'ai l'erreur suivante :
" Une action ExécuterSQL nécessite un argument consistant en une instruction SQL"

Merci d'avance ....

Cordialement,

01/10/2010, 11h44
Kloun

* Bonjour *

F1 sur RunSQL :

Citation:

instructionSQL Variant requis. Expression chaîne qui correspond à une instruction SQL valide pour une requête action ou une requête définition des données. Elle utilise une instruction INSERT INTO, DELETE, SELECT...INTO, UPDATE, CREATE TABLE, ALTER TABLE, DROP TABLE, CREATE INDEX ou DROP INDEX. Insérez une clause IN pour accéder à une autre base de données.

Bref, c'est pas comme ça qu'il faut faire pour récupérer les données d'un select.

Bonjour,

La commande DoCmd.RunSql ne fonctionne que pour les INSERT, DELETE et UPDATE.

Pour le SELECT, il faut procéder comme suit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim db As database
Dim sql As String
Dim rs AS Recordset
 
Set db = Application.CurrentDb
      sql = "SELECT [FAC_Interface].Accoount, FAC_Magnitude.ACCDesignationF " _
            & "FROM [FAC_Interface], [FAC_Magnitude] " _
            & "WHERE [FAC_Interface].Compte_Magnitude = FAC_Magnitude.ACC " _
            & "AND ((([FAC_Interface].Accoount) LIKE '%" & var1 & "%'));"
 
    Set rs = db.OpenRecordset(sql, dbOpenForwardOnly, dbReadOnly)
 
Do While Not rs.EOF
      'retrourne le 1er champ
        rs.Fields(0)
      'retrourne le 2ème champ
        rs.Fields(1)
        rs.MoveNext
Loop

01/10/2010, 12h08
DUCKY_

Citation:

Envoyé par Kloun

F1 sur RunSQL :

Bref, c'est pas comme ça qu'il faut faire pour récupérer les données d'un select.

J'ai utilisé la fonction F1 et je me suis dit que les " ... " étaient une erreur.

Merci pour ta réponse Merryvor !

Je vais regarder ça de ce pas !

Cordialement,
01/10/2010, 12h27
Jean-Philippe André

salut,

attention merryvor, il manque l'attribution a ta variable RS :calim2:

En effet, son script ne fonctionnait pas

J'ai procédé de la manière qui suit :

Code:

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
Dim taBdd As Database
Dim strSQL As String
Dim rst As DAO.Recordset
Dim monTableau() As String
Dim i As Integer
 
 
strSQL = "SELECT [FAC_Interface].Accoount, FAC_Magnitude.ACCDesignationF " _
            & "FROM [FAC_Interface], [FAC_Magnitude] " _
            & "WHERE [FAC_Interface].Compte_Magnitude = FAC_Magnitude.ACC " _
            & "AND ((([FAC_Interface].Accoount) LIKE '%" & var1 & "%'));"
Set Db = Application.CurrentDb
 
Set rst = Db.OpenRecordset(strSQL)
 
 
i = 0
ReDim monTableau(rst.RecordCount, 2)
 
Do While Not rst.EOF
         monTableau(i, 1) = rst.Fields("[FAC_Interface].Accoount")
        monTableau(i, 2) = rst.Fields("FAC_Magnitude.ACCDesignationF")
          rst.MoveNext
         i = i + 1
Loop

Je cherche maintenant à avoir une table qui soit le reflet de mon recordset.

Cordialement,