【发布时间】:2016-11-25 11:48:04
【问题描述】:
我想从 Oracle 数据库中导入一些数据,但我不想将密码留在宏上,因为它很容易访问。然后我发现这段代码隐藏了我的连接字符串,它工作得很好,至少在我的电脑上是这样。我创建了下一个代码的 .dll,以便用户无法使用数据库数据。
using ADODB;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;
namespace HiddenConnectionString
{
[InterfaceType(ComInterfaceType.InterfaceIsDual),
Guid("2FCEF713-CD2E-4ACB-A9CE-E57E7F51E72E")]
public interface IMyServer
{
Connection GetConnection();
void Shutdown();
}
[ClassInterface(ClassInterfaceType.None)]
[Guid("57BBEC44-C6E6-4E14-989A-B6DB7CF6FBEB")]
public class MyServer : IMyServer
{
private Connection cn;
private string cnStr = "Provider=MSDAORA.1;Password=YourPass;User ID=YourID;Data Source=IP:Port";
public MyServer)(
{
}
public Connection GetConnection()
{
cn = new Connection();
cn.ConnectionString = cnStr;
cn.Open();
return cn;
}
public void Shutdown()
{
cn.Close();
}
}
}
下一个代码是我要运行的代码:
Option Explicit
Sub Main()
Dim myCn As MyServer
Set myCn = New MyServer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
'Consumos
rs.Open "select * from tablename, myCn.GetConnection
Sheets.Add After:=ActiveSheet
Range("A2").CopyFromRecordset rs
rs.Close
myCn.Shutdown
Set rs = Nothing
Set myCn = Nothing
End Sub
我一直试图让它在其他计算机上运行,但是当我在它们上运行测试代码时,我得到了这个错误:
编译错误:对象库无效或包含对无法找到的对象定义的引用
所以好像这个库还没有导入,但是当我查看参考列表时,我的“hiddenconnectionString.dll”被激活了,所以我不知道它是怎么回事。
有人可以给我一些关于如何使它工作的建议吗?欢迎任何帮助。谢谢:D
【问题讨论】:
标签: vba dll reference azure-pipelines