Запрос HP QC 12 и MS Access

Question

В настоящее время я пытаюсь выяснить способ подключения к HP QC 12 через MS Access и импортировать данные, найденные в таблице, с помощью простого запроса. Тем не менее, я с трудом получаю данные QC HP в полезный запрос.

Я пытался два пути до сих пор:

Public Function import_HPQC() 
Dim QCConnection 
Dim Com 
Dim HPQC_RST As TDAPIOLELib.Recordset 

Set QCConnection = CreateObject("TDApiOle80.TDConnection") 

QCConnection.InitConnectionEx <> 
QCConnection.login <>, <>) 
QCConnection.Connect <>, <> 
QCConnection.IgnoreHTMLFormat = True 

Com.CommandText = "SELECT * FROM bug" 
Com.Execute 

Set HPQC_RST = Com.Execute 

rcount = 0 

HPQC_RST.First 
    Do Until HPQC_RST.EOR 
     rcount = rcount + 1 
     HPQC_RST.Next 
    Loop 

MsgBox (rcount) 

QCConnection.Logout 

End Function 

Это первый способ работает так, что я в состоянии, по крайней мере, получить точное количество записей, что содержится в жуке, но я могу» Пройдите эту часть. Я не могу понять, как просто запустить вставку против HPQC_RST.

Другой способ, который я пробовал, в основном то же самое, но вместо выбранного запроса я пытаюсь определить BugFactory.NewList ("") как набор записей, но это тоже не работает. Я могу пропустить BugList следующим образом, но я думаю, что это действительно беспорядочное решение, и я бы скорее просто добавил все из ошибок непосредственно в таблицу MS Access.

Set BugFactory = QCConnection.BugFactory 
Set BugList = BugFactory.NewList(“”) 

    For Each Bug In BugList 
     HPQC_Table.AddNew 
     HPQC_Table![ID] = Bug.Field("BG_BUG_ID") 
     HPQC_Table.Update 
    Next 

Любая помощь будет принята с благодарностью, поскольку я работаю над этим в течение нескольких дней и добился очень большого прогресса.

Answer 1

Вы подключаетесь к API, а не к фактической базе данных. Если API предоставляет только объекты, подобные наборам записей, которые вы можете перебрать, это, вероятно, то, что вам нужно будет сделать.

(/ я чуть улыбаясь на остатки TestDirector в названиях объектов)