关于存储过程返回值的问题! 试试看:declarea varchar2(100);beginsp_action_ww(1,a);dbms_output.put_line(a);end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 sql plus:SQL> set serverout on SQL> variable dd varchar2(100);SQL> execute sp_action_ww(1,:dd);...SQL> select :dd from dual; 例如我用vb,我想将呢个存储过程的值返回给一个vb的变量 twz,该怎样做啊? 不好意思,都是不明白我是通过记录集连接数据库的,如下:Dim txtsql As StringDim msgtext As StringDim mrc As ADODB.Recordset那应该如何去执行存储过程和赋参数进去啊? 执行sql的函数 executesql(txtsql,msgtext) 就应该到vb里问1.创建、调试存储过程。你可以在数据库中也可以在其他外挂程序的支持下进行存储过程的创建和调试工作。本例中的存储过程代码如下(使用PUBS的MS SQL中的例子库 ):CREATE PROCEDURE myprocedure@job_id smallint,@job_lvl tinyintASSELECT *FROM employeeWHERE job_id < @job_idAND job_lvl > @job_lvl2.在VB中生成一个新的工程,工程有一窗体,一个COMMAND(NAME:COMMAND1) 按钮,一个 MSFlexGrid(NAME:MSFlexGrid1)控件。3.创建连接ADO connection;4.创建命令ADO command;5.创建参数并设置各个参数的属性;6.执行ADO command;7.对数据进行处理;MSFlexGrid显示查询到的数据8.释放连接,退出程序。其中代码如下:在窗体中声明以下变量:Dim cnn1 As ADODB.Connection '连接Dim mycommand As ADODB.Command '命令Dim parm_jobid As ADODB.Parameter '参数1Dim parm_joblvl As ADODB.Parameter '参数2Dim rstByQuery As ADODB.Recordset '结果集Dim strCnn As String '连接字符串在窗体的LOAD事件中加入如下代码:Set cnn1 = New ADODB.Connection '生成一个连接strCnn = "DSN=MYDSN;uid=sa;pwd=" '创建的系统数据源MYDSN指向PUBS数据库cnn1.Open strCnn '打开连接在窗体的UNLOAD中的加入代码如下:cnn1.Close '关闭连接Set cnn1 = Nothing '释放连接在按钮中的代码如下:Dim i As integerDim j as integerSet parm_jobid = New ADODB.ParameterSet mycommand = New ADODB.Command'parm_jobid.Name = "name1"'this line can be ommitedparm_jobid.Type = adInteger '参数类型parm_jobid.Size = 3 '参数长度parm_jobid.Direction = adParamInput'参数方向,输入或输出parm_jobid.value = 100 '参数的值mycommand.Parameters.Appendparm_jobid '加入参数Set parm_joblvl = New ADODB.Parameter'parm_joblvl.Name = "name2"parm_joblvl.Type = adIntegerparm_joblvl.Size = 3parm_joblvl.Direction = adParamInputmycommand.value = 100mycommand.Parameters.Append parm_joblvlmycommand.ActiveConnection = cnn1 '指定该command 的当前活动连接mycommand.CommandText = " myprocedure " 'myprocedure 是你要调用的存储过程名称mycommand.CommandType = adCmdStoredProc '表明command 为存储过程Set rstByQuery = New ADODB.RecordsetSet rstByQuery = mycommand.Execute()i = 0Do While Not rstByQuery.EOFi = i + 1 'i 中保存记录个数rstByQuery.MoveNextLoopMSFlexGrid1.Rows = i + 1'动态设置MSFlexGrid的行和列MSFlexGrid1.Cols = rstByQuery.Fields.Count + 1MSFlexGrid1.Row = 0For i = 0 To rstByQuery.Fields.Count - 1MSFlexGrid1.Col = i + 1MSFlexGrid1.Text = rstByQuery.Fields.Item(i).NameNext '设置第一行的标题,用域名填充i = 0Set rstByQuery = mycommand.Execute()Do While Not rstByQuery.EOFi = i + 1MSFlexGrid1.Row = i '确定行For j = 0 To rstByQuery.Fields.Count - 1MSFlexGrid1.Col = j + 1MSFlexGrid1.Text = rstByQuery (j)'添充所有的列NextrstByQuery.MoveNextLoop '这个循环用来填充MSFlexGrid的内容特殊说明1.Set recordset = command.Execute( RecordsAffected, Parameters, Options ) command.Execute RecordsAffected, Parameters, Options 这是command的两种用法,一种有返回结果集,一种没有返回结果集。RecordsAffected:是指用update、delete操作时所影响的结果,对select的查询,其值为-1;这和在Ms sql server 中的Query Analyzer中的不一样。Query Analyzer中,select、update、delete的结果显示的是实际查、改、删的记录数。Options:指明command的类型,有adCmdText、adCmdTable、adCmdStoredProc等等,用户可见MSDN。2.在参数的类型中,用户可以用varchar来代替integer,系统会帮你自动实施转化;3.本例中仅为带输入参数的存储过程,如果要有输出参数,根据MSDN的材料,用ADO不行。你可以用RDO数据对象,MSDN中有一个例子,此处不做过多赘述;4.可以不用ADO COMMAND对象,也可直接调用ADO CONNECTION的execute方法,结果很类似。 忘记oracle用户的密码 什么是复制的重做日志结构?Oracle为什么要引入这种结构? 对于同个网卡不同端口的侦听器会采用均衡负载吗? 关于通过OCI操作Oracle10g经常出错的问题,请大侠帮忙,非常感谢! 一对多 SQL 语句求教 oracle10g用exp导出的数据库什么导入到oracle8i中来 求子结点的相关信息 ORACLE 问题,大神求详解 sqlldr when的用法 (急) 我安装完oracle9i后,不能进入sql plus???? 高手请赐教。如何才能把可变的 字符串 传到PROCEDURE 的程序里呢。 请教一个计算日期的问题?
SQL> variable dd varchar2(100);
SQL> execute sp_action_ww(1,:dd);
...
SQL> select :dd from dual;
我是通过记录集连接数据库的,如下:
Dim txtsql As String
Dim msgtext As String
Dim mrc As ADODB.Recordset那应该如何去执行存储过程和赋参数进去啊?
executesql(txtsql,msgtext)
1.创建、调试存储过程。你可以在数据库中也可以在其他外挂程序的支持下进行存储过程的创建和调试工作。本例中的存储过程代码如下(使用PUBS的MS SQL中的例子库 ):CREATE PROCEDURE myprocedure
@job_id smallint,
@job_lvl tinyint
AS
SELECT *
FROM employee
WHERE job_id < @job_id
AND job_lvl > @job_lvl2.在VB中生成一个新的工程,工程有一窗体,一个COMMAND(NAME:COMMAND1) 按钮,一个 MSFlexGrid(NAME:MSFlexGrid1)控件。
3.创建连接ADO connection;
4.创建命令ADO command;
5.创建参数并设置各个参数的属性;
6.执行ADO command;
7.对数据进行处理;MSFlexGrid显示查询到的数据
8.释放连接,退出程序。
其中代码如下:
在窗体中声明以下变量:
Dim cnn1 As ADODB.Connection '连接
Dim mycommand As ADODB.Command '命令
Dim parm_jobid As ADODB.Parameter '参数1
Dim parm_joblvl As ADODB.Parameter '参数2
Dim rstByQuery As ADODB.Recordset '结果集
Dim strCnn As String '连接字符串在窗体的LOAD事件中加入如下代码:
Set cnn1 = New ADODB.Connection '生成一个连接
strCnn = "DSN=MYDSN;uid=sa;pwd=" '创建的系统数据源MYDSN指向PUBS数据库
cnn1.Open strCnn '打开连接
在窗体的UNLOAD中的加入代码如下:
cnn1.Close '关闭连接
Set cnn1 = Nothing '释放连接在按钮中的代码如下:
Dim i As integer
Dim j as integer
Set parm_jobid = New ADODB.Parameter
Set mycommand = New ADODB.Command
'parm_jobid.Name = "name1"
'this line can be ommited
parm_jobid.Type = adInteger '参数类型
parm_jobid.Size = 3 '参数长度
parm_jobid.Direction = adParamInput
'参数方向,输入或输出
parm_jobid.value = 100 '参数的值
mycommand.Parameters.Append
parm_jobid '加入参数Set parm_joblvl = New ADODB.Parameter
'parm_joblvl.Name = "name2"
parm_joblvl.Type = adInteger
parm_joblvl.Size = 3
parm_joblvl.Direction = adParamInput
mycommand.value = 100
mycommand.Parameters.Append parm_joblvlmycommand.ActiveConnection = cnn1 '指定该command 的当前活动连接
mycommand.CommandText = " myprocedure " 'myprocedure 是你要调用的存储过程名称
mycommand.CommandType = adCmdStoredProc '表明command 为存储过程
Set rstByQuery = New ADODB.Recordset
Set rstByQuery = mycommand.Execute()
i = 0
Do While Not rstByQuery.EOF
i = i + 1 'i 中保存记录个数
rstByQuery.MoveNext
Loop
MSFlexGrid1.Rows = i + 1
'动态设置MSFlexGrid的行和列
MSFlexGrid1.Cols = rstByQuery.Fields.Count + 1
MSFlexGrid1.Row = 0
For i = 0 To rstByQuery.Fields.Count - 1
MSFlexGrid1.Col = i + 1
MSFlexGrid1.Text = rstByQuery.Fields.Item(i).Name
Next '设置第一行的标题,用域名填充i = 0
Set rstByQuery = mycommand.Execute()
Do While Not rstByQuery.EOF
i = i + 1
MSFlexGrid1.Row = i '确定行
For j = 0 To rstByQuery.Fields.Count - 1
MSFlexGrid1.Col = j + 1
MSFlexGrid1.Text = rstByQuery (j)
'添充所有的列
Next
rstByQuery.MoveNextLoop '这个循环用来填充MSFlexGrid的内容特殊说明
1.Set recordset = command.Execute( RecordsAffected, Parameters, Options ) command.Execute RecordsAffected, Parameters, Options 这是command的两种用法,一种有返回结果集,一种没有返回结果集。
RecordsAffected:是指用update、delete操作时所影响的结果,对select的查询,其值为-1;这和在Ms sql server 中的Query Analyzer中的不一样。Query Analyzer中,select、update、delete的结果显示的是实际查、改、删的记录数。
Options:指明command的类型,有adCmdText、adCmdTable、adCmdStoredProc等等,用户可见MSDN。
2.在参数的类型中,用户可以用varchar来代替integer,系统会帮你自动实施转化;
3.本例中仅为带输入参数的存储过程,如果要有输出参数,根据MSDN的材料,用ADO不行。你可以用RDO数据对象,MSDN中有一个例子,此处不做过多赘述;
4.可以不用ADO COMMAND对象,也可直接调用ADO CONNECTION的execute方法,结果很类似。