QTP将错误信息写到数据库中

1、在SQL Server中新建数据库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()

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