Ouvrir une base de donnees en ado

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 251 fois - Téléchargée 82 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
13 oct. 2007 à 01:36
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
26 mars 2007 à 20:17
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.