Access DAO [Résolu]

Signaler
Messages postés
23
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
24 juin 2008
-
Messages postés
23
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
24 juin 2008
-
salut a tous
Mon code est celui ci 

Dim db As DAO.Database
Dim rs As DAO.Recordset
strCheminBase = "C:\Documents and Settings\stagiaire\Bureau\test\Archives_aut.mdb"
strConnexion = "MS Access;pwd=thibaud"
   
Set db = OpenDatabase(strCheminBase, False, False, strConnexion)
Set rs = db.OpenRecordset("export")

    r = "INSERT INTO export (date_sortie)"
    v = " VALUES (" & Chr(34) & date_sorti & Chr(34) & ")"
    sl = r & v
    db.Execute (sl)

Cela marche bien  mais par contre quand je fais ca mes données ne sont plus envoyé dans ma base de donnée  Pourquoi??

    r = "INSERT INTO export (fichier, date_sortie)"
    v = " VALUES (" & chr(34) & nom_du_fichier & chr(34) & "," & Chr(34) & date_sorti & Chr(34) & ")"
    sl = r & v
    db.Execute (sl)

2 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,

Essayce comme cela, défois que :

r = "INSERT INTO export (fichier, date_sortie)"
    v = " VALUES ('" & chr(34) & nom_du_fichier & chr(34) & "','" & Chr(34) & date_sorti & Chr(34) & "')"
    sl = r & v
    db.Execute (sl)

A+
Exploreur

 Linux a un noyau, Windows un pépin
Messages postés
23
Date d'inscription
mercredi 14 mai 2008
Statut
Membre
Dernière intervention
24 juin 2008

merci de ton aide