Comment définir le “Nom de l'Application” dans la chaîne de connexion ADODB

Ahh je vois VBA chaîne de connexion ne prend pas en charge la Application Name attribut. Il n'est tout simplement pas reconnu quand il est utilisé dans VBA. La seule façon que je peux penser de la résolution de ce au moment où il est de retour d'un ADODB.Connection objet d'un COM C# bibliothèque.

Votre propre bibliothèque COM serait le retour d'une ADODB.Objet de connexion avec un prédéfini chaîne de connexion qui semblent fonctionner .NET. Vous devez vous connecter à la base de données à l'aide de VBA ADODB.Objet de connexion, mais avec un substituée la référence d'objet. Au lieu de

Set cn = new ADODB.Connection vous utilisez un GetConection() méthode exposée par votre propre bibliothèque.

Dim cn as ADODB.Connection
Set cn = yourCOMlibrary.GetConnection

voici les étapes

Télécharger et installer Visual Studio Express pour Windows (FREE)

De l'ouvrir en tant qu'Administrateur et de créer un Nouveau Projet. Sélectionnez Visual C# puis Class Library et le renommer en MyConnection

Dans le l'Explorateur de solutions, renommer Class1.cs à ServerConnection.cs

Droit de la souris sur votre MyConnection projet dans le l'Explorateur de solutions et sélectionnez Add Reference

Type activeX dans la zone de recherche et sélectionnez la Microsoft ActiveX Data Objects 6.1 Library

De copier et de coller le code ci-dessous dans le ServerConnection.cs remplacer la totalité de ce qui est dans le fichier.

using System;
using System.Runtime.InteropServices;
using System.IO;
using ADODB;

namespace MyConnection
{
    [InterfaceType(ComInterfaceType.InterfaceIsDual),
    Guid("32A5A235-DA9F-47F0-B02C-9243315F55FD")]
    public interface INetConnection
    {
        Connection GetConnection();
        void Dispose();
    }

    [ClassInterface(ClassInterfaceType.None)]
    [Guid("4E7C6DA2-2606-4100-97BB-AB11D85E54A3")]
    public class ServerConnection : INetConnection, IDisposable
    {
        private Connection cn;

        private string cnStr = "Provider=SQLOLEDB; Data Source=SERVER\\DB; Initial Catalog=default_catalog; User ID=username; Password=password;Application Name=MyNetConnection";

        public Connection GetConnection()
        {
            cn = new Connection();
            cn.ConnectionString = cnStr;
            return cn;
        }

        public void Dispose()
        {
            cn = null;
            GC.Collect();
        }
    }
}

Recherchez le cnStr variable dans le code et de mettre à JOUR votre chaîne de connexion de détails.

Remarque: si vous n'êtes pas sûr au sujet de la chaîne de connexion, vous devez utiliser voir TOUTES LES CHAÎNES DE CONNEXION

Cliquez sur Outils dans Visual Studio et CRÉER un GUID

Remplacer le Guid avec votre propre et supprimer les accolades de sorte qu'ils sont dans le même format que ceux que vous voyez maintenant à partir de la copie du code

Clic droit MyConnection dans le l'Explorateur de solutions et sélectionnez Propriétés.

Cliquez sur le Application onglet sur le côté gauche, puis Assembly Info et les tiques Make Assembly COM-Visible

Cliquez sur le *Build* dans le menu sur la gauche et cochez Register For COM Interop

Remarque: Si vous êtes en développement pour la version 64 bits d'Office alors assurez-vous de changer la Platform Target sur le Construire menu à x64! Ceci est obligatoire pour les 64 bits d'Office COM bibliothèques afin d'éviter toute ActiveX erreurs liées au.

---

Clic droit MyConnection dans le l'Explorateur de solutions et sélectionnez Build à partir du menu.

Si tout est OK alors votre MyConnection.dll et MyConnection.tlb doit être généré. Aller sur ce chemin maintenant

C:\Users\username\desktop\

ou partout où vous les avez enregistrés

et vous devriez voir vos fichiers.

---

Maintenant ouvrez Excel et aller à VBE. Cliquez sur Tools et sélectionnez References.

Cliquez sur le Parcourir bouton et accédez à la MyConnection.tlb.

Aussi, ajouter des références à Microsoft ActiveX Object 6.1 Library - c'est donc vous pouvez utiliser la bibliothèque ADODB.

Maintenant, cliquez-droit n'importe où dans le de l'Explorateur de Projet fenêtre et Insérer une nouvelle Module

de copier et de coller le code ci-dessous à

Option Explicit

Sub Main()

    Dim myNetConnection As ServerConnection
    Set myNetConnection = New ServerConnection

    Dim cn As ADODB.Connection
    Set cn = myNetConnection.GetConnection

    cn.Open

    Application.Wait (Now + TimeValue("0:00:10"))

    cn.Close
    Set cn = Nothing

    myNetConnection.Dispose

End Sub

---

Ouvrez SQL Server Management Studio, cliquez droit sur le serveur et sélectionnez Activity Monitor

ne pas fermer cette fenêtre

---

De revenir à Excel et appuyez sur F5 ou frapper le vert jouer bouton dans le ruban.

maintenant, revenez à SSMS ( SQL Server Management Studio )

et d'attendre pour votre de connexion personnalisée nom de l'! 🙂

Ici nous allons! C'était facile, n'est-ce pas? 🙂

---

C'est ce qui se passe.

Vous êtes de retour d'une Connexion ADODB objet de vous C# COM bibliothèque à l'aide de myNetConnection.GetConnection fonction

Dim myNetConnection As ServerConnection
Set myNetConnection = New ServerConnection

Dim cn As ADODB.Connection
Set cn = myNetConnection.GetConnection

C'est presque comme dire Set cn = new ADODB.Connection mais avec une chaîne de connexion qui vous l'avez fait dans votre code C#.

Vous pouvez utiliser le cn objet comme un normal ADODB.Connexion de l'objet à l'intérieur de VBA maintenant.

N'oubliez pas de toujours .Close() le ADODB.Connexion. Un bon programmeurs pratique est de toujours près tout ce que vous ouvrez - les ruisseaux, les connexions, etc.

Vous pouvez compter sur le Garbage Collector pour libre références/mémoire mais j'ai aussi écrit un Dispose() méthode pour vous de sorte que vous pouvez forcer le GC à exécuter. Vous pouvez le faire immédiatement se débarrasser de la Connexion afin de ne pas accrocher dans la SSMS ouvert.

N'oubliez pas d'utiliser myNetConnection.Dispose avec le cn.Close et vous serez amende.

Remarque:

C'est la façon dont je le ferais si quelqu'un pense que c'est à tort ou a besoin d'être mises à jour (comme instable ou dangereux), merci de laisser un commentaire.

---

Bien, j'espère que ce sera utile à tout le monde dans le futur 🙂

OriginalL'auteur