Question

我正在尝试通过VBA将Teradata Sql助手连接到Excel。我想在VBA中编写一个查询并将结果打印在Sheet中。我已经完成了之前的所有解释，但我仍然无法弄清楚它为什么不起作用。

Dim strConn As String
strConn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TERADATA"

Dim Query As String
Query = "select * FROM P_ZC074_TMIS.FACT_TMX_PL_NII_TP_FX where CNT_ORG ='5872196'"

Dim rs As New ADODB.Recordset
rs.Open Query, strConn

Sheet1.Range("A1").CopyFromRecordset rs

我已经激活了Microsoft ActiveX Data Objects 6.1库但是我收到“查询超时过期”错误;我想我必须使用CommandTimeout来解决这个问题（假设它只是那个）但我不知道如何在VBA代码中编写它。

提前致谢。

Answer 1

您需要首先打开与数据库的连接，然后将其传递给您尝试打开的记录集，类似于：

var words = ['Hello']

$.post("abc.com:3000/service/rest/",
    JSON.stringify({
        'api_key': 'YOUR API KEY',
        'params' : words
    }), function(response){
        console.log(response)
    }
)

在VBA中执行的SQL查询

1 个答案: