QTP里修改一个数据库字段的值, 要用Excute query, 而不是open, 参考下面的例子:
rnd_number = Year(now)&Month(now)&Day(now)& Hour(now)&Minute(now)&Second(now)
Set objCon = CreateObject("ADODB.Connection")
Set objRec = CreateObject("ADODB.Recordset")
objCon.Open DataTable.Value("client_admin_db",1)
query = "UPDATE t002_list SET list_status_cde = '-2' WHERE list_name = 'subscriber_list_qtp' "
objCon.Execute query
query = "UPDATE t002_list SET list_name = 'subscriber_list_qtp_"+Cstr(rnd_number)+"' WHERE list_name = 'subscriber_list_qtp' "
objCon.Execute query
objCon.Close
Set objCon = Nothing