代码问题 给翻译一下

来源：百度知道 编辑：UC知道 时间：2024/06/17 12:49:06
Public gUserName As String
Public flag As Integer
Public gSQL As String
Public iflag As Integer
Public q As Integer

Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo TransactSQL_Error
strConnection = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\table.mdb"
strArray = Split(sql)
con.Open strConnection
If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
Set TransactSQL = rs
iflag = 1
Else
con.Execute sql
iflag = 1
End If
TransactSQL_Exit:
Set rs = Nothing
Set con = Nothing
Exit

最开始那些是定义全局变量
之后定义一个函数TransactSQL，参数是sql，String 类型 该函数返回一个 ADODB.Recordset
之后定义局部变量，连接，记录集，连接串，sql语句关键词数组
创建连接和记录集并构造连接串
拆分sql语句保存在strArray
连接数据库
如果是select语句就打开记录集否则执行sql语句
退出时清空记录集和连接

;定义全局变量
Public gUserName As String
Public flag As Integer
Public gSQL As String
Public iflag As Integer
Public q As Integer

;函数TransactSQL，参数是sql，String 类型 该函数返回一个 ADODB.Recordset
Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
;定义局部变量，连接，记录集，连接串，sql语句关键词数组
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
;创建连接和记录集并构造连接串
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo TransactSQL_Error
strConnection = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\table.mdb"
strArray = Split(sql);拆分sql语句保存在strArray
con.