Pb de requête

Question

Bonjour,

J'essaye de remplir une table avec une requête mais j'ai toujours un problème dans mon INSERT INTO. Voilà mon code :

Dim db As Database
Dim Td As TableDef
Dim time5, temp5 As Field
Dim requete, table As String

'Ouvrir la base
Set db = OpenDatabase("C:\Documents and Settings\damien\Mes documents\Historique.mdb")

'Créer la table
table = Now
Set Td = db.CreateTableDef(table)

'Ajouter les champs à la table
Set time5 = Td.CreateField("Temps", dbInteger)
Set temp5 = Td.CreateField("Temperatures", dbSingle)

Td.Fields.Append time5
Td.Fields.Append temp5

'Remplir la table

For c = 0 To 100
    requete = "INSERT INTO  " & table & "  ( Temps, Temperatures ) Values (" & c & "," & d(c) & ")"
    db.Execute (requete)
Next c

'Ajouter la table à la base
db.TableDefs.Append Td

'Fermer la base de données
db.Close

Voilà si quelqu'un a une idée du problème...
Merci,

DAMIEN

Renfield · Answer

Ca aidera peut être...


........
For c = 0 To 100
requete = "INSERT INTO " & table & " ( Temps, Temperatures ) VALUES ('" & c & "','" & d(c) & "') ;"
db.Execute requete
Next c
........

cs_dam94 · Answer

Ce n'est malheureusement pas ça!
Ca fais au moins 15 trucs qu'on me propose mais en vain! Le problème persiste, c'est énervant !
Merci de ton aide !

DAMIEN

Renfield · Answer

Quelle est l'erreur, au fait ? (que dit VB ?)

cs_dam94 · Answer

C'étai une erreur de syntaxe mais j'ai réussi, il fallait :

requete = "INSERT INTO [" & table & "] ( Temps, Temperatures ) VALUES (" & c & "," & d(c) & ") ;"

Renfield · Answer

Exact... Now renvoie la date du jour, et comprends donc des espaces...

Pb de requête

5 réponses

Discussions similaires