用于访问直通查询的雪花的 ODBC 连接字符串

Question

我正在尝试创建一个连接字符串以从 Access 2010 及更高版本获取雪花数据。我可以创建数据库 DSN 并链接到我使用的表，但我需要为分布式应用程序构建无 DSN 连接字符串。这是我到目前为止所拥有的，它失败并显示消息“ODBC 连接到 xxxx 失败”。这是我到目前为止所拥有的：

ODBC;Driver={SnowflakeDSIIDriver};服务器=https://server名称； Role=角色名称；Warehouse=仓库名称；Database=db 名称；Schema=schema 名称；UID=snowflake ID； PWD=雪花密码；

Answer 1

我认为你在正确的轨道上。我有同样的东西，它有效。

ODBC;
driver={SnowflakeDSIIDriver};
server=accountname.snowflakecomputing.com;database=dbname;
schema=public;
warehouse=whname;
role=rlname;
Uid=userid;
Pwd=password;

很奇怪，DSN 可以正常工作而你的不行。

Answer 2

我可以确认无 DNS 连接在 Access 2013 中工作正常。我尚未在 Access 2010 上进行测试，但如果需要测试，我可以使用它。

我遇到的第一个问题是 Snowflake ODBC 驱动程序在控制面板的 ODBC 部分报告32/64-bit，但它可能没有安装一个或另一个 .

就我而言，它在 DSN 源中显示为 32/64-bit，但我只安装了 64 位版本。请注意，安装 32 位驱动程序后，程序和功能（卸载应用程序的正常位置）显示 64 位和 32 位驱动程序。

安装 32 位驱动程序后，只需正确设置连接字符串即可。您想从 Snowflake Web UI 上的 URL 复制它。去掉https:// 部分，然后保留所有内容，包括网址中的snowflakecomputing.com。这就是您将用于server 的内容。

编辑 2：我错过了引用传递查询的问题部分，并描述了我最近测试的使用 VBA 进行无 DNS 连接的过程。我测试了直通连接，它工作正常。唯一的区别在于您需要保留“ODBC”的 ODBC 连接字符串；前缀：

ODBC;Driver{SnowflakeDSIIDriver};server=<your_URL_everything_before_snowflakecomputing.com>.snowflakecomputing.com;uid=greg;pwd=xxxxxx

编辑：我忘记并正在添加的一件事...内置的 Access 数据引擎无法让我使用无 DNS 的连接进行连接。该代码显示它正在使用 ActiveX 数据对象 (ADO)。您需要在您的 VBA 项目中添加对它的引用：

' For the account, use everything after https:// up to and including 
' snowflakecomputing.com in your URL when connecting to Snowflake using the web UI. 
 
Const SNOWFLAKE_ACCOUNT = "<your_account>.<your_region>.snowflakecomputing.com"
Const SNOWFLAKE_USER = "greg"
Const SNOWFLAKE_PASSWORD = "xxxxx"

Public Sub Main()
    Dim odbc As String
    Dim sfCon As ADODB.Connection
    Set sfCon = OpenDatabaseConnection(GetConnectionString())
    If Not sfCon Is Nothing Then
        'Use the connection here...
        sfCon.Close
    End If
End Sub

Private Function GetConnectionString()

    GetConnectionString = "Driver={SnowflakeDSIIDriver}" + _
                          ";server=" + SNOWFLAKE_ACCOUNT + _
                          ";uid=" + SNOWFLAKE_USER + _
                          ";pwd=" + SNOWFLAKE_PASSWORD + _
                          ";network_timeout=60" + _
                          "login_timeout=60"

End Function


Public Function OpenDatabaseConnection(ConnString As String) As ADODB.Connection
    On Error GoTo Handler
    Dim database As ADODB.Connection
    Set database = New ADODB.Connection
    
    With database
        .ConnectionString = ConnString
        .ConnectionTimeout = 60
        .Open
    End With
     
    Set OpenDatabaseConnection = database
     
    Exit Function
Handler:
    MsgBox "Error: " + Err.Description
End Function