Office中国论坛/Access中国论坛

标题: 请问如何运行存储过程 [打印本页]

作者: rocket204 时间: 2007-9-19 10:11
标题: 请问如何运行存储过程
我的是ADP文件格式,连接了SQL数据库,请问如何调用存储过程 into_use
谢谢!

作者: rocket204 时间: 2007-9-21 08:45
怎么没有人回答的,
谢谢!

作者: zhaoxyong 时间: 2007-12-2 21:09
标题: 用ADO执行存储过程(ADP中)
Dim rst1 As New ADODB.Recordset
  Dim cmdObject As New ADODB.Command
  Dim parInput1 As ADODB.Parameter
  Dim parInput2 As ADODB.Parameter
  Dim parInput3 As ADODB.Parameter
  Dim parInput4 As ADODB.Parameter

  Dim parOutput1 As ADODB.Parameter 'output
  Dim parOutput2 As ADODB.Parameter  'output

  Dim strSQL As String
  Dim rq2 As String

  cmdObject.ActiveConnection = CurrentProject.Connection  '设定后端连接
cmdObject.CommandText = "tyms_prt_yzyl_kq" '设定要执行的存储过程名
cmdObject.CommandType = adCmdStoredProc '设定类型为存储过程

'建立输入参数的第一种方法
Set parInput1 = cmdObject.CreateParameter("flh", adVarChar, adParamInput, 100, Me.flh)
cmdObject.Parameters.Append parInput1

Set parInput2 = cmdObject.CreateParameter("rq2", adChar, adParamInput, 10, rq2)
cmdObject.Parameters.Append parInput2

Set parInput3 = cmdObject.CreateParameter("TZDM_all", adVarChar, adParamInput, 200, "a,h,d,ly,")
cmdObject.Parameters.Append parInput3

Set parInput4 = cmdObject.CreateParameter("ck", adChar, adParamInput, 40, Me.ck)
cmdObject.Parameters.Append parInput4

'如果在 Type 参数中指定数字型数据类型（adNumeric 或 adDecimal），也必须设置 NumericScale 和 Precision 属性。

Set parOutput1 = cmdObject.CreateParameter
parOutput1.Name = "yzyl"
parOutput1.Direction = adParamOutput
parOutput1.Type = adVarChar
parOutput1.Size = 18
parOutput1.NumericScale = 18 '******************
parOutput1.Precision = 2  '**********************

cmdObject.Parameters.Append parOutput1

Set parOutput2 = cmdObject.CreateParameter
parOutput2.Name = "kq"
parOutput2.Direction = adParamOutput
parOutput2.Type = adVarChar
parOutput2.Size = 18
parOutput2.NumericScale = 18
parOutput2.Precision = 2

cmdObject.Parameters.Append parOutput2

cmdObject.Execute  '运行存储过程

Me.yzyl = parOutput1
Me.kq = parOutput2

Set cmdObject = Nothing

作者: laomao 时间: 2007-12-5 14:09
currentproject.connection.execute "存储过程"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)