Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 11 22:04:58

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

TIP: CONFIGURER UNE CONNECTION ADO

Information sur la source

Note :

6,40 / 10

Catégorie :Base de Donnees Classé sous :configurer, connexion, ado, connection, connectionstring Niveau :Initié Date de création :01/03/2000 Vu :17 120

Auteur : FlyKiller

Ecrire un message privé

Site perso

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

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

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

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.

Sources du même auteur

FWDP: USER-DEFINED PROPERTIES

CATALOGUER UN DISQUE: FILESYSTEMOBJECT VS. FONCTION API

AUDITEZ VOS DONNÉES SUR SQL SERVER

FICHIERS RESOURCE EXTERNES

REGOCX: UN REGSVR32 EN VISUAL BASIC

Toutes les sources de FlyKiller

Sources de la même categorie

BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa

VBA EXEL GESTION DE PERSONEL NOUVEAU CONTRAT DE TRAVAI par oudlarbi

CREATION D'UN OBJET D'ACCÈS AUX DONNÉES par okosa

MISAHORAIRE par MdelM

BASEDEDONNEES,GESTIONDEMALADES,DATABASSE par shadkitenge

Toutes les sources de la catégorie Base de Donnees

Sources en rapport avec celle ci

CONNECTION STRING POUR CONTROL ADO par PROTEUS91

CONNECTION VB A L'ACCES AVEC ADO par ch_wa

BOITE A OUTILES ADO (CONNEXION,COMMAND,PARAMETER) par Little_Dev

POO - BASE DE DONNEES par info_willo

[.NET2] TESTER LA CONNECTION À INTERNET (AUTRE MÉTHODE PAR H... par Willi

Commentaires et avis

Commentaire de blau le 21/03/2003 16:05:47

ce petit objet est très intéressant. Merci.

Commentaire de code1 le 23/08/2004 20:47:23

au debut ton code il n'est pas claire
2_vous voulez etablissez une connection sans ouvrir
la connection ".open"
3_le fournisseur que vous avez déffinéssez sert a quoi
4_quand j'execute ton programme le datalinks que
vous avez déclaré déclanchera comme erreur

Commentaire de code1 le 23/08/2004 20:50:11

déja il faut ecrir le datalinks comme type dans ton programme

Commentaire de buggie02 le 16/09/2004 10:06:17

Génial ! bravo
;)