Executer une requete sql en ado

Soyez le premier à donner votre avis sur cette source.

Snippet vu 29 350 fois - Téléchargée 81 fois

Commenter

Contenu du snippet


Source / Exemple : 


dim bd As ADODB.Connection
dim table as ADODB.recordset
dim sql as string

'ouverture de la base de données
Set bd = New ADODB.Connection
bd.open "dsn=nombase"

'ouverture d'une table ou requete SQL
set table = new ADODB.recordset
sql = "requete...."
table.open sql,bd

'si la requete ne renvoie pas de résultats il n'est pas necessaire de fermer la table.

Conclusion :


le nom de la base correspond a une base ODBC ayant été configuré préalablement configuré dans le gestionnaire de source ODBC.

A voir également

Ajouter un commentaire

Commentaires

Signaler
esus1985
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
Signaler
l0r3nz1
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.
@+
Signaler
arbi1983
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
Signaler
wortmany
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 ?
Signaler
esus1985
Messages postés
76
Date d'inscription
mercredi 1 juin 2005
Statut
Membre
Dernière intervention
26 février 2009
 -
christophe, ca serait cool si tu prenais le temps de repondre aux gens qui testent tes codes...

meme si t'en sais rien mais dis le...

pour ma part, il me met source de données introuvable et nom de pilote non spécifié avec le code suivant :

Dim bd As ADODB.Connection
Dim table As ADODB.recordset
Dim sql As String

'ouverture de la base de données
bd = New ADODB.Connection
bd.Open("dsn=loto.mdb")

'ouverture d'une table ou requete SQL
table = New ADODB.recordset
sql = "CREATE TABLE loto ('col1' int, 'Nom_de_colonne2' varchar);"
table.Open(sql, bd)

****************************************

voila tout

merci de ta reponse

Esus
table.Close()
Afficher les 10 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_christophe)