如何用jetsql语句创建存储过程(查询)
current project . connection . execute " create procedure name 1(vde varchar)as select * from msy objects "
-
在access 2000中使用DDL创建参数化Jet存储过程
本文中的信息适用于:
Microsoft access 2000
Microsoft Visual Basic for Applications
本文之前发表在Q202116
Advanced:需要专业的编码、互操作性和多用户技能。
在此任务
摘要中
本文向您展示了如何在Visual Basic环境中创建存储过程,以及如果需要,如何向现有存储过程添加参数。
注意:本机存储过程是Microsoft access 2000中的新增功能。您不能通过用户界面创建和运行存储过程。您必须将Visual Basic环境与ActiveX数据对象(ADO)或数据库定义语言(DDL)一起使用。
返回页首
创建存储过程
以下步骤说明如何创建带参数的存储过程,以及如何在Visual Basic环境中运行它:
在示例数据库Northwind.mdb中,创建一个名为TestStoredProc的新模块。
在“工具”菜单上,单击“引用”。在可用引用列表中,单击选择(选中)Microsoft ActiveX数据对象2.1库。
在新模块中键入以下内容:
公共函数CreateProc()
Dim strProc作为字符串
str proc = " Create Procedure qryCustByCity " & _
"(PRM City varchar)as " & _
" select * from Customers where City = PRM City "
当前项目。连接。执行strProc
end Function
在“即时”窗口中,键入以下内容并按ENTER键:
?create proc
步骤1到4创建一个名为strProc的存储过程,该过程查询城市与参数prmCity匹配的记录。剩下的步骤包括创建运行strProc并传递参数的代码。
返回到您在步骤1中创建的模块。
键入以下代码:
公共函数RSFromParameterQuery(strCity As String)
将prm调成ADODB。参数
Dim cmd As ADODB。命令
Dim rst As ADODB。记录集
设置cmd = New ADODB。命令
设置cmd。active connection = current project。关系
cmd。CommandText = " qryCustByCity "
cmd。CommandType = adCmdStoredProc
设置prm = cmd。CreateParameter("prmCity ",adVarChar,_
adParamInput,Len(strCity))
prm。值= strCity
cmd。参数。附加prm
Set rst = New ADODB。记录集
rst。打开cmd
一直做到第一次。EOF
Debug。打印rst(0),rst(1),rst(2)
rst。MoveNext
循环
end Function
在“即时”窗口中,键入以下内容并按ENTER键:
?RSFromParameterQuery(" London ")
在即时窗口中,您应该会看到伦敦的客户列表。
返回页首
上次查看时间:2002年10月27日
关键字:kbhowto kbHOWTOmaster kb programming kb 202116 kbAudDeveloper
0条评论