module1.bas

用VB开发的一个学生管理系统

Attribute VB_Name = "Module1"
Public sqlStr As String
Public msgText As String

Public dbpath As String
Public connStr As String
Public Function executesql(ByVal sql As String, msgstring As String) As ADODB.Recordset
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo executesql_error
sTokens = Split(sql)
Set conn = New ADODB.Connection
conn.Open connStr
If InStr("insert,delete,update", UCase$(sTokens(0))) Then
conn.Execute sql
msgstring = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
Set executesql = rst
msgstring = "查询到" & rst.RecordCount & "记录"
End If

executesql_Exit:
Set rst = Nothing
Set conn = Nothing
Exit Function

executesql_error:
msgstring = "查询错误：" & Err.Description
Resume executesql_Exit

End Function