CodeS-SourceS
Rechercher un code, un tuto, une réponse

Tip: configurer une connection ado

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 469 fois - Téléchargée 54 fois

Contenu du snippet

Travaillant beaucoup avec des DB, j'ai tendance a souvent faire un écran pour configurer une connection ADO. Il y a peu, j'ai trouvé l'écran standard de Microsoft. C'est assez intérressant.

Source / Exemple :


1. Lancer VB et créer un projet standard
2. Dans le Menu Project/References, Ajouter 
   - Microsoft ActiveX Data Objects 2.x Library (msado??.tlb)
   - Microsoft OLE DB Service Component 1.0 Type Library (oledb32.dll)
3. Dans le code de l'écran, déclarez l'objet connection:
   Option Explicit
   Dim CN As New ADODB.Connection
   Dim DL as New DataLinks
4. Ajouter un bouton de commande et mettez ce code dans l'événement Click:
   if CN.State=adStateOpen then cn.Close
   DL.hWnd=Me.hWnd
   DL.PromptEdit CN

Conclusion :


Vous trouverez 2 méthodes dans DataLinks:
- PrompEdit: modifie la connectionstring d'une connection existante
- PromptNew: renvoit un object connection (ou nothing si l'utilisateur clique sur cancel)

a noter aussi que:
- pour éditer la connectionstring, la connection doit être fermée.
- vous pouvez remplir quelques informations de la connectionstring et ensuite appeler promptedit pour la compléter.

A voir également

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.