Excel VBA Connect для IBM DB2 - PullRequest
Новая
       62

Excel VBA Connect для IBM DB2

0 голосов
/ 15 мая 2018

В настоящее время я пытаюсь запросить экземпляр DB2 из VBA, но мне трудно найти подходящую документацию или предыдущие вопросы по стеку, которые дают полные ответы.

Когда я запускаю ниже, я получаю сообщение об ошибке:

"SQL1032N Команда запуска менеджера баз данных не введена. SQLSTATE = 57019"

Текущий код подключения: 

Sub connsonnconn()

    Dim conn As Object 'Variable for ADODB.Connection object
    Dim rs As Object 'Variable for ADODB.Recordset object

    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    conn.ConnectionString = "Provider=IBMDADB2.1;Server=servername;Database=dbname;Port=port;Data Source=DB2;ProviderType=OLEDB;UID=uid;PWD=pw"
    conn.Open

    rs.Open "Select * .....", conn
    rs.Close
    conn.Close

End Sub

Спасибо, yall

1 Ответ

0 голосов
/ 24 мая 2018

Просто для справки для любого, кто наткнется на этот вопрос в будущем, я смог успешно соединиться со следующим: 

Dim conn As Object 'Variable for ADODB.Connection object
Dim rs As Object 'Variable for ADODB.Recordset object

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.ConnectionString = "Provider=IBMDADB2.1;UID=" & username & ";PWD=" & password & ";Data Source=ABCDB1;ProviderType=OLEDB"
conn.Open

Примечание: имя пользователя и пароль - это строки, которым присвоены соответствующие учетные данные

Это работает на моем компьютере с Windows 7, установленным клиентом DB2 и Excel 2010 через частную / безопасную сеть LAN

...