3

我正在Connection用 C# 为 Excel 编写一个自定义类，以便能够连接到 SQL Server。当我SQLConnection从System.Data.SqlClient库中使用时，我能够建立连接。我得到的工作代码：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Data.SqlClient;
using System.Runtime.InteropServices;

namespace Test
{

    [InterfaceType(ComInterfaceType.InterfaceIsDual),
    Guid("6E8B9F68-FB6C-422F-9619-3BA6D5C24E84")]
    public interface IConnection
    {
        bool Status { get; }
        bool Open();
    }

    [ClassInterface(ClassInterfaceType.None)]
    [Guid("B280EAA4-CE11-43AD-BACD-723783BB3CF2")]
    [ProgId("Test.Connection")]
    public class Connection : IConnection
    {
        private bool status;
        private SqlConnection conn;
        private string connString = "Data Source=[server]; Initial Catalog=[initial]; User ID=[username]; Password=[password]";

        public Connection()
        {
        }

        public bool Status
        {
            get
            {
                return status;
            }
        }

        public bool Open()
        {
            try
            {
                conn = new SqlConnection(connString);
                conn.Open();
                status = true;
                return true;
            }
            catch(Exception e)
            {
                e.ToString();
                return false;
            }
        }
    }
}

添加对 Excel 的引用后，我可以使用如下简单的 VBA 代码测试连接：

Sub TestConnection()

    Dim conn As Test.Connection
    Set conn = New Test.Connection

    Debug.Print conn.Status
    conn.Open
    Debug.Print conn.Status

End Sub

它输出：

假
真

所以一切都很好。现在我想Recordset在我的 C# 库中创建自定义类，所以我决定使用一个ADODB库和它RecordSet，而不是SqlDataReader因为我计划使用一些大块数据。因此，我已将代码修改为：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Data.SqlClient;
using System.Runtime.InteropServices;

namespace Test
{

    [InterfaceType(ComInterfaceType.InterfaceIsDual),
    Guid("6E8B9F68-FB6C-422F-9619-3BA6D5C24E84")]
    public interface IConnection
    {
        bool Status { get; }
        bool Open();
    }

    [ClassInterface(ClassInterfaceType.None)]
    [Guid("B280EAA4-CE11-43AD-BACD-723783BB3CF2")]
    [ProgId("Test.Connection")]
    public class Connection : IConnection
    {

        private bool status;
        private ADODB.Connection conn = new ADODB.Connection();
        private string connString = "Data Source=[server]; Initial Catalog=[initial]; User ID=[username]; Password=[password]";

        public Connection()
        {
        }

        public bool Status
        {
            get
            {
                return status;
            }
        }

        public bool Open()
        {
            try
            {
                conn.ConnectionString = connString;
                conn.Open();
                // conn.Open(connString, ["username"], ["password"], 0)
                // what else can I try? is this where it actually fails?
                status = true;
                return true;
            }
            catch (Exception e)
            {
                e.ToString();
                return false;
            }
        }

    }
}

我还添加了对Microsoft ActiveX Data Objects 6.1 Library.

现在，当我执行 VBA 代码时，它会输出：

0
0

但我期待0和1。在我看来，我没有正确连接到服务器（凭据相同，我刚刚从该代码中删除了实际数据）。

我尝试使用连接字符串的不同变体，但是它总是返回0and 0。我尝试使用新的 GUID 创建一个新项目，并尝试重命名项目、类等，但没有任何效果。我怀疑它建立了连接，但我不确定如何调试 dll。

我使用了link1，link2，link3，link4作为参考

更新：
我已按照 TheKingDave 的建议将异常写入文件。这是异常错误消息

System.Runtime.InteropServices.COMException (0x80004005): [Microsoft] [ODBC Driver Manager] Data source name not found and no default driver specified at ADODB._Connection.Open(String ConnectionString, String UserID, String Password, Int32 Options) at TestADODB .Connection.Open() 在 c:\Users\administrator\Documents\Visual Studio 2012\Projects\Test\Test\Connection.cs:line 49

4

1 回答 1

3

缺少连接字符串Provider=SQLOLEDB。

ADODB.Connection 需要知道它连接到什么类型的数据库。

于 2013-07-10T15:10:48.930 回答