EXECUTER UNE REQUETE SQL EN ADO

Signaler
-
Messages postés
76
Date d'inscription
mercredi 1 juin 2005
Statut
Membre
Dernière intervention
26 février 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/180-executer-une-requete-sql-en-ado

Messages postés
76
Date d'inscription
mercredi 1 juin 2005
Statut
Membre
Dernière intervention
26 février 2009

http://www.self-access.com/access/dossiers/acDAOversADO.php#DAOADO

kvoila pour la difference entre ado et dao
Messages postés
218
Date d'inscription
mercredi 20 février 2008
Statut
Membre
Dernière intervention
17 mars 2012

Bonjour ABRI1983 (si tu es encore la deux mois apres) je ne sais pas ce qu'est flexgrille mais tu as le code pour pouvoir ecrire dans une bdd et pour pouvoir faire une remise a zero je pense que c'est possible si tu as une table intermediaire (ou tempon) dans laquelle tu stock les modifications ou une table archive qui contient les anciennes donnees. Je ne sais pas si je t'ai aidé. bon courage.

Vous parlez tous beaucoup d'ADO mais à vrai dire à l'utilisation je ne vois pas la differance avec DAO:

'***********************BDD ACCESS OK AVEC ADO**********************************************
Dim bdd
bdd = "chemin_base_de_donnee"

'*******************************OPEN DATABASE DAO **************************************
Dim dbs As DAO.Database
Set dbs = DBEngine.Workspaces(0).OpenDatabase(bdd)
'ou set dbs = CurrentDb() je vous laisse devinner dans quel cas

'*******************************LES ENREGISTREMENTS AVEC DAO******************************
Dim rstdao As DAO.Recordset
Set rstdao = dbs.OpenRecordset("nom_de_la_colonne")
if jeVeuxRemplirLaBDD then
rstdao.AddNew
rstdao("Nom_champ1") = val1
rstdao("Nom_champ2") = val2
rstdao.Update
else 'je veux utiliser les données
rstdao.MoveFirst
While Not rstdao.EOF
Texte6 = Texte6 & rstdao("nom_champ").name & ": " & rstdao("nom_champ") & vbCrLf
Texte6 = Texte6 & rstdao(no_champ).name & ": " & rstdao(no_champ) & vbCrLf
rstdao.MoveNext
Wend
end if

'************************************FERMETURE***************************************

rstdao.Close
dbs.Close
Set dbs = Nothing
Set rstdao = Nothing

Comme ça il y aura des petits bouts de code pour tous.
@+
Messages postés
6
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
7 janvier 2008

je besoin une programme qui fait l'enregitrement dans le base de donnee avsc flexgrille
et une commande reset pour les remise a zero svp
Messages postés
8
Date d'inscription
jeudi 21 octobre 2004
Statut
Membre
Dernière intervention
22 mai 2012

esus1985

As tu ajoutais la référence dans VB ADO ?
Afficher les 10 commentaires