求助 以下代码的意思 谢谢

Question

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset

Answer 1

'执行SQL语句,返回一个记录集
Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim mycon As ADODB.Connection '定义一个连接数据库的对象
Dim rst As ADODB.Recordset    '定义一个数据库记录集对象

Answer 2

这是一个函数的头部，一定要有 End Function 表示结束。Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset'Public — 公有函数，可以在其他窗体或模块中访问
'ExecuteSQL — 函数名
'ByVal sql As String — 定义一个形式参数，传值方式，字符串类型
'As ADODB.Recordset — 函数的返回值是一个 ADODB 对象集合的记录集实例Dim mycon As ADODB.Connection
'声明一个 ADODB 对象集合的连接对象，可以用 Set mycon = New ADODB.Connection 来实例化，并用 mycon.Open ConnectionString 方法来打开。 Dim rst As ADODB.Recordset
'声明一个 ADODB 对象集合的记录集对象。实例化和打开与连接对象相仿。