'声明变量 Strong=连接字符串 Res执行sql结果 Cmd为sql详细版 此操作oracle数据库使用,如果操作的微软的SQL替换字符串即可
Dim StrCon
Dim Res,Cmd
'调用ADODB接口并且赋值
Set Res = CreateObject("ADODB.Recordset")
Set Cmd = CreateObject("ADODB.Command")
'以下为建立连接
StrCon ="DSN=QTP数据库检查点;UID=ACC_READERWD=READ_123;DBQ=25.ACCFD;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;" '根据自己本地机器链接字符串修改
Cmd.activeconnection=StrCon
Cmd.CommandType =1
'以下为执行sql ,根据实际情况替换之
Cmd.CommandText="delete from accfund.memb_account_add t where t.maa_memb_id='00026455';"
Set Res = Cmd.Execute()'res为接收SQL执行返回值使用
Set Res=nothing
Set Cmd.activeconnection=nothing
Set Cmd=nothing作者: clack-kent 时间: 2014-6-5 09:38
建议楼主去看下一些不错的自动化测试博客,公司级自动化测试需要使用自动化测试框架,框架看上去有点难,实际上你了解了框架的思想之后就发现没那么难,你要学的东西太多了,框架主题思想就是代码与数据驱动分开,业务逻辑与框架机构分开来设计作者: jiluyang2010 时间: 2014-6-5 13:15
刚开始就可以连接了啊,获取到数据后再往数据库里插入数据,要注意的是插入语句的格式要按你装的数据库的格式来,要不然就会出错了