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
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.