Dim conn,strSql'定义变量 set conn = CreateObject("ADODB.Connection")'创建连接 conn.ConnectionString="DSN=test_access_odbc;DBQ=E:\test.mdb;DriverId=25;FIL=MS
Access;MaxBufferSize=2048;PageTimeout=5;"'设置连接字符串 conn.open'开启连接 'strSql="insert into email_value values(11,'123')"'设置插入语句 'strSql="update email_value set email_value='tester' where ID=11" strSql="delete from email_value where ID=11" If conn.state=0 Then'如果连接状态为0,表示连接失败,写入reporter对象中,否则表示连接成功 Reporter.ReportEvent micFail,"testing","数据库连接失败" conn.close Set conn = nothing else Reporter.ReportEvent micPass,"testing","数据库连接成功" conn.execute strSql'执行更新语句 conn.close Set conn = nothing End If
查询脚本为:
Dim conn,res,strSql'定义变量 set conn = CreateObject("ADODB.Connection")'创建连接 conn.ConnectionString="DSN=test_access_odbc;DBQ=E:\test.mdb;DriverId=25;FIL=MS
Access;MaxBufferSize=2048;PageTimeout=5;"'设置连接字符串 conn.open'开启连接 Set res = CreateObject("ADODB.RecordSet")'创建一个记录集对象 strSql="select * from email_value"'设置查询雨具 If conn.state=0 Then'如果连接状态为0,表示连接失败,写入reporter对象中,否则表示连接成功 Reporter.ReportEvent micFail,"testing","数据库连接失败" res.close'关闭结果集和连接,并且置为空 Set res = nothing conn.close Set conn = nothing else Reporter.ReportEvent micPass,"testing","数据库连接成功" res.open strSql,conn'执行查询语句 res.MoveFirst'将记录集游标指到记录集的最开始 Do Reporter.ReportEvent micPass,"file",cstr(res(0))+"
: "+cstr(res(1))'循环遍历查询结果,并且保持到reproter对象中,直到记录集到达末尾,循环结束 res.MoveNext Loop until res.eof = true res.close Set res = nothing conn.close Set conn = nothing End If