关于插入数据问题

shuishixingyu

想在Oracle中插入一条记录的两个字段的内容
set conn = createobject("**")
set res = createobject("")
conn.open provider
res.open sql,conn
sql语句直接在pl/sql 中是可以成功插入数据的，但是用以上语句在QTP中无法插入数据，只是一直停在
res.open sql,conn这句这里
两个字段一个是关键字，一个非空

hqf007

你sql语句没写怎么执行，res是取记录，你不到数据库拿记录，只要conn.execute sql就可以了

shuishixingyu

前面那个问题，是一直停在Res.Open Sql,Conn这句，无法进行下去，请问有什么办法解决这个问题？

shuishixingyu

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

shuishixingyu

是可以连上的，不会一定要用cmd去连吧

dabeixiong

我怎么记得是连ms sql的串是这样写的-.-!

shuishixingyu

是，你的意思是写错了？

dabeixiong

你那是连oracle数据库么-.-！

shuishixingyu

dbConnect = "rovider=MSDAORA.1;User ID=testwxwcnassWord=testwxwcn;Data Source=orclersist 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

liujinkui

这是我写的一个删除记录的函数，是否对你有帮助.
##########################################
Dim Cnn         '定义连接变量
Dim Rst         ' 定义结果集变量
Dim        strCnn '定义连接字符串变量
Dim Cmd ' 定义执行SQL语句对象
Dim strSQL 'SQL语句串

strCnn="rovider=SQLOLEDB.1assword=saersist 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)

sufen2315

楼主给的脚本全一点, 这样看不出来哦.