连接到SQL Server的方法

在某个时间点，您可能需要与驻留在SQL Server数据库中的外部数据源建立连接。 基本上有3种不同的方法可以创建此连接。 我将在下面简要概述每个方法，列出有关连接的几个假设，然后演示实现每个方法所需的适当编码技术。 如有任何疑问，请随时提问。

1. 连接到SQL Server的方法
   1. 提供连接信息作为连接对象的打开方法的参数
   2. 使用连接对象的ConnectionString属性
   3. 设置连接对象的属性
2. 假设条件
   
   1. 数据源=“（本地）”
   2. 数据库/初始目录=“酒吧”
   3. 用户ID =“ ADezii”
   4. 密码=“ r16G37P99J”
3. 代码实现
   

   'Method 1 - Connection information as an Argument to the Open Method of the Connection Object
   Dim cnn As ADODB.Connection
   Set cnn = New ADODB.Connection 
   cnn.Open "Provider=SQLOLEDB;Data Source=(local);Database=pubs;User ID=ADezii;Password=r16G37P99J" 
   Debug.Print cnn.ConnectionString    'Test for a valid Connection 
   cnn.Close
   Set cnn = Nothing

   'Method 2 - Use the ConnectionString Property of the Connection Object
   Dim cnn As ADODB.Connection
   Set cnn = New ADODB.Connection 
   cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=(local);Database=pubs;User ID=ADezii;Password=r16G37P99J"
   cnn.Open 
   Debug.Print cnn.ConnectionString    'Test for a valid Connection 
   cnn.Close
   Set cnn = Nothing

   'Method 3 - Set Properties of the Connection Object
   Dim cnn As ADODB.Connection
   Set cnn = New ADODB.Connection 
   With cnn
     .Provider = "SQLOLEDB"
     .Properties("Data Source") = "(local)"
     .Properties("Initial Catalog") = "pubs"
     .Properties("User ID") = "ADezii"
     .Properties("Password") = "r16G37P99J"
       .Open
   End With 
   Debug.Print cnn.ConnectionString    'Test for a valid Connection 
   cnn.Close
   Set cnn = Nothing

From: https://bytes.com/topic/access/insights/702036-methods-connecting-sql-server