各位大哥大姐救命呀!

Question

Public Function ExecuteSQL(ByVal sql As String) As Adodb.Recordset
   ' 执行SQL语句，返回相应的记录集函数
   Dim rst As Adodb.Recordset
   Set adocon = New Adodb.Connection
   adocon.ConnectionString = connstring
   adocon.Open
   Dim stokens() As String
  ' On Error GoTo executesql_error
   stokens = Split(sql)
   If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
        adocon.Execute sql
   Else
        Set rst = New Adodb.Recordset
        rst.Open Trim(sql), adocon, adOpenKeyset, adLockOptimistic
        Set ExecuteSQL = rst
  End If
'executesql_exit:
'       Set rst = Nothing
'       Set adocon = Nothing
'       Exit Function
'executesql_error:
'  Resume executesql_exit
End Function请问各位这段调用程序哪里错了?我运行过,在把跳转错误程序屏蔽后,错误指示"rst.Open Trim(sql), adocon, adOpenKeyset, adLockOptimistic" 这句,若不把错误跳转错误程序屏蔽,那它就返回Nothing了.各位可不可以告诉我怎样改??????????????

Answer 1

我很奇怪，为什么总有人会搞个ExecuteSQL函数来把connection,recordset什么都在里面处理如果你是小的prj根本没必要这么做另外建议如果不是封装connection和recordset用public处理就好了上面的function真不知道怎么讲了，觉得很乱rst.open前要进行state的判断if rst.state<>adstateclosed then rst.closed