Ouvrir une base de donnees en ado

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 719 fois - Téléchargée 80 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=identiques"

'remarque : identiques représente un nom ODBC qui doit etre configuré dans les sources de données ODBC...

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

'Parcourir la table
while table.eof = false
     msgbox table!numclient
     table.movenext
wend

'fermer la table
table.close

A voir également

Ajouter un commentaire

Commentaires

khaledbn123
Messages postés
1
Date d'inscription
samedi 13 octobre 2007
Statut
Membre
Dernière intervention
13 octobre 2007
-
rajouter cette ligne et ca va fonctionner bien
bd.CursorLocation=adUseClient
andrieuremi
Messages postés
14
Date d'inscription
mercredi 18 juin 2003
Statut
Membre
Dernière intervention
21 juin 2007
-
J'ai eu exactement le même problème que toi NEUIL et j'ai trouvé la solution :

Rajoute la ligne suivante : bd.CursorLocation=adUseClient
Juste avant le bd.open
merci pour cet exemple. j'ai un souci...je n'arrive pas à afficher le resultat d'une requete SQL dans ma datagrid!!

il me met l'erreur suivante:
le jeu d'enregistrements ne peut pas prendre en compte les signets!!!!

AIDEZ MOI SVP!

Merci d'avance

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.