access 源代码 access中代码

转载

数据解码者 2024-05-07 12:32:17

文章标签 access 源代码 access 存储 sqlserver vba 文章分类 架构后端开发

Access 的 MDB / MDE 中存在类似存储过程得概念（建立时也可以使用 DDL 语句的 create procedure 语句建立），但是叫参数查询，并且一个参数查询只支持一条 JET SQL 语句，因而 JET SQL 不存在程序流控制语句，所有的程序流控制都交由 VBA 控制。也就是说 T-SQL 中的 IF 以及 CASE 语句在 JET SQL 中不存在，但是部分功能可以用 IIF 函数以及 SWITCH 函数代替，具体内容请参考 ACCESS 帮助。JET SQL中也可以定义“变量”，但是这个变量和 T-SQL 中的变量是不同的概念，因此在 JET SQL 中被称为“参数”。

事实上，Access（2000 及以上版本）中所谓“存储过程”，和 SQL Server 中的 Stored Procedure 是不能比的。它只能算是“Stored Procedure Lite”，不支持多条 SQL 语句，不支持逻辑语句（呵呵，毕竟不是 T-SQL）等等，我也还不清楚它是不是预编译了。不过，正如同 VBScript 实现的所谓“类”仅仅具有封装性，对于代码结构的“美化”和程序重用性具有很大促进一样，Access 的“轻量存储过程”，对于规范，小出错几率的数据库操作应该也有帮助，并且性能可能会有提高。

一、在ACCESS中构建参数查询

关键字 PARAMETERS 可构建参数

PARAMETERS aa Short, bb Short; SELECT 表1.ID FROM 表1 WHERE (((表1.ID)>[aa] And (表1.ID)<=[bb]));

上述参数查询在打开时会提示用户输入 [aa] [bb] 这两个参数。ACCESS 中还有一种参数查询是直接用窗体的某个控件来传递参数给查询，代码如下

SELECT 表1.ID FROM 表1 WHERE (((表1.ID)>FORMS!窗体A!控件A And (表1.ID)<=FORMS!窗体A!控件B));

当“窗体A”打开时，双击这个查询时无需输入参数，查询会自动调用窗体上控件A控件B这两个控件的值来作为参数。

二、在VBA中生成和调用参数查询

参数查询代码如下：

PARAMETERS strA Text; INSERT INTO 表1 ( hh ) values ([stra])

VBA 或者 VB 调用参数查询如下：

Public Function AppendX()
    Dim cmdByRoyalty As ADODB.Command
    Dim prmByRoyalty As ADODB.Parameter
    Dim rstByRoyalty As ADODB.Recordset
    Dim intRoyalty As String
    Set cmdByRoyalty = New ADODB.Command
    cmdByRoyalty.CommandText = "查询1"
    cmdByRoyalty.CommandType = adCmdStoredProc
    intRoyalty = Trim(InputBox("输入参数:"))
    Set prmByRoyalty = cmdByRoyalty.CreateParameter("strA", adChar, adParamInput, 255)
    cmdByRoyalty.Parameters.Append prmByRoyalty
    prmByRoyalty.Value = intRoyalty
    Set cmdByRoyalty.ActiveConnection = CurrentProject.Connection
    Set rstByRoyalty = cmdByRoyalty.Execute
End Function

三、何时使用参数查询

我们使用 Access 存储过程的主要目的，就是使用参数额外提供的查询，使用存储过程，我们不必再面对将参数值拼接到 SQL 语句字符串中时遇到的各种麻烦，比如：

Dim sql
sql = "SELECT * FROM Users WHERE UserName = '" & userName & "'"

以上代码中，如果字符串变量 userName 中含有“'”单引号，则会报错。我们必须手工转化：

Dim sql
sql = "SELECT * FROM Users WHERE UserName = '" & Replace(userName, "'", "''") & "'"

转化为连续两个单引号。而使用带参数查询，我们的 SQL 语句可以写为

Dim sql
sql = "SELECT * FROM Users WHERE UserName = @userName"

然后把参数 @userName 的值以 Command 对象的 Parameter 属性来传入即可，很方便直观。

With cmd
    '创建参数对象
    .Parameters.Append .CreateParameter("@userName")

    '给各参数指定值
    .Parameters("@userName") = userName
End With

四、Access 存储过程中参数的使用。

和 SQL Server 的存储过程中用 @ 变量指定参数，然后同名传入参数对象不同，Access 中的参数，是以“顺序”而非“名字”来识别的。传入的参数无需指定名字，随便起，SQL 中的参数名字也可以随便起，只要传入参数值时，按照 SQL 语句中的参数出现顺序指定就行了。通常，我们使用 Command 对象的 Execute 方法，直接传入参数值数组来执行～