TestDirector常见FAQ

1. RPC错误

一般来说，如果你安装TD后，修改administrator后，就会报RPC错误。解决办法：执行dcomcnfg.exe，找到TD进程，修改密码的地方，修改到新的密码就可以了。

2.不能自动发邮件

  设置邮件自动分发要做如下操作：
(1)在customize的configure mail中设置EAMIL的发送条件。　
(2）在Sit Administrator的projects lab中选中E-mail defects automaticlly复选框。
(3)在Site Config lab中设置MAIL-FORMAT为html或是Text;在MAIL-INTERVAL中设置间隔时间，
(4)在Site Administrator 的User页面给用户设置Email地址。

3. TD的备份

１、备份DomsInfo目录。默认在C:/Program Files/Common Files/Mercury Interactive下。这个目录包含了Doms.mdb文件（用户信息和工程列表）、connection strings（连接字符串）、parameters（参数）、global style sheets（全局风格表）、the database template（Empty_DB.mdb）（一些临时数据）2。备份安装目录。如：TD_Dir。包含每个工程的自动测试、附件、设置、风格列表。3。备份数据库。Access不用备份，它包括在第二部分中。

4.TD还原

 1） 在另一台服务器上安装好Test Directory（数据库不能和原来的TD数据库在同一台机子上）
 2） 进入site administrator 在 default domain 下建立和原project 相同名称的project
        例如原来的服务器上project 名字叫xxx ,在新的服务器上建立一个名字为xxxx的project
  3） 建立好Project后 ，将原来服务器上TD_dir（就是那个安装TD时需要设置成共享文件夹的目录，可能和
       你自己机子上的名称不同）目录下Default目录下需要转移的project文件复制到你在新服务器上建立的
       project文件夹下，复制时请不要复制project 文件夹下的Dbid.ini文件。例如，你需要转移default domain 下面   的project ehr， 在原来的服务器上TD_dir文件夹下将ehr文件夹复制到新的服务器 TD_dir文件夹下default 文件夹下覆盖掉创建project 时建立的文件夹ehr，复制时去掉Dbid.ini文件。
  4） 还原TD数据库。 首先须需要备份原来TD的数据库。 当你在新建project 时，会选择一台数据库服务器，备份好原来的数据库，通过SQL企业管理器打开新建project 的数据库，假设project 名字叫xxx，在数据库服务器上会创建一个名字叫default_xxx_db，在此数据库上还原刚才备份的数据库
  5） 更改当前数据库中 SQL Server 用户与 Microsoft? SQL Server? 登录之间的关系
       数据库还原后用户TD并没有操作default_ehr_db 数据库的权限，所以TD还不能正常使用，需要使用下面语句
       exec sp_change_users_login 'update_one' , 'td' , 'td

6）如何提交缺陷到CQ服务器

在WorkFlow中增加函数Public Sub CreateCQDefect()
Dim gettdid, strCQID
' '连接到TD控件
Set tdc = CreateObject("TDAPIOLE.TDConnection")
 Call tdc.InitConnectionEx("http://xxxxxxx/tdbin")
 If (tdc.Connected = False) Then
   Exit Sub
 End If
 
'连接到TD，用用户名和密码
Call tdc.ConnectProjectEx("default", "xxxx", "admin", "qatest")
  If (tdc.ProjectConnected = False) Then
    tdc.ReleaseConnection
    Exit Sub
  End If
'连接到TD命令，查询出TD的defetid.
 Set com = tdc.Command
     com.CommandText = "select SQ_SEQ_VALUE from SEQUENCES where SQ_SEQ_NAME='BUG'"
 Set recSet = com.Execute
    gettdid = CInt(recSet.FieldValue(0))
'得到defect的模式
 Set bf = tdc.BugFactory
 Set bg = bf.Item(gettdid)
 strCQID = bg.Field("BG_USER_01")
 If Len(strCQID) = 0 Then
    entityDef.SetFieldValue "State", "Booked"
    entityDef.SetFieldValue "CaseID", "Booked"
    entityDef.SetFieldValue "FromDefectID", "Booked"
    entityDef.SetFieldValue "Headline", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Project", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Module", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Function", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Serverity", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Priority", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Owner", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Symptoms", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Origin", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "SubType", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "TestTimes", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Test_Tag", bg.Field("BG_SUMMARY")
    '--------------------------------------------------------
    entityDef.SetFieldValue "Description", strDescription
    entityDef.SetFieldValue "Submitter", tdc.User.UserName
    entityDef.SetFieldValue "Submit_Date", Date
    entityDef.SetFieldValue "TD_ID", strDefectID
   
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    entityDef.SetFieldValue "Company", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Customzation", bg.Field("BG_SUMMARY")
    entityDef.SetFieldValue "Edition", bg.Field("BG_SUMMARY")
    '--------------------------------------------------------------
    '-------------------------------------------------------------
   Dim strCheck
   strCheck = entityDef.Validate
   If (strCheck = "") Then
     entityDef.Commit
     'Get ID of new ClearQuest defect and save to field in TestDirector.
     strCQID = entityDef.GetFieldValue("id").GetValue
     bg.Field("BG_USER_30") = strCQID
     bg.Post
     bg.Refresh
     Call MsgBox("Defect has been created in ClearQuest with an ID of '" & strCQID & "'.", 64, "ClearQuest Defect Created")
   Else
     MsgBox ("ClearQuest Error")
   End If
   
 End If

End Sub