在Access自身的帮助中看到了CreateProcedure语句，测试了老半天，终于发现了诀窍：必须使用OleDb连接才能使用CreateProcedure语句。ODBC连接不支持该语句，提示CreateTable语法错误。
　　创建了存储过程后，使用OfficeAccess工具打开数据库，在“对象-查询”中能够看到你创建的存储过程。
创建存储过程的语法：
复制代码 代码如下:
CreateProcedureYourProc
(
@param1varchar(254),
@param2int
)
As
(
select*fromTable1whereID>@param2andusername=@param1
)
查询数据时只需要使用：
Rs.Open"YourProcadmin,1",Conn

myproc.vbs
复制代码 代码如下:
SetDB=GetObject("script:http://www.zope.org/Members/Rimifon/DbHelper.sct")
DB.ConnStr="Provider=Microsoft.Jet.OleDb.4.0;DataSource=MyProc.mdb"
DB.NonQuery"createtableSheet1(idcounter,namevarchar(254),scoreint)"
DB.NonQuery"CreateProcedureMyProc(@namevarchar(254),@scoreint)as(insertintoSheet1(name,score)values(@name,@score))"
DB.NonQuery"CreateProcedureResultas(select*fromSheet1)"
MsgBox"创建了表和存储过程"
DB.NonQuery"ExecuteMyProcRimifon,90"
DB.NonQuery"ExecMyProcFengYun,93"
SetDs=DB.DataSet("Result")
MsgBox"执行了存储过程"
DB.NonQuery"dropProcedureMyProc"
DB.NonQuery"dropProcedureResult"
DB.NonQuery"droptableSheet1"
MsgBox"删除了表和存储过程"
SetDB=Nothing
DimResult
Result="所有记录："&Chr(13)
ForEachItemInDs
IfIsObject(Item)Then
Result=Result&Item.ID&Chr(9)&_
Item.Name&Chr(9)&Chr(9)&_
Item.Score&Chr(13)
EndIf
Next
SetDs=Nothing
MsgBoxResult

12下一页阅读全文