(转)QTP将错误信息写到数据库中
上一篇 /
下一篇 2009-03-30 11:45:05
/ 个人分类:QTP
1、在SQLServer中新建数据库QTP,并新建表Q_Message,字段ID,自动增加,字段Message,varchar255
2、在管理工具中新建ODBC的数据源
3、将错误信息存储到数据库中
On Error Resume Next
Dim a,b,c
a=0
b=1
c=b/a
ErrorHandle()
d
ErrorHandle()
Public Function ErrorHandle()
If Err.Number <> 0 Then
DB("Error Num: " & Err.Number & "; Error Src: " & Err.Source & "; Error Desc: " & Err.Descrīption)
End If
End Function
Public Function DB (sql)
Dim cmd,aa
aa="INSERT INTO Q_Message(Message) VALUES ('"&sql&"')"
Set cmd=createobject("adodb.command")
cmd.activeconnection="Driver={SQL Server};Server=TJMDCL-SUNQIANG;Uid=sa;Pwd=sa;DATABASE=QTP;"
cmd.CommandType = 1
cmd.CommandText = aa
cmd.Execute()
Set cmd.activeconnection=Nothing
Set cmd=Nothing
End Function
收藏
举报
TAG: