Discussion :

[bestall666]

Bonjour

Je cherche à remplacer le code suivant

Code :

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

1
2
3
4
5
6
7
 
CurrentDb.Execute "INSERT INTO FILM ([Titre Film],[Titre VO Film],[Durée Film],[Année Film],[Résumé Film])" & _
                              '"VALUES(" & "'" & Replace(MonFilm.FTitre, "'", "''") & "'" & " ," & _
                               '       "'" & MonFilm.FTitreVO & " '" & "," & _
                               '       "'" & Replace(MonFilm.FDurée, "H", ":") & "'" & "," & _
                                '      "'" & MonFilm.FAnnée & "'" & "," & _
                                 '     "'" & Replace(MonFilm.FRésumé, "'", "''") & "'" & ")"

par une requête ajout paramétrée

Je sais exécuté une requête paramétrée de sélection mais je sêche pour une requête ajout paramétrée !!

Code :

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

1
2
3
4
 
Set oQdf = CurrentDb.QueryDefs("qryFilmExiste")
    oQdf.Parameters("parmTitre").Value = strTitreFilm
    Set rst = oQdf.OpenRecordset()

Merci d'avance pour l'aide

@++

Bestall666

[LedZeppII]

Bonsoir,

Utilise la méthode Execute de l'objet QueryDef, après avoir fourni les valeurs de tes paramètres

Code :

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

1
2
oQdf.Execute
' Nombre d'enregistrements ajoutés : oQdf.RecordsAffected

A+

[bestall666]

Bonsoir,

Utilise la méthode Execute de l'objet QueryDef, après avoir fourni les valeurs de tes paramètres

Code :

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

1
2
oQdf.Execute
' Nombre d'enregistrements ajoutés : oQdf.RecordsAffected

A+

Merci d'avoir pris le temps de me répondre !!

Je teste dès que possible

@++

Bestall666

[bestall666]

Hello

Cela fonctionne mais j'ai un problème dû au cham résumé qui contient des ' ainsi que des espaces et des points donc je ne modifie rien !!

Merci beaucoup !!

@++

Bestall666

[LedZeppII]

Bonsoir,

Chez moi ça fonctionne.
Ma requête

Code sql :

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

1
2
3
PARAMETERS prmTitre Text (255), prmTitreVO Text (255), prmDurée Long, prmAnnée Long, prmRésumé Text (4096);
INSERT INTO FILM ( [Titre Film], [Titre VO Film], [Durée Film], [Année Film], [Résumé Film] )
SELECT [prmTitre] AS Chp1, [prmTitreVO] AS Chp2, [prmDurée] AS Chp3, [prmAnnée] AS Chp4, [prmRésumé] AS Chp5;

Mon code

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As DAO.Database, qdef As DAO.QueryDef, lngRecAff As Long
 
Set db = CurrentDb
Set qdef = db.QueryDefs("qAppend")
qdef.Parameters("prmTitre") = "Titre du film"
qdef.Parameters("prmTitreVO") = ""
qdef.Parameters("prmDurée") = 118
qdef.Parameters("prmAnnée") = 20052
qdef.Parameters("prmRésumé") = "Résumé:" & vbCrLf & _
                               "C'est l'histoire d'un gars ..."
 
qdef.Execute dbFailOnError
 
Debug.Print qdef.RecordsAffected

Mon résumé a deux apostrophes et un retour chariot.

Autrement tu peux essayer d'ouvrir un recordset sur la table, ajouter un enregistrement avec .AddNew, remplir les champs, puis enregistrer avec .Update

A+

[bestall666]

Bonsoir,

Chez moi ça fonctionne.
Ma requête
Code sql :
PARAMETERS prmTitre Text (255), prmTitreVO Text (255), prmDurée Long, prmAnnée Long, prmRésumé Text (4096);
INSERT INTO FILM ( [Titre Film], [Titre VO Film], [Durée Film], [Année Film], [Résumé Film] ) SELECT [prmTitre] AS Chp1, [prmTitreVO] AS Chp2, [prmDurée] AS Chp3, [prmAnnée] AS Chp4, [prmRésumé] AS Chp5;

Mon code
Code vb :
Dim db As DAO.Database, qdef As DAO.QueryDef, lngRecAff As Long Set db = CurrentDb
Set qdef = db.QueryDefs("qAppend") qdef.Parameters("prmTitre") = "Titre du film" qdef.Parameters("prmTitreVO") = "" qdef.Parameters("prmDurée") = 118 qdef.Parameters("prmAnnée") = 20052 qdef.Parameters("prmRésumé") = "Résumé:" & vbCrLf & _
"C'est l'histoire d'un gars ..." qdef.Execute dbFailOnError

Debug.Print qdef.RecordsAffected
Mon résumé a deux apostrophes et un retour chariot.

Autrement tu peux essayer d'ouvrir un recordset sur la table, ajouter un enregistrement avec .AddNew, remplir les champs, puis enregistrer avec .Update

A+

Merci pour la réponse!!

En fait je voulais faire une requête car on m'a dit que c'était plus rapide que les recordset !!!

@++

Bestall666

[LedZeppII]

je voulais faire une requête car on m'a dit que c'était plus rapide que les recordset !!!

C'est peut-être vrai sur un très grand nombre d'enregistrements.
Ma là, vu que tu n'insères qu'un enregistrement ...

A+