module1.bas

进销存管理系统,我是个新手,请大家多多帮助哈1

Attribute VB_Name = "Module1"
Public rs As ADODB.Recordset
Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String

    On Error GoTo ExecuteSQL_Error  '//设置错误捕获
    sTokens = Split(sql)  '//分割字符串
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\kq.mdb;"

    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
        cnn.Execute sql
    Else
        Set rst = New ADODB.Recordset
        rst.CursorLocation = adUseClient
        rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
        Set ExecuteSQL = rst
    End If
ExecuteSQL_Exit:
    Set rst = Nothing
    Set cnn = Nothing

    Exit Function

ExecuteSQL_Error:
    Debug.Print Err.Description
    Resume ExecuteSQL_Exit
End Function