QTP利用ADO删除数据库

QTP利用ADO删除数据库 ''**************************************************************************************************************************************** '*******************************************删除数据库记录方法一 *************************************************************** '***************************************************************************************************************************************** Dim res,Conn,strConn,sql,Cmd strConn="DBQ=D:\TestData.accdb;DefaultDir=D:\;Driver={Microsoft Access Driver (*.mdb, *.accdb)};DriverId=25;FIL=MS Access;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\ac.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" '''创建数据库链接 sql="delete from usersinfo where uid=6 " '建立数据库连接对象 Set Conn=CreateObject("adodb.connection") '打开数据库连接 Conn.open strConn '建立命令对象 Set Cmd=CreateObject("adodb.command") Cmd.ActiveConnection=Conn'指定当前命令对象属于哪个Connection Cmd.CommandText=sql'指定参数 '执行更新 Cmd.Execute Conn.close '释放资源 Set res=Nothing Set Conn=Nothing '**************************************************************************************************************************************** '*******************************************删除数据库记录方法二 ************************************************************** '***************************************************************************************************************************************** Dim res,Conn,strConn,sql strConn="DBQ=D:\TestData.accdb;DefaultDir=D:\;Driver={Microsoft Access Driver (*.mdb, *.accdb)};DriverId=25;FIL=MS Access;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\ac.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" '创建数据库链接 set Conn=CreateObject("adodb.connection") Conn.Open strConn sql="delete from usersinfo where uid=7 " Conn.Execute sql Conn.Close