--------------------------------- as Function returnP() Dim cmd As New ADODB.Command '@return_value"这个参数在输入参数的最前面,名称是固定的 cmd.Parameters.Append cmd.CreateParameter("@p", adInteger, adParamOutput) cmd.CommandText = "sp_2" cmd.Execute Dim i As Integer For i = 0 To cmd.Parameters.Count - 1 Set cmd.ActiveConnection = Nothing End Function '----------测试--------- ? returnP() |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-5-3 15:30 , Processed in 0.065620 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.