ACCESS ADP组合框的行来源如何使用参数存储过程?
来源:互联网 发布:2015nba总决赛库里数据 编辑:程序博客网 时间:2024/05/02 04:48
组合框的行来源如何使用参数存储过程?
专题地址:
http://access911.net/?kbid;72FAB11E10DCE7F3
简述:
组合框的行来源如何使用参数存储过程?《ADP》
阅读前需掌握:
熟练掌握 VBA 编程;熟练掌握 T-SQL 语言;熟练掌握 ADO
难度等级:
55
组合框的行来源中只能写存储过程名,无法加上参数,我们这里用值列表绕过次限制
'创建本示例需要用的参数存储过程
'表名和字段名请按你的实际情况填写
Dim strSQL As String
strSQL = "Create Procedure procCreateMyList(@P1 int =0,@P2 nvarChar(50)='') As SELECT field1 FROM tblTable1 WHERE field2 = @P1 and field3 like @P2"
CurrentProject.Connection.Execute strSQL
End Sub
Private Sub Form_Open(Cancel As Integer)
'将本过程放在窗体的打开事件中,设定组合框的行来源
Me.ComboBox.RowSourceType = "value list"
Me.ComboBox.RowSource = GetRowSource("p2", 155, "%")
End Sub
Public Function GetRowSource(ByVal strCommandText As String, _
Optional ByVal varP1, _
Optional ByVal varP2, _
Optional ByVal varP3)
'本函数作用:
'将存储过程的执行结果转换为用分号分隔的值列表
'现在参数是 3 个,可以更改一下,用数组来代替
Dim Rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim prm As ADODB.Parameter
Const DELIM As String = ";"
With cmd
.ActiveConnection = CurrentProject.Connection
.CommandText = strCommandText
.CommandType = adCmdStoredProc
End With
If Not IsMissing(varP1) Then
Set prm = cmd.CreateParameter("P1", _
adInteger, adParamInput, , varP1)
cmd.Parameters.Append prm
End If
If Not IsMissing(varP2) Then
Set prm = cmd.CreateParameter("P2", _
adVarChar, adParamInput, 50, varP2)
cmd.Parameters.Append prm
End If
If Not IsMissing(varP3) Then
Set prm = cmd.CreateParameter("P3", _
adVarChar, adParamInput, 50, varP3)
cmd.Parameters.Append prm
End If
Rs.Open cmd
GetRowSource = ""
If Not Rs.EOF Then
GetRowSource = Rs.GetString(adClipString, , _
DELIM, DELIM)
End If
End Function
access911.net 原创文章,作者本人对文章保留一切权利。
如需转载必须征得作者同意并注明本站链接
- ACCESS ADP组合框的行来源如何使用参数存储过程?
- 如何使用存储过程output参数
- ACCESS里面创建带参数的存储过程
- 存储过程如何调用带参数的存储过程
- 如何创建带参数的存储过程
- access中使用“存储过程”
- ACCESS中使用存储过程
- 使用有返回参数的存储过程
- 使用带输入输出参数的存储过程
- 存储过程中IN 参数的使用
- 使用带输入参数的存储过程
- mssql使用输出参数的存储过程
- 使用带有输出参数的存储过程
- 创建ACCESS的存储过程
- ADP.NET更新ACCESS数据库的小问题
- 存储过程如何在Access里工作?
- SQL Server存储过程中如何使用数组参数
- 如何使用 ADO.NET 和 Visual C# .NET 调用带参数的存储过程
- [原创] 如果一个人漏洞百出的话,一定是因为他说得太多了
- VC++实现声音播放
- 在对话框中添加菜单
- 程序不在桌面任务样中显示小图标
- CBitmapButton类的使用
- ACCESS ADP组合框的行来源如何使用参数存储过程?
- 關於SOURCESAFE的一些問題
- ACCESS 如何获取所有菜单栏命令按钮的图片以及FaceID?
- ACCESS 系统菜单中所有菜单项的ID
- ACCESS 如何用 Docmd.OutputTo 将查询导出为 Excel 97-2003 格式?
- [转帖] 关于sizeof()的一些思考
- 將sql橫向數據轉為列向
- ACCESS VBE界面下菜单工具引用(References)和用CreateObject来创建对象的区别
- ACCESS 中如何用 WSH 创建桌面快捷方式