Problème de requête d'insertionRésolu

Question

Hello hello,

Voila, j'ai cr&#233;&#233; un projet et je voudrais ins&#233;rer desdonn&#233;es dans ma base de donn&#233;e. Je cr&#233;&#233;une requet eINSERT, mais apres verification de ma requete, j'ai une erreur de type :

Erreur d'execution 3219 :
Operation non valide.

Voila mon code source, si quelqu'un peut me dire la ou est l'erreur et si il y  un pb d'&#233;criture :

' D&#233;finition base de donn&#233;e
    Set db = OpenDatabase("L:\BTS\PTI\VB\FNCI\fnci.mdb")
    ' requete
        Set Donnee = db.OpenRecordset("SELECT max(num_fnci) AS max from fnci")
        ' si il y a des resultats
            If Donnee.RecordCount <> 0 Then
                ' on donne a la variable le numero de fnci trouv&#233;e et on incremente
                 Newnum = Donnee("max") + 1
            End If
        Set Donnee = db.OpenRecordset("INSERT INTO FNCI VALUES (" & Newnum & ",#" & dateS & "#, '" & description.Text & "','" & cause.Text & "', '" & nom_prenom.Text & "'," & ai & "," & af & ");")
        ' on libere les ressources
            Set db = Nothing
            Set Donnee = Nothing

Merci

Slyders · Accepted Answer

nan faut se placer sur el champ a modifier et faire  un .edit
et ensuite .update

tof008 · Answer

essaie en mettant le nom de tes champs avant les variables 
Set Donnee = db.OpenRecordset("INSERT INTO FNCI (num, date, description, cause, nom_prenom, ai, af) VALUES  (" & Newnum & ",#" & dateS & "#, '" & description.Text & "','" & cause.Text & "', '" & nom_prenom.Text & "'," & ai & "," & af & ");")

good luck

cs_ITALIA · Answer

Donc ta Table FNCI &#224; pour type de Champ :
   -Entier
   -Date
   -Texte
   -Texte
   -Texte
   -Entier
   -Entier

It@li@

cs_ITALIA · Answer

Qu'elle est ta cl&#233; primaire ??

It@li@

cs_drahcir · Answer

Salut,

dans ta requ&#234;te : 
"INSERT INTO FNCI VALUES (" & Newnum & ",#" & dateS & "#, '" & description.Text & "','" & cause.Text & "', '" & nom_prenom.Text & "'," & ai & "," & af & ");"

il me semble que tes virgules ne sont pas toujours encadr&#233;es par des ' : nom_prenom.Text & "'," . 
C'est juste une id&#233;e, on ne sait jamais, parfois (souvent en ce qui me concerne ) on cherche longtemps &#224; cause de petits trucs comme &#231;a.

@+

cs_ITALIA · Answer

Personnellemnt je n'utilise jamais cette Mathode d' INSERT mais :

D&#233;finition base de donn&#233;e
Set db = OpenDatabase("L:\BTS\PTI\VB\FNCI\fnci.mdb")
Set Donnee = db.OpenRecordset("SELECT max(num_fnci) AS max from fnci")
If Donnee.RecordCount <> 0 Then
   Newnum = Donnee("max") + 1
End If
Set Donnee = db.OpenRecordset("SELECT * FROM FNCI")
Donnee.AddNew
Donnee("num")=num.text
Donnee("date")=date.text
Donnee("description")=description.text
Donnee("cause")=cause.text
Donnee("nom_prenom")=nom_prenom.text
Donnee("ai")=ai.text
Donnee("af")=af.text
Donnee.UpDate
Set db = Nothing
Set Donnee = Nothing

It@li@

bjipowa · Answer

Oki merci tout le moe ! J'ai d&#233;ja essay&#233; en mettant les donn&#233;es de ma table FNCI...

Voila structure de ma table FNCI :

Num_FNCI             -------> Cle primaire (numeric)
Date_creation          -------> Date
Description_fnci       -------> Texte (m&#233;mo dans acess)
Cause_fnci               -------> Texte (m&#233;mo dans acess)
Nom                        -------> Texte
Num_ai #                 -------> Numeric (en relation avec une autre table AI)
Num_af #                 -------> Numeric (en relation avec une autre table AF)

Apres verification, il n'y avait pas d'erruer dans ma requete donc je vais tenter la m&#233;thode d'Italia et je verrai si cela fonctionne :)

bjipowa · Answer

Oki merci tout le moe ! J'ai d&#233;ja essay&#233; en mettant les donn&#233;es de ma table FNCI...

Voila structure de ma table FNCI :

Num_FNCI             -------> Cle primaire (numeric)
Date_creation          -------> Date
Description_fnci       -------> Texte (m&#233;mo dans acess)
Cause_fnci               -------> Texte (m&#233;mo dans acess)
Nom                        -------> Texte
Num_ai #                 -------> Numeric (en relation avec une autre table AI)
Num_af #                 -------> Numeric (en relation avec une autre table AF)

Apres verification, il n'y avait pas d'erruer dans ma requete donc je vais tenter la m&#233;thode d'Italia et je verrai si cela fonctionne :)

bjipowa · Answer

Je suis vraiment d&#233;sol&#233; pour le sp@m mais mon PC plante et je ne vois pas mes message directement comme je devrais les voir....

Encore d&#233;sol&#233; aux mod de ce forum

cs_ITALIA · Answer

Avec la methode Addnew..tu verras bien sur quel champ il y a un souci

It@li@

bjipowa · Answer

Comme toujours, Italia, tu viens de faire des merveilles !!

Mon insert marche a merveille avec ta methode.

Et pour modifier une fnci existante, il faut que je remplace Donne.Addnew par Donnee.Update ???

Merci

cs_ITALIA · Answer

Exact Slyders...juste .Edit &#224; la Place de .AddNew
apr&#233;s avoir bien selectionner l' Enregistrement avec un WHERE dans le requ&#233;te par exemple

N'oublies pas de cocher Reponse Accept&#233;e

It@li@

bjipowa · Answer

Merci bocou, c g&#233;nial de pouvoir compter sur des personnes lorsqu'on d&#233;bute et kon a un peu du mal avec les tutos :)

Slyders · Answer

le forum est la pour sa 
(et moi sa me fait reviser en m&#234;me temps )

cs_ITALIA · Answer

On est tous pass&#233; par l&#224;............

@+ sur le Forum
Forza Italia

It@li@

bjipowa · Answer

Zkus&#233; Mi encore une fois LooL, mais pour la suppression, c'est Donnee.delete ??

cs_ITALIA · Answer

Set db = OpenDatabase("L:\BTS\PTI\VB\FNCI\fnci.mdb")Req "DELETE * FROM QuantiteArticle WHERE  Annee " & Val(List2.List(i)) & ""
Db.Execute Req

It@li@

bjipowa · Answer

Oki merci ;)

bjipowa · Answer

Voila, en fait, c'est comme la modif ou l'insert, on est oblig&#233; de cr&#233;er la requete de selection puis de supprimer les resultats dans la table...

Voila le code qui pose probleme et que j'ai mis :
Set SupTR db.OpenRecordset("SELECT * FROM FNCI_TRAITEMENT WHERE FNCI_TRAITEMENT.Num_fnci " & num_fnci & " AND FNCI_TRAITEMENT.Num_traitement = TRAITEMENT.Num_traitement")
SupTR.Delete

 :: FNCI_TRAITEMENT :: 
num_fnci
num_traitement

:: TRAITEMENT ::
Num_traitement
Date_creation
Nom
Quoi
Quand

Et voila le souci :

Erreur d'execution '3027' :
Mise ajour impossible : La base de donn&#233;e ou l'objet est en lecture seule

Sa ne me le fait pas pour la suppression dans la table FNCI qui elle marche tr&#232;s bien (code ci dessous) :                Set SupFNCI  db.OpenRecordset("SELECT * FROM FNCI WHERE Num_fnci " & num_fnci & "")
                SupFNCI.Delete

J'ai modifier mes types de jointures, j'ai mm enlever toutes jointure pour ester, mais cela me le fait a chaque fois.

Et ma base de don&#233;e n'est pas en lecture seule :S

cs_ITALIA · Answer

Set db = OpenDatabase("L:\BTS\PTI\VB\FNCI\fnci.mdb")
Db.Execute ("DELETE * FROM FNCI WHERE Num_fnci = " & num_fnci & "")
Set db=Nothing

It@li@

Problème de requête d'insertion

20 réponses

Discussions similaires