Executer une requete sql en ado

Soyez le premier à donner votre avis sur cette source.

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

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

Nix,
c'est cool la nouvelle version du site mais c'est loooong ! même avec une connexion adsl netissimo 2
:-)
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!!!!
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.
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 ;-)
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

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.