Requete SQL d'insertion

Question

Bonjour,

je travaille avec ado sous VB pour acceder et entrer des données dans une base de donnée Access et la requète SQL que je veux lui faire executer a visiblement un problème.

Est ce que quelqu'un pourrait m'aider à trouver mon erreur car je la vois pas :

objCommand.CommandText = "INSERT INTO [Table1]([Champ1], [Champ2]) " & _
            "VALUES ('%" & ActiveSheet.Cells(i, j).Value & "%','%" & ActiveSheet.Cells(i, j + 1).Value & "%')"

objCommand.Execute RecordAffected:=lRecordsAffected, Options:=adCmdText Or adExecuteNoRecords 

Merci pour les réponses,

Neimad58

jrivet · Answer

Salut,

De quel type sont tes deux champs dans la Table1?
Pourquoi entourer les champs avec %

Essaie peu etre 

objCommand.CommandText = "INSERT INTO Table1 (Champ1,Champ2) " & _
            "VALUES ('%" & ActiveSheet.Cells(i, j).Value & "%','%" & ActiveSheet.Cells(i, j + 1).Value & "%')"

@+, Julien

cs_neimad58 · Answer

Merci pour ta réponse

Effectivement j'avais oublié d'oter les % qui ne servent à rien ici 

Pour ce qui est des crochet c est pour rendre le fait que je met le nom de la table et le nom des champs mais il ne s'agit pas des noms véritables

objCommand.CommandText = "INSERT INTO Fonds (Code,Nom) " & _
            "VALUES ('" & ActiveSheet.Cells(i, j).Value & "','" & ActiveSheet.Cells(i, j + 1).Value & "')"

Voici ma commande actualisée. Mais elle n'est toujours pas acceptée, il me donne encore l'erreur :

Erreur de syntaxe dans l'instruction INSERT INTO

Neimad58

cs_neimad58 · Answer

Les champs sont de type Text au fait

Neimad58

jrivet · Answer

Re,


As tu essayer d'executer directement cette requete depuis ACCESS avec l'editeur SQL (si je me souviens bien il y en a un)


Peu etre que ACCESS te donnera plus d'info.










@+, Julien
Pensez:

nelalami · Answer

essaye ca  ! normalement  il doit  marcher 

objCommand.CommandText = "INSERT INTO [Table1]([Champ1], [Champ2])  VALUES ('" & ActiveSheet.Cells(i, j).Value & "','" & ActiveSheet.Cells(i, j + 1).Value & "')"

Nourddine

cs_neimad58 · Answer

Ca ne marche toujours pas mais je viens de comprendre quelquechose.

En fait, ma requete marche si je l'applique uniquement à mes deux champs que j'ai défini comme clé principale de ma table.

Dés que je la fais sur les champs défini comme clé principale, et un autre champ, ca ne marche plus.

Du coup j'utilise l'instruction UPDATE :

    objCommand1.CommandText = "UPDATE Fonds SET Date_Lancement='" & ActiveSheet.Cells(i, j + 6).Value & "'" & _
        "AND Pseudo=ActiveSheet.Cells(i, j + 6).Value & "'" & _
        "WHERE [Code] = '" & ActiveSheet.Cells(i, j + 9).Value & "'"

La la commande est accepté mais ne modifie pas les données dans la base.
Par contre avec un seul champ à modifier ca marche.
Je peux donc le faire pour chaque champs mais bon j'en ai quand même 40 des champs donc si vous connaissez un moyen pour que ca marche (peut etre que le AND n'est pas approprié je sais pas) ca serait gentil de me le dire :)

Merci pour les réponses

cs_safoua · Answer

salut tout le monde
 à un boutton nouveau j'ai associé ce  code:
If Datacd.Recordset.EOF Then
Datacd.Recordset.MovePrevious
GoTo b
 ElseIf Datacd.Recordset.BOF Then
 
 Datacd.Recordset.MoveNext
 GoTo b
 
 End If
 
b:




cd1.Text = " "
cd2.Text = " "
cd3.Text = " "
cd4.Text = " "

puis au boutton  enregistrer j'ai associé ce code :


 


On Error GoTo k

Datacd.Recordset.Fields("Titre") = Form6.cd1.Text
Datacd.Recordset.Fields("Nature du contenue") = Form6.cd2.Text
Datacd.Recordset.Fields("Code analytique") = Form6.cd3.Text
Datacd.Recordset.Fields("Thème") = Form6.cd4.Text


Datacd.Recordset.Update


k:
End Sub


le problème c que quand j'ajoute un nouveau enregistrement un autre est écrasé
et parfois il ya un enregistrement  répétée 2 ou 3 fois.

svp aidez moi
merci!

valliame · Answer

COMMENT FAIRE POUR FAIRE AFFICHER UNE EXECUTION DE REQUETE DANS UNE LISTBOX

Requete SQL d'insertion

8 réponses

Votre réponse

Discussions similaires