在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

当前1/2页12下一页阅读全文