关于插入数据问题
想在Oracle中插入一条记录的两个字段的内容set conn = createobject("**")
set res = createobject("")
conn.open provider
res.open sql,conn
sql语句直接在pl/sql 中是可以成功插入数据的，但是用以上语句在QTP中无法插入数据，只是一直停在
res.open sql,conn这句这里
两个字段一个是关键字，一个非空 楼主给的脚本全一点, 这样看不出来哦. 这是我写的一个删除记录的函数，是否对你有帮助.
##########################################
Dim Cnn '定义连接变量
Dim Rst ' 定义结果集变量
Dim strCnn '定义连接字符串变量
Dim Cmd ' 定义执行SQL语句对象
Dim strSQL 'SQL语句串
strCnn="Provider=SQLOLEDB.1;Password=sa;Persist 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) dbConnect = "Provider=MSDAORA.1;User ID=testwxwcn;PassWord=testwxwcn;Data Source=orcl;Persist 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 你那是连oracle数据库么-.-！ 是，你的意思是写错了？ 我怎么记得是连ms sql的串是这样写的-.-! 是可以连上的，不会一定要用cmd去连吧 我在数据库中新建一张表，表中没有设主键、非空等，用相同语句是可以插入数据的，估计是跟我要插得表的原因导致数据无法插入，请问在对表进行增删更新，要注意些什么，主键、非空？ 前面那个问题，是一直停在Res.Open Sql,Conn这句，无法进行下去，请问有什么办法解决这个问题？ 你sql语句没写怎么执行，res是取记录，你不到数据库拿记录，只要conn.execute sql就可以了
页:
[1]
