0

クエリしている SQL テーブルのパラメーター化されたクエリを実行することになっているコードがいくつかあります。これを行う方法は、指定されたセル (Z1) があり、列の 1 つから入力値を取得し、クエリを自動的に更新して結果を Excel テーブルに表示することになっています。一般的な ODBC エラーであることを示す実行時エラー '1004' が表示され続けますが、何が起こっているのかわかりません。これが私が接続しているデータベースです:データベース

SQL Express を使用しているため、サーバーは .\SQLEXPRESS です。

これが私が持っているコードです:

Sub ParameterQueryExample()
'---creates a ListObject-QueryTable on Sheet1 that uses the value in 
'        Cell Z1 as the ProductID Parameter for an SQL Query
'        Once created, the query will refresh upon changes to Z1. 

Dim sSQL As String
Dim qt As QueryTable
Dim rDest As Range


'--build connection string-must use ODBC to allow parameters
Const sConnect = "ODBC;" & _
    "Driver={SQL Server Native Client 10.0};" & _
    "Server=.\SQLEXPRESS;" & _
    "Database=TSQL2012;" & _
    "Trusted_Connection=yes"


'--build SQL statement
sSQL = "SELECT *" & _
        " FROM TSQL2012.Production.Products Products" & _
        " WHERE Products.productid = ?;"


'--create ListObject and get QueryTable
Set rDest = Sheets("Sheet1").Range("A1")
rDest.CurrentRegion.Clear  'optional- delete existing table


Set qt = rDest.Parent.ListObjects.Add(SourceType:=xlSrcExternal, _
    Source:=Array(sConnect), Destination:=rDest).QueryTable


'--add Parameter to QueryTable-use Cell Z1 as parameter
With qt.Parameters.Add("ProductID", xlParamTypeVarChar)
    .SetParam xlRange, Sheets("Sheet1").Range("Z1")
    .RefreshOnChange = True
End With


'--populate QueryTable
With qt
    .CommandText = sSQL
    .CommandType = xlCmdSql
    .AdjustColumnWidth = True  'add any other table properties here
    .BackgroundQuery = False
    .Refresh
End With


Set qt = Nothing
Set rDest = Nothing
End Sub
4

1 に答える 1

1

コントロール パネル\システムとセキュリティ\管理ツールで ODBC データ ソース管理プログラムを開き、コードで指定したドライバーが"Driver={SQL Server Native Client 10.0};"[ドライバー] タブのドライバーと一致することを確認します。不一致により、このエラーが発生する可能性があります。

于 2013-07-18T15:44:53.650 に答える