VBA 中使用 KDB+qodbc.dll 的 ADO

使用VBA中的ADO连接KDB+/qodbc.dll

vba
Dim conn As Object
Dim rs As Object
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.ConnectionString = "Provider=qodbc;Driver={KDB+};host=localhost;port=5001;uid=;pwd=;"
conn.Open
'执行SQL查询语句
rs.Open "SELECT * FROM tableName", conn
'遍历记录集
Do Until rs.EOF
    '处理数据
    Debug.Print rs.Fields("columnName").Value
    rs.MoveNext
Loop
'关闭连接
rs.Close
conn.Close