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

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

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)