Re: Need to update one field in test plan in alm

William and avinash

Thkq both for ur help ....

the below code is working fine :) :)

Thkq once again

Sub Update_Tests_Fields()
    Dim td As New TDConnection
    Dim com As TDAPIOLELib.Command
    Dim RecSet As TDAPIOLELib.Recordset
    Dim rng As Range
   
    Set rng = Sheets("Sheet1").Range("A1:A10")
    
    td.InitConnectionEx "http://usc0/qcbin"
    td.Login "username", "passwrd"
    td.Connect "Domain", "prjt"
    
    Set com = td.Command
    
    For Each t In rng
        com.CommandText = "Update TEST Set TS_USER_03='" & t.Offset(0, 1) & "' where TS_TEST_ID='" & t & "'"
        Set RecSet = com.Execute
    Next

    Set tfact = Nothing
    td.Logout
    td.Disconnect
    td.ReleaseConnection
    Set td = Nothing

End Sub