module1.bas

试卷生成和评分系统 试卷生成和评分系统

Attribute VB_Name = "Module1"

Public conn As ADODB.Connection
Public rst As ADODB.Recordset
Public Function exesql(ByVal sql As String) As ADODB.Recordset

sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=kaoshi.mdb;"

conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function