module.bas

型材剖面模数计算,船舶型材计算及输入,查询操作.

Attribute VB_Name = "Module"
Public Function ExecuteSQL(sql As String) As ADODB.Recordset
  Dim rst As ADODB.Recordset
  Dim mycon As New ADODB.Connection
  
  '定义ADO联接,并打开联接执行查询
  mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\型材库.mdb;Persist Security Info=False"
  mycon.Open
  mycon.Execute sql
  
  '定义ADO记录集，通过活动的ADO连接取得查询结果
  Set rst = New ADODB.Recordset
  rst.Open sql, mycon, adOpenKeyset, adLockOptimistic
  '通过给函数赋值返回查询结果
  Set ExecuteSQL = rst
End Function