Question

请各位VB大侠帮帮忙，帮我翻译一下这个究竟说了什么

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = connstring
mycon.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
mycon.Execute sql
Else
Set rst = New ADODB.Recordset
rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
End If
exectuesql_exit:
Set rst = Nothing
Set mycon = Nothing
Exit Function
exectuesql_error:
Resume exectuesql_exit
End Function

Answer 1

这个就是一个用ADO打开数据库，取出数据的操作

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset 定义公共函数过程

Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
定义mycon ADO链接
定义RST为记录集

Set mycon = New ADODB.Connection
mycon.ConnectionString = connstring
设置mycon为一个空字符串记录集

mycon.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
mycon打开方法 定义strokens字符串数组
错误返回exectuesql_error

If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
mycon.Execute sql
Else
Set rst = New ADODB.Recordset
rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
End If
如果instr等于后边那个字符串 mycon调用execute方法
否则rst建立新记录集 rst打开数据库 executesql等于rst

exectuesql_exit:
Set rst = Nothing
Set mycon = Nothing
Exit Function
exectuesql_error:
Resume exectuesql_exit
End Function
定义退出函数 rst mycon清空 推出过程

定义错误返回函数 返回exectuesql_exit
过程结束

好久没拿起过VB了 不知道对不对 凭着印象写的~~ 仅供参考哦

Answer 2

ExecuteSQL
看这个的字样，应该就是传入一个sql执行这个sql返回记录集。。