如何用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