База данных запросов через Excel VBA

Question

Я новичок в Excel VBA. Я хочу запросить данные из базы данных Teradata и предоставить результат в строках листа excel. Когда я пишу код ниже:

Private Sub CommandButton1_Click() 
    Dim conn As Connection 
    Dim rec1 As Recordset 
    Dim thisSql As String 
    Set conn = New Connection 
    conn.Open "Driver=Teradata; DBCName=" & DBCName & ";UID=" & UID & ";PWD=" & PWD 
    thisSql = "simple select qyery here" 
    With .QueryTables.Add(Connection:=conn, Destination:=.Range("A1")) 
     .Sql = thisSql 
     .Name = "data" 
     .FieldNames = True 
     .Refresh BackgroundQuery:=False 
    End With 
End Sub 

Я получаю ошибку говоря «ошибка компилятора: определяемые пользователем тип не определен»

как преодолеть эту ошибку? Нужно ли включать что-либо в код?

Пожалуйста, помогите

Я использую MSVisualBasic 6,5 редактор

Answer 1

Привет Я думаю, это было бы нужно, как записи объект соединения при использовании QueryTables.Add. Я изменил ваш код и пробовал его следующим образом:

Dim conn As adodb.Connection 
Dim rec1 As adodb.Recordset 
Dim thisSql As String 

Set conn = New adodb.Connection 

conn.Open your_connection_string 

thisSql = "your query here" 

Set rec1 = New adodb.Recordset 
rec1.Open thisSql, conn 

With Sheet3.QueryTables.Add(Connection:=rec1, Destination:=Sheet3.Range("A1")) 
    .Name = "data" 
    .FieldNames = True 
    .Refresh BackgroundQuery:=False 
End With