Excute query

 

 

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