如何用vb调用存储过程？谢谢大家了

2007-01-05 03:25:05 254 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

4.Oracle 在删除表、表空间、用户时如何释放磁盘空间 1. drop表执行drop table xx 语句 drop后的表被放在回收站(dba_recyclebin)里，而不是直接删除掉。这样，回收站里的表信息就可以被恢复，或彻底清除。通过查询回收站dba_recyclebin获取被删除的表信息，然后使用语句 flashback table STUDENT_INFO_NEW to before drop rename to STUDENT_INFO_COPY; 格式：flashback table <user_recyclebin.object_na 阅读详情

...全文

误 drop table 的恢复因为失误，误 drop table相应的表阅读详情

zerofinish

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

zerofinish 2007-01-06

打赏
举报

大家帮帮我啊

zq972 2007-01-06

打赏
举报

该范例使用 Append 和 CreateParameter 方法执行具有输入参数的存储过程。

Public Sub AppendX()

Dim cnn1 As ADODB.Connection
Dim cmdByRoyalty As ADODB.Command
Dim prmByRoyalty As ADODB.Parameter
Dim rstByRoyalty As ADODB.Recordset
Dim rstAuthors As ADODB.Recordset
Dim intRoyalty As Integer
Dim strAuthorID As String
Dim strCnn As String

' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn
cnn1.CursorLocation = adUseClient

' 使用单一参数打开命令对象。
Set cmdByRoyalty = New ADODB.Command
cmdByRoyalty.CommandText = "byroyalty"
cmdByRoyalty.CommandType = adCmdStoredProc

' 获取参数值并追加参数。
intRoyalty = Trim(InputBox("Enter royalty:"))
Set prmByRoyalty = cmdByRoyalty.CreateParameter("percentage", _
adInteger, adParamInput)
cmdByRoyalty.Parameters.Append prmByRoyalty
prmByRoyalty.Value = intRoyalty

' 通过执行命令创建记录集。
Set cmdByRoyalty.ActiveConnection = cnn1
Set rstByRoyalty = cmdByRoyalty.Execute

' 打开 Authors 表以获取作者姓名进行显示。
Set rstAuthors = New ADODB.Recordset
rstAuthors.Open "authors", cnn1, , , adCmdTable

' 打印记录集中的当前数据，从 Authors 表中添加作者姓名。
Debug.Print "Authors with " & intRoyalty & " percent royalty"
Do While Not rstByRoyalty.EOF
strAuthorID = rstByRoyalty!au_id
Debug.Print " " & rstByRoyalty!au_id & ", ";
rstAuthors.Filter = "au_id = '" & strAuthorID & "'"
Debug.Print rstAuthors!au_fname & " " & rstAuthors!au_lname
rstByRoyalty.MoveNext
Loop

rstByRoyalty.Close
rstAuthors.Close
cnn1.Close

End Sub

如何用vb调用存储过程？谢谢大家了

相关推荐