Acces à une base sql ,avec execution d'une requete
Soyez le premier à donner votre avis sur cette source.
Snippet vu 33 545 fois - Téléchargée 68 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
- Acces à une base sql ,avec execution d'une requete
- Accès à une base de données sql server - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- C# / .NET : Sqlmanager : facilite l'accès à une base de donnée ms sql - CodeS - Guide
- Java : Api de connexion aux bases de données, execution de requêtes sql, et import/exp - Guide
- Probleme de connexion et d'execution de requete sur une base Sql Server ✓ - Forum - C++ & C++ .NET
- [vb6] accés à une base de données access en ado - Conseils pratiques - Visual Basic / VB.NET
Et ou est-ce que je peux télécharger les composants qu'il faut pour les BDD MySQL SVP?
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.