access DAO Résolu

Question

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	est\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)

cs_Exploreur · Accepted Answer

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

timon23 · Answer

merci de ton aide

Access DAO

2 réponses

Votre réponse

Discussions similaires