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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 33 421 fois - Téléchargée 68 fois

Commenter

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

Signaler
cs_scoob79
Messages postés
23
Date d'inscription
mercredi 3 novembre 2004
Statut
Membre
Dernière intervention
9 mars 2010
 -
Pour info la référence manquante est Microsoft Remote Data Object 2.0
Signaler
maladefou
Messages postés
1
Date d'inscription
mardi 22 mars 2005
Statut
Membre
Dernière intervention
27 avril 2005
 -
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
Signaler
Noxid
Messages postés
78
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
4 mai 2008
 -
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?
Signaler
ASSURJUR
Messages postés
1
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
27 novembre 2003
 -
Pas commode quand on débute....
Signaler
vow
Messages postés
54
Date d'inscription
mardi 18 septembre 2001
Statut
Membre
Dernière intervention
27 juillet 2005
 -
Pourquoi utiliser RDO alors que l'ADO fonctionne mieux (pas de message "Impossible de creer l'objet ActiveX") ?
Afficher les 15 commentaires
S'inscrire maintenant

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.

Du même auteur (tebbaa)