VB+Access开发过程中出现错误：缺少：Base或Compare或Explicit或Private

Scofield_zao 2010-01-22 02:41:17

请高手指点~~~



Option Compare Database

Option Explict

Public Function GetRS(ByVal strQuery As String) As ADODB.Recordset

    Dim rs As New ADODB.Resordset

    Dim conn As New ADODB.Connection

   On Error GoTo GetRS_Error

    Set conn = CurrentProject.Connection

    rs.Open strQuery, conn, adOpenKeyset, adLockOptimistic

    Set GetRS = rs

GetRS_Exit:

    Set rs = Nothing

    Set conn = Nothing

    Exit Function

GetRS_Error:

    MsgBox (Err.Description)

    Resume GetRS_Exit

End Function







Public Sub ExecuteSQL(ByVal strCmd As String)

    Dim conn As New ADODB.Connection

        On Error GoTo ExecuteSQL_Error

        Set conn = CurrentProject.Connection

    conn.Execute Trim$(strCmd)

ExecuteSQL_Exit:

    Set conn = Nothing

    Exit Sub

ExecuteSQL_Error:

    MsgBox (Err.Description)

    Resume ExecuteSQL_Exit

End Sub

...全文

358 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

jhone99 2010-01-22

打赏
举报

在模块级别中使用，用于声明字符串比较时所用的缺省比较方法。

语法

Option Compare {Binary | Text | Database}

说明

如果使用，则 Option Compare 语句必须写在模块的所有过程之前。

Option Compare 语句为模块指定字符串比较的方法（Binary、Text 或 Database）。如果模块中没有 Option Compare 语句，则缺省的文本比较方法是 Binary。

Option Compare Binary 是根据字符的内部二进制表示而导出的一种排序顺序来进行字符串比较。在 Microsoft Windows 中，排序顺序由代码页确定。典型的二进制排序顺序如下例所示：

A < B < E < Z < a < b < e < z < _ < _ < _ < _ < _ < ?Option Compare Text 根据由系统国别确定的一种不区分大小写的文本排序级别来进行字符串比较。当使用 Option Compare Text 对相同字符排序时，会产生下述文本排序级别：

(A=a) < ( _=_) < (B=b) < (E=e) < (_=_) < (Z=z) < (_=_) Option Compare Database 只能在 Microsoft Access 中使用。当需要字符串比较时，将根据数据库的国别 ID 确定的排序级别进行比较。

jhone99 2010-01-22