Acces à une base sql ,avec execution d'une requete

0/5 (15 avis)

Snippet vu 33 728 fois - Téléchargée 70 fois

Contenu du snippet

Ce code permet d'acceder à une base de données SQL .

Source / Exemple :


'Declaration
Dim env As rdoEnvironment
Dim con As rdoConnection
Dim rdorequest As rdoQuery
Dim RESULT As rdoResultset

'La connexion

Set env = rdoEnvironments(0)
Set con = env.OpenConnection("", rdDriverNoPrompt, False, "UID=sa;PWD=your_pswd;Database=name_base_sql;server=name_server;driver={SQL Server};DSN=''")
   
'votre requete
request = "Select * from name_table where name_champ = " & "'" + valeur + "'"
Set RESULT = con.OpenResultset(request, rdOpenKeyset, rdConcurLock, StillExecuting + rdExecDirect)

' nombre d'enregistrement de la base sql
  Nbr = RESULT.RowCount

 Do While Not RESULT.EOF
  ' votre traitement        
 loop

A voir également

Ajouter un commentaire Commentaires
cs_scoob79
Messages postés
23
Date d'inscription
mercredi 3 novembre 2004
Statut
Membre
Dernière intervention
9 mars 2010

23 oct. 2006 à 12:41
Pour info la référence manquante est Microsoft Remote Data Object 2.0
maladefou
Messages postés
1
Date d'inscription
mardi 22 mars 2005
Statut
Membre
Dernière intervention
27 avril 2005

27 avril 2005 à 18:01
je suis debutant sur vb et je doit realiser un menu projet,j'ai aimé ce code mais il me faut beaucoup plus pour developper mon menu projet sur getion d'un magazin avec vb et access
Noxid
Messages postés
78
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
4 mai 2008

29 nov. 2003 à 16:18
J'pige rien... Pkoi tu mets po des commentaires?
Et ou est-ce que je peux télécharger les composants qu'il faut pour les BDD MySQL SVP?
ASSURJUR
Messages postés
1
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
27 novembre 2003

27 nov. 2003 à 09:03
Pas commode quand on débute....
vow
Messages postés
54
Date d'inscription
mardi 18 septembre 2001
Statut
Membre
Dernière intervention
27 juillet 2005

20 août 2003 à 16:26
Pourquoi utiliser RDO alors que l'ADO fonctionne mieux (pas de message "Impossible de creer l'objet ActiveX") ?
Afficher les 15 commentaires

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.