[vba access] Pb d'execution requête SQL (requête simple)

**mike2302** · 28/06/2007, 10h39

Bonjour amis developpeurs!

J'ai fais un code vba qui me permet de faire une requête trés simple.

Cette requête consiste à prendre 2 champs d'une table et les insérer dans une nouvelle table.

J'ai ce code-ci mais access me trouve une erreur...Peut-être saurai-vous m'aiguiller?
Voici mon code :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Commande26_Click()
Dim sSQL As String
Dim db As DAO.Database
Dim myrst As DAO.Recordset

'tu definis quelle est la BD étudiée, c'est celle qui est courante..
Set db = CurrentDb

'nom de ta table
maTable = "2004_airbus_Usage_01"
monAutreTable = "SIGLUM VIDE"

'creation de la table
DoCmd.RunSQL "CREATE TABLE [SIGLUM VIDE] (HostEmail String, Sigle String);"

'requete sql (le order by, tu 'nes pas obligé, c'est juste pr trier
sSQL = "SELECT HostEmail,Sigle from " & maTable & " ORDER BY HostEmail "

'tu definis ton recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(sSQL)

'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF

'recuperation des valeurs pour tes 2 champs
sHostEmail = myrst.Fields("HostEmail").Value
sSigle = myrst.Fields("Sigle").Value

'sFunction = myrst.Fields("SEG_function").Value

'requete d'insertion
sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( '" & sHostEmail & "' , '" & sSigle & "' )"

'tu envoies l'execution de la requête insert

dbBase.Execute sSQLInsert, dbFailOnError

'tu passes a l'enregistrement suivant
myrst.MoveNext

Loop
End If


' tu fermes/vides tout
myrst.Close
Set myrst = Nothing
db.Close

End Sub

L'erreur se passe lors de l'execution de la requête, pourtant la requête est bonne et sans erreur.

Voici le message d'erreur (cf doc joint)

Pouvez-vous m'aider s'il vous plait?

**daplomb** · 28/06/2007, 11h00

Qu'as-tu dans sHostEmail et sSigle ? Si tu as une cote, ça change complètement ta requete SQL. Essaie ceci :

Code :

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

sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( "& Chr(34) & sHostEmail & Chr(34) & " , " & Chr(34) & sSigle & Chr(34) & " )"

**jean-paul lepetit** · 28/06/2007, 11h02

Salut,
ton erreur est bien sur ta ligne RunSql

Code :

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

dbBase.Execute sSQLInsert, dbFailOnError

dbBase n'est pas défini, c'est db

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Commande26_Click()
Dim sSQL As String
Dim db As DAO.Database
Dim myrst As DAO.Recordset

'tu definis quelle est la BD étudiée, c'est celle qui est courante..
Set db = CurrentDb

'nom de ta table
maTable = "2004_airbus_Usage_01"
monAutreTable = "SIGLUM VIDE"

'creation de la table
DoCmd.RunSQL "CREATE TABLE [SIGLUM VIDE] (HostEmail String, Sigle String);"

'requete sql (le order by, tu 'nes pas obligé, c'est juste pr trier
sSQL = "SELECT HostEmail,Sigle from " & maTable & " ORDER BY HostEmail "

'tu definis ton recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(sSQL)

'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF

'recuperation des valeurs pour tes 2 champs
sHostEmail = myrst.Fields("HostEmail").Value
sSigle = myrst.Fields("Sigle").Value

'sFunction = myrst.Fields("SEG_function").Value

'requete d'insertion
sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( '" & sHostEmail & "' , '" & sSigle & "' )"

'tu envoies l'execution de la requête insert

db.Execute sSQLInsert, dbFailOnError

'tu passes a l'enregistrement suivant
myrst.MoveNext

Loop
End If


' tu fermes/vides tout
myrst.Close
Set myrst = Nothing
db.Close

End Sub

**mike2302** · 28/06/2007, 11h08

Merci de vos reponses rapides!!!

Envoyé par daplomb

Qu'as-tu dans sHostEmail et sSigle ? Si tu as une cote, ça change complètement ta requete SQL. Essaie ceci :

Code :

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

sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( "& Chr(34) & sHostEmail & Chr(34) & " , " & Chr(34) & sSigle & Chr(34) & " )"

ok il me semble avoir déjà essayé avec le chr(34) mais je vais retenter quant a jean paul lepetit, je crois pas que mon erreur viens du dbBase qui n'est pas défini car j'ai remplacé "dbBase.Execute sSQLInsert, dbFailOnError" par un DoCmd.RunSQL et cela marcher toujours pas.

Je vais essayer vos propositions et je vous tiens au courant rapidement

merci de vos reponses!!

**mike2302** · 28/06/2007, 11h18

voici mon code aprés quelques modifications:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub Commande26_Click()
Dim sSQL As String
Dim db As DAO.Database
Dim myrst As DAO.Recordset

'tu definis quelle est la BD étudiée, c'est celle qui est courante..
Set db = CurrentDb

'nom de ta table
maTable = "2004_airbus_Usage_01"
monAutreTable = "SIGLUM VIDE"

'creation de la table
DoCmd.RunSQL "CREATE TABLE [SIGLUM VIDE] (HostEmail String, Sigle String);"

'requete sql (le order by, tu 'nes pas obligé, c'est juste pr trier
sSQL = "SELECT HostEmail,Sigle from " & maTable & " ORDER BY HostEmail "

'tu definis ton recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(sSQL)

'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF

'recuperation des valeurs pour tes 2 champs
sHostEmail = myrst.Fields("HostEmail").Value
sSigle = myrst.Fields("Sigle").Value

'sFunction = myrst.Fields("SEG_function").Value

'requete d'insertion
sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( " & Chr(34) & sHostEmail & Chr(34) & " , " & Chr(34) & sSigle & Chr(34) & " )"

'tu envoies l'execution de la requête insert

DoCmd.RunSQL sSQLInsert


'tu passes a l'enregistrement suivant
myrst.MoveNext

Loop
End If


' tu fermes/vides tout
myrst.Close
Set myrst = Nothing
db.Close

End Sub

Toujours la même erreur , au même endroit avec le même message d'erreur....

J'ai suivi vos 2 conseils mais cela marche toujours pas...
A moins qu'il y ait un problème au niveau de la requête en elle-même mais je suis sûr qu'elle est bonne...

Peut-être existe-t'il un code similaire qui permet l'exécution d'une requête mais à la syntaxe différente de celui-ci?

**daplomb** · 28/06/2007, 11h40

J’ai encore 2 petites idées :
- SHostEmail ou sSigle est déclaré numérique en base et donc il ne faut ni ‘ ni Chr(34)
- la virgule après [Sigle] est en trop

**jean-paul lepetit** · 28/06/2007, 11h45

Je viens de vérifier, c'est bien ce que dit daplomb

Envoyé par daplomb

la virgule après [Sigle] est en trop

**mike2302** · 28/06/2007, 11h59

ah genial c'est nikel sa marche merci à vous!!

Je profite de votre connaissance approfondie en vb pour vous demander si il est possible que lorsque j' executer cette même requête en changeant simplement le nom de ma table (ici "2004_airbus_Usage_01") les champs hostemail et sigles de la table "SIGLUM VIDE" puisse se remplacer par les nouvelles valeurs de ma nouvelle table?

Car lorsque j'execute une 2eme fois cette même requête, il y a la fenetre d'erreur "table SIGLUM already exist".

**daplomb** · 28/06/2007, 14h56

Je ne comprend pas bien ta question.
- Si tu exécutes une 2me fois ton code c’est évident que tu va avoir un Pb sur le «CREATE TABLE [SIGLUM VIDE]»
- Si tu veux optimiser ton code pour faire la même chose sur une autre table, tu peux faire qque chose de ce genre :

Code :

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

1
2
3
4
5
6
7
8
if {condition} then
     LaTable = maTable 
Else LaTable = monAutreTable
End if
…
‘ creation de la table
DoCmd.RunSQL "CREATE TABLE [“ & LaTable & “] (HostEmail String, Sigle String)"
…

**mike2302** · 28/06/2007, 14h58

Si tu veu j'aimerai que lorsque j'execute une 2eme fois le code , les valeurs precedente soient remplacé par les nouvelles valeurs.

Je ne veux pas creer une nouvelle table mais rester sur la même table.

Le but est de copier les nouvelles valeurs par dessus les anciennes.

Tu comprend?

[vba access] Pb d'execution requête SQL (requête simple)

VBA Access

Discussions similaires

Partager

Partager