Executer une requete sql en ado

Soyez le premier à donner votre avis sur cette source.

Snippet vu 29 301 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
-
Nix,
c'est cool la nouvelle version du site mais c'est loooong ! même avec une connexion adsl netissimo 2
:-)
Signaler
cs_PrX
Messages postés
91
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
2 novembre 2005
 -
Et tu peux faire la même chose avec DAO 3.51
Moi j'ai pas encore trouvé et sa m'éneeeerve!!!!
Signaler
cs_christophe
Messages postés
64
Date d'inscription
lundi 24 septembre 2001
Statut
Membre
Dernière intervention
13 septembre 2005
 -
La méthode DAO est une ancienne méthode qui a été remplacé par ADO. Moi je n'utilise que l'ADO. En DAO la methode est différente avec des methodes comme addnew.
Signaler
cs_aurbadguy
Messages postés
29
Date d'inscription
lundi 8 mars 2004
Statut
Membre
Dernière intervention
30 mai 2004
 -
methode simple et efficace
que je rechercher depuis un moment
je te mets une bonne note ;-)
Signaler
cs_globule
Messages postés
327
Date d'inscription
mardi 8 octobre 2002
Statut
Membre
Dernière intervention
6 octobre 2010
 -
J'ai essayé d'adapter cette source a ma connexion ODBC OMNIS qui fonctionne tres bien sous Access
Ca plante le VB lorsque j'essaye d'afficher un champ. Pourquoi ?

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=ODBC_OMNIS"

'ouverture d'une table ou requete SQL
Set table = New ADODB.Recordset
sql = "select * from MATABLE"
table.Open sql, bd
MsgBox table.Fields("MONCHAMP").Value
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)