连接到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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值