求VB调用SQL server 2000存贮过特程的方法

2005-03-22 04:26:12 123 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Fragment与activity之间的通信 Fragment与activity的两种通信方式 Fragment与activity之间有多种通信方式，今天我们主要说两种通信方式，直接在一个activity传值给Fragment的方法和Fragment直接调用Activity中的public方法 Fragment直接调用Activity中的public方法 activity传值给fragment，在这其中我们首先得使用Bundle方法，首... 阅读详情

还有如何建立它索引来提高速度。请尽量说得详细点。 QQ4872423 liangzhunyu@yahoo.com.cn

...全文

【Android】Fragment与Activity间通信知识总结就是在MainActivity进行动态注册时，把data通过构造方法传参的形式传给fragment，所以要对fragment类进行修改。我这里有两个碎片在MainActivity上放着，并且他们各自都有一个按钮和文本，按钮用来发送数据，文本用来接收显示数据。这样，当数据发生变化时，我们可以通过这个变量来调用对应的实现，以通知数据变化。是一个用于携带数据的键值对集合，它可以保存各种类型的数据，本身是一个实现了。接口的类，因此它可以被序列化以便在组件之间传递。方法则是在视图创建完成后调用的，使用。阅读详情

liangzhunyu

应用实例 27,579 成员 68,540 内容

+ 关注 + 加入社区

切换为时间正序

davytao1018 2005-03-23

打赏
举报

Public Function exec_copyRes(ByVal dogNo As String, ByVal sResID As String, ByVal sSourceDBID As String, _
ByVal iSourceNodeID As Integer, ByVal sTargetDBID As String, ByVal iTargetNodeID As Integer) _
As String

Dim i As Integer
Dim j As String
Dim strCnn As String '连接字符串
Dim cnn2 As New ADODB.Connection
Dim mycommand As ADODB.Command '命令
Dim rstByQuery As ADODB.Recordset '结果集
Dim flagError As String

On Error GoTo dealwitherror:

'---------------
flagError = "连接数据库"
strCnn = strConn.strGetConn()

cnn2.Open strCnn
cnn2.CursorLocation = adUseClient '设置为客户端

'-----------------
flagError = "设置存储过程参数"

Set mycommand = New ADODB.Command
Set param = New ADODB.Parameter

Set param = mycommand.CreateParameter("name1", adVarChar, adParamInput, 5, Trim(dogNo))
mycommand.Parameters.Append param

Set param = mycommand.CreateParameter("name2", adVarChar, adParamInput, 16, Trim(sResID))
mycommand.Parameters.Append param

Set param = mycommand.CreateParameter("name3", adVarChar, adParamInput, 3, Trim(sSourceDBID))
mycommand.Parameters.Append param

Set param = mycommand.CreateParameter("name4", adInteger, adParamInput, 4, iSourceNodeID)
mycommand.Parameters.Append param

Set param = mycommand.CreateParameter("name5", adVarChar, adParamInput, 3, Trim(sTargetDBID))
mycommand.Parameters.Append param

Set param = mycommand.CreateParameter("name6", adInteger, adParamInput, 4, iTargetNodeID)
mycommand.Parameters.Append param

Set param = mycommand.CreateParameter("name7", adSmallInt, adParamOutput, 2, iErrNo)
mycommand.Parameters.Append param

Set param = mycommand.CreateParameter("name8", adVarChar, adParamOutput, 200, Trim(sRetMsg))
mycommand.Parameters.Append param

mycommand.ActiveConnection = cnn2 '指定该command 的当前活动连接

mycommand.CommandType = adCmdStoredProc '表明command 为存储过程

mycommand.CommandText = " sp_CopyResToOtherDB " 'myprocedure 是你要调用的存储过程名称

'-------------------------------
flagError = "执行存储过程"

mycommand.Prepared = True

Set rstByQuery = mycommand.Execute()

i = mycommand.Parameters("name7").Value

j = mycommand.Parameters("name8").Value

exec_copyRes = i & j

'-----------------------------------------------------
cnn2.Close
Set cnn2 = Nothing
Set mycommand = Nothing
Set rstByQuery = Nothing
exec_copyRes = i & j

Exit Function

dealwitherror:
exec_copyRes = flagError & "出错，操作失败"

End Function

Public Function strGetConn() As String
strGetConn = "DSN=test;uid=sa;pwd="
End Function

求VB调用SQL server 2000存贮过特程的方法

相关推荐