51Testing软件测试论坛

标题: 关于插入数据问题 [打印本页]

作者: shuishixingyu 时间: 2009-7-31 17:24
标题: 关于插入数据问题
想在Oracle中插入一条记录的两个字段的内容
set conn = createobject("**")
set res = createobject("")
conn.open provider
res.open sql,conn
sql语句直接在pl/sql 中是可以成功插入数据的，但是用以上语句在QTP中无法插入数据，只是一直停在
res.open sql,conn这句这里
两个字段一个是关键字，一个非空

作者: sufen2315 时间: 2009-7-31 18:05
楼主给的脚本全一点, 这样看不出来哦.

作者: liujinkui 时间: 2009-8-1 14:20
这是我写的一个删除记录的函数，是否对你有帮助.
##########################################
Dim Cnn '定义连接变量
Dim Rst ' 定义结果集变量
Dim strCnn '定义连接字符串变量
Dim Cmd ' 定义执行SQL语句对象
Dim strSQL 'SQL语句串

strCnn="

rovider=SQLOLEDB.1

assword=sa

ersist Security Info=True;User ID=sa;Initial Catalog=PLM;Data Source=LIULF"

'********************************************************************
' 函数说明：更新数据库;包括INSERT、DELETE 和 UPDATE操作
' 参数说明：(1)strSql：SQL语句
' 返回结果：无
' 调用方法: UpdateDatabase(strSql)
' ********************************************************************
Sub DeleteDatabase(strSQL)

Set Cnn=CreateObject("adodb.connection")
Set Rst=CreateObject("adodb.recordset")
Set Cmd=CreateObject("adodb.command")
Cnn.open strCnn

   If  (Cnn.State = 0) Then
print "连接数据库失败！"
   else
         print"连接数据库成功！"
End If
Cmd.CommandText = strSQL
Cmd.ActiveConnection = Cnn
Set Rst = Cmd.Execute

Rst.close
Set Rst= Nothing
Set Cmd = Nothing
Cnn.close
Set Cnn = Nothing

End Sub

strSQL="delete from PLMTBL_role where name='设计工程师'"
DeleteDatabase(strSQL)

作者: shuishixingyu 时间: 2009-8-1 17:54
dbConnect = "

rovider=MSDAORA.1;User ID=testwxwcn

assWord=testwxwcn;Data Source=orcl

ersist Security Info=False"
InsertSql = "insert into bm_t_project(project_id,project_no) values (" & i & "," & ProjectNo_Value & ")"
Call Insert_DataBase(Insert_Sql,dbConnect)

调用vbs中脚本
Function Insert_DataBase(Sql,Provider)
  Dim Conn,Res
  Set Conn = CreateObject("ADODB.Connection")
  Set Res = CreateObject("ADODB.RecordSet")
  Conn.Open Provider
  Res.Open Sql,Conn
  Set Conn = Nothing
  Set Res = Nothing
End Function

作者: dabeixiong 时间: 2009-8-1 21:07
你那是连oracle数据库么-.-！

作者: shuishixingyu 时间: 2009-8-3 09:05
是，你的意思是写错了？

作者: dabeixiong 时间: 2009-8-3 22:29
我怎么记得是连ms sql的串是这样写的-.-!

作者: shuishixingyu 时间: 2009-8-4 08:38
是可以连上的，不会一定要用cmd去连吧

作者: shuishixingyu 时间: 2009-8-4 11:31
我在数据库中新建一张表，表中没有设主键、非空等，用相同语句是可以插入数据的，估计是跟我要插得表的原因导致数据无法插入，请问在对表进行增删更新，要注意些什么，主键、非空？

作者: shuishixingyu 时间: 2009-8-4 11:38
前面那个问题，是一直停在Res.Open Sql,Conn这句，无法进行下去，请问有什么办法解决这个问题？

作者: hqf007 时间: 2009-8-6 22:43
你sql语句没写怎么执行，res是取记录，你不到数据库拿记录，只要conn.execute sql就可以了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)