ajout enregistrement par codeRésolu

Question

bonjour, 
voila j'aimerais faire un truc tout con mais je trouve pas comment faire, j'ai fouillé maais ne trouve pas mon bonheur.
je souhaiterais en fait ajouter un enregistrement dans un champ d'une table par le code. 
C'est à dire que j'ai une variable contenant du texte et je souhaite ajouter cet enregistrement dans ma table, a un champ precis.
tout ceci par le code.
merci; je sais que sa a l'air con mais je pense que je pige pas tout en fait...

cs_Nicko11 · Accepted Answer

Essaies ceci

SQL = "INSERT INTO tbltemporaire (Nomdoc, descriptiondoc, frequence) values ('ouai', 'DUJARDIN', 12);"
DoCmd.RunSQL SQL

et ensuite cesi

SQL = "INSERT INTO tbltemporaire (Nomdoc, descriptiondoc, frequence) values ('" & ta_variable1 & "', '" & ta_variable2 & "', '" & ta_variable3  & "');"
DoCmd.RunSQL SQL

fixou81 · Answer

il faut que je fasse un recordset et ensuite que je fasse addnew?
en fait c ca que je pige pas trop

fixou81 · Answer

le truc c que j'ai vu un truc pour ca...
je fais
Dim MonSql As String
Dim Db as dao.database
MonSql = "SELECT * FROM Client WHERE [N° Client]=" & texte1

'Ouverture du Recordset
Set MaTable = DB.OpenRecordset(MonSql)
'Ajouter un enregistrement
Matable.AddNew
Matable![N° Client] = 12
Matable![Nom] = "DUJARDIN"
Matable.Update
MaTable.close
ce que je pige pas c  dans mon sql en fait la table ou je veux ajouter mes enregistrements est vide donc je ne peux pas dire "Where...."
Donc je comprend pas trop la. Je ne peux pas faire de requete sur une table vide!

fixou81 · Answer

j'ai trouvé , ca a l'air de marcher.
en fait j'ai fait 
Dim MonSql As String
Dim Db as dao.database
MonSql = "SELECT * FROM Client 
'Ouverture du Recordset
Set MaTable = DB.OpenRecordset(MonSql)
'Ajouter un enregistrement
Matable.AddNew
Matable![N° Client] = 12
Matable![Nom] = "DUJARDIN"
Matable.Update
MaTable.close

ca m'ajoute bien un enregistrement...
donc voila mais si quelqu'un lis ce message, s'il peut AIDER CLAIREMENT POUR COMPRENDRE CE QU4EST UN RECORDSET  .Car malgré tout ce que j'ai put lire, j'ai du mal un peu quand meme...

cs_Exploreur · Answer

Salut,

Ben, là c'est moi qui pige plus rien...Tu fais un requête de selection et pas une requête action...Comment tu peux mettre un record dans ta base ave une requête de selection ?

Ici ce n'est pas ta requête qui a mit ton enregistrement, mais plutôt cela :
Matable.AddNew
Matable![N° Client] = 12
Matable![Nom] = "DUJARDIN"
Matable.Update
MaTable.close

Peux-tu me monter comment tu fais ta connection à la Bdd ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Nicko11 · Answer

T'es marrant a parler tout seul. Fais attention quand meme, c'est mauvais signe des fois.

En effet, il est a mon sens inutile de faire une clause where si tu veux seulement rajouter une ligne dans ta table. La clause where te permet de selectionner les enregistrements pour lesquels la condition est respecter.

D'ailleurs si tu voulais apprendre les recordset, c'est bien mais pour faire ca, ce n'est pas tres utile. Tu peux faire une requete Ajout  (requete SQL).

fixou81 · Answer

bein la en fait je suis perdu moi...tout ce que je sais c que ca marche!pour une fois que j'ai de la chance. Voila exactement mon code qui se fait sur levenement click d'un bouton. Ma table s'appelle tbltemporaire
Private Sub Commande41_Click()


Dim MonSql As String
Dim Db As DAO.Database
Dim MaTable As DAO.Recordset
'Ouverture de la base de données
Set Db = CurrentDb


MonSql = "SELECT * FROM tbltemporaire "


'Ouverture du Recordset
Set MaTable = Db.OpenRecordset(MonSql)




'Ajouter un enregistrement
MaTable.AddNew
MaTable![Nomdoc] = "ouai"
MaTable![descriptiondoc] = "DUJARDIN"
MaTable![frequence] = 12
MaTable.Update
MaTable.Close
    End Sub

ca marche...mais si il y a mieux ou plus logique dites moi...merci

cs_Nicko11 · Answer

Salut, Exploreur, je pense que dans son cas, une connexion est inutilie puisqu'il est en VBA Access et que je pense que sa table est deja dans la base ou le code est présent.

Tu peux faire une requete Selection pour rajouter des enregistrements (je le fais car je savais pas comment faire des requetes pour des bases à distances).

Le truc, c'est qu'il faisait une clause Where et c'est ca qui est totalement inutile.

A+

cs_Nicko11 · Answer

Oui, pense a aller dans l'onglet des requetes de access et d'aller dans Afficher puis Mode SQL. De la tu pourras t'entrainer à faire des requetes ajout et les recopier dans ton code.

Si tu ne sais pas la synthaxe, F1 + requete INSERT devrait t'aider.

fixou81 · Answer

Donc Nicko11 cela signifie que je n'ai pas besoin de faire un recordset. "une connexion est inutilie" donc comment faire ?

cs_Exploreur · Answer

Salut Nicko,

Ben vi, cela fait deux que je me fait avoir avec ce VBA et la connection !!

A+
Exploreur

 Linux a un noyau, Windows un pépin

fixou81 · Answer

pardon j'avais pas vu ton dernier post

cs_Nicko11 · Answer

Ce n'est pas que c'est plus logique, c'est que c'est plus adapter et rapide. Toi tu as plein de ligne alors que 2 suffirait.

SQL = ta_requete
DoCmd.RunSQL SQL

FIN

fixou81 · Answer

oui d'accord mais ma finalité c'est que ma requete ajoute dans ma table une variable, la variable ayant différentes valeurs (car je vais parcourir un treeview et je vais faire for each node.check...)
c bien possible ca de faire une requete ajout d' une variable en sql ?

fixou81 · Answer

nickel, j'etais pas loin. J'avais cree la requete ajout mais je bloquais pour les variables.
J'etais en train de faire ce que tu mas filé mais ca moré mis un peu plus de temps. Merci!
Juste je veux pas abuser mais j'ai un message a chaque fois qui me dit que j'ajoute une ligne..... c possible de ne pas avoir ce message?


merci en tout cas c cool.! tu taquines dis donc....

fixou81 · Answer

ah et en fait....pas parfait non plus... si je clique 2 fi=ois d'affilee, le premier nickel mais le second erreur...enfin j travaille....merki

cs_Exploreur · Answer

Salut,

Cela me rassure que j'avais raison au moins sur un point, qu'il fallait faire un requête Action(Insert Into)....

A+
Exploreur

 Linux a un noyau, Windows un pépin

fixou81 · Answer

oubli le dernier post, erreur con...

cs_Nicko11 · Answer

1) est ce que la premiere solution fonctionne toujours (meme plein de fois de suite)?

2) Si tu as des boites de dialogues c'est qu'il y a un pb avec les types de données, les '  ' (regarde le premiere exemple que j'ai donné, les '  ' ne sont pas présent pour le 12), ou tes variables.

cs_Nicko11 · Answer

OK

A+ tout le monde

PS: Bien sur Exploreur, t'as raison mais tu n'es pas OBLIGER de faire une requete action mais aussi passer par un recordset et une requete select (je vais d'ailleurs remplacer ca dans mon propre code quand j'aurais le temps, car ca me bouffe une bonne parti de mon code)

fixou81 · Answer

Ok a plus, 
ca fonctionne bien meme plusieurs fois d'affilee c juste que j'ai une boite de dialogue relou qui me dit 
"Vous aller ajouter (1) ligne"
"Des que vous aurez cliquer sur oui il ne vous sera plus possible d'utiliser la commande annuler pour supprimer les modifications.
Etes vous sur...?"
puis j'ai le chois oui ou non
c un peu chiant ca...mais c tout

cs_Exploreur · Answer

Salut Nicko,

D'accord avec toi, mais cela est moins lisible dans le code...Pourtant ta réponse est bien un requête Action et non Selection......Nanananère...

A+
Exploreur

 Linux a un noyau, Windows un pépin

fixou81 · Answer

g trouvé il suffit de mettre 
DoCmd.SetWarnings False avant Docmd.sql
je le dis pour la forme.
Merci tout roule c nikel!!!
merci a vous deux

cs_Nicko11 · Answer

LOL, tu me cherches la, j'aime ca. 
Oui c'est une requete action car notre ami ne souhaite faire QUE rajouter des enregistrements, donc c'était simple.

Je réagissais simplement à ton "Il fallait faire une requete Action" car en fait, sa solution (avec le recordset) était parfaitement valable (après avoir enlemver la clause Where) et je tiens au passage à féliciter Fixou pour ses progrès car au départ c'était laborieux.

Continue comme ca.

Ninaninanère Heu !!!

MDR

Ajout enregistrement par code

24 réponses

Votre réponse

Discussions similaires