sql-server - 使用 ODBC 连接和对象将 Excel VBA 连接到 sql server

Question

我是编码新手，我最近正在使用 Excel 和 VBA 开发一个库存控制程序，起初我可以在我的设计器上运行并获得结果，但是我添加的按钮和标签越多，运行起来就越困难！

• 错误 1 ​​我不断收到自动化错误。

• 我知道该错误与数据库连接有关，因此我继续连接到数据库。使用下面的代码：

  Sub DbConnection()
  Dim cn As ADODB.Connection
  Set cn = New ADODB.Connection
  Dim rs As ADODB.Recordset
  
  Dim strConn As String
  strConn = "Driver={SQL Server}; Server=servername; Database=Dbname; VID=username; PWD=password"
  
  cn.Open strConn
  cn.Close
  Set cn = Nothing
  MsgBox "Connected"
  End Sub
  

• 我使用了 Microsoft ActiveX Data Object 6.1 库。但我意识到它不起作用，建议使用 ODBC 连接，现在我被卡住了，谁能帮我解决这个问题？

• 如何将此连接用于我的 ODBC 连接？

• 有什么我做错了吗？我必须使用哪个参考对象？PS：我正在使用 Ms Excel 2016 和 SSMS 2017。谢谢

标签： sql-serverexcelvbaodbc