Pb d'éxecution de requétes ajout en VB sur base access

Question

Bonjour la communauté VB,

J'expose mon pb, j'essayes (en vain) d'éxécuter une requéte Ajout en VB vers une base access.

Le message d'erreur renvoyé par l'appli dit : "runtime error 3073 : l'opération doit utiliser une requétes qui peut être mise à jour."

Mon code est le suivant : 


dim sql_ajout_cours as string
dim db as database

Set db = OpenDatabase(dbname, False, True, "; pwd=admin")

sql_ajout_cours = " INSERT INTO Cours ( formateur, salles, section, [date], type_cours, heure_deb, heure_fin ) values ('msohet', '126', 'DI014', cdate(#24/02/2004#), 'Cours', #08:30#, #10:30#);"

db.Execute (sql_ajout_cours)



c evidemment sur le db.execute que l'appli se plante.

J'utilise VB 6 et DAO 3.6

N.B. : J'ai bien vérifié les types de données et tout et tout, a vrai dire, j'ai copié le code de la requéte dans access, et ce dernier n'a aucun pb pour créer l'enregistrement (voyez dans quelle stupeur je me retrouve)

Don si ce pb parle à kelkun, j'apprécierai son aide.

Merci d'avance.

@++

SOHET Morgan

C.N.P.O. - Le Belloy

cs_labout · Answer

labout

Vérifie si tu n'as pas trop de connections ouvertes
Tu ne devrais pas en avoir avant le
OpenDatabase
Le code d'erreur indique:
You cannot join channel '<ChannelName>' because too many channels are already open
@+

cs_wape · Answer

Le problème se situe dans la ligne :

Set db = OpenDatabase(dbname, False, True, "; pwd=admin")

En effet, le 3ème paramètre (True) signifie que la base est ouverte en lecture seule. Il n'est donc pas possible d'y insérer des enregistrements.

Essaye de remplacer ce paramètre par la valeur False.

@+

wape

msohet · Answer

Huhu, bien vu l'aveugle, merci pour le coup de pouce :o)

SOHET Morgan

C.N.P.O. - Le Belloy

Pb d'éxecution de requétes ajout en VB sur base access

3 réponses

Discussions similaires