Adodc
cs_NOORLOUBNA
Messages postés
16
Date d'inscription
mercredi 27 octobre 2004
Statut
Membre
Dernière intervention
4 mars 2007
-
18 août 2005 à 01:08
Paladin2107 Messages postés 154 Date d'inscription samedi 25 octobre 2003 Statut Membre Dernière intervention 5 septembre 2008 - 18 août 2005 à 08:36
Paladin2107 Messages postés 154 Date d'inscription samedi 25 octobre 2003 Statut Membre Dernière intervention 5 septembre 2008 - 18 août 2005 à 08:36
3 réponses
Doro81079
Messages postés
380
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
24 février 2015
56
18 août 2005 à 05:46
18 août 2005 à 05:46
bonsoir,
avec un controle adodc tu as la possibilites de faire un ajout
directement avec le controle il faut que tu mettes la propriétés EOFaction(je croit)a addnew tu rentre tes données et tu clic sur suivant...
si je me souvient bien
et pour supprimer tu met dans ton controle
dim bd as new adodb.connection
dim tb as new adodb.recordset
bd.provider="microsoft.jet.oledb.4.0"
bd.connectionstring=app.path & "\nom de la bd.mdb"
'app.path est le repertoire de ton projet vb il faut que ta bd soit dedans
bd.open
tb.open "select * from [tatable]"bd,adopendynamic,adlockoptimistic
on error resume next
tb.delete
tb.movenext
if tb.eof =true then
tb.movefirst
end if
tb.close
bd.close
end sub
et si il te met une erreur du genre
cette operation est impossible car l'objet est ouvert tu
ajoutes un on error resume next en début de procédure
salut
doro
avec un controle adodc tu as la possibilites de faire un ajout
directement avec le controle il faut que tu mettes la propriétés EOFaction(je croit)a addnew tu rentre tes données et tu clic sur suivant...
si je me souvient bien
et pour supprimer tu met dans ton controle
dim bd as new adodb.connection
dim tb as new adodb.recordset
bd.provider="microsoft.jet.oledb.4.0"
bd.connectionstring=app.path & "\nom de la bd.mdb"
'app.path est le repertoire de ton projet vb il faut que ta bd soit dedans
bd.open
tb.open "select * from [tatable]"bd,adopendynamic,adlockoptimistic
on error resume next
tb.delete
tb.movenext
if tb.eof =true then
tb.movefirst
end if
tb.close
bd.close
end sub
et si il te met une erreur du genre
cette operation est impossible car l'objet est ouvert tu
ajoutes un on error resume next en début de procédure
salut
doro
Doro81079
Messages postés
380
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
24 février 2015
56
18 août 2005 à 05:48
18 août 2005 à 05:48
re,
j'ai oublier une virgule entre [tatable]" et bd
donc ça donne ça
[tatable",bd,
salut
doro
j'ai oublier une virgule entre [tatable]" et bd
donc ça donne ça
[tatable",bd,
salut
doro
Paladin2107
Messages postés
154
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
5 septembre 2008
1
18 août 2005 à 08:36
18 août 2005 à 08:36
Utilise des requetes sql sa ira tt seul
insert into TaTable (Champs) Values (Reponse) Where ...
Update TaTable Set (Champs = Reponse) Where ..
Delete Champ From Table Where ....
Couscous
insert into TaTable (Champs) Values (Reponse) Where ...
Update TaTable Set (Champs = Reponse) Where ..
Delete Champ From Table Where ....
Couscous