global.bas

运动会管理系统 运动会管理系统

Attribute VB_Name = "Global"
Public username As String
Public userpwd As String

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = connstring
mycon.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
      mycon.Execute sql
Else
  Set rst = New ADODB.Recordset
  rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
 Set ExecuteSQL = rst
End If
exectuesql_exit:
  Set rst = Nothing
  Set mycon = Nothing
  Exit Function
exectuesql_error:
  Resume exectuesql_exit
End Function

Public Function ExecuteUpdateSQL(ByVal sql As String) As Boolean
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = connstring
conn.Open
Dim stokens() As String
On Error GoTo executeUpdatesql_error
stokens = Split(sql)
If InStr("INSERT,DELETE,UPDATE", UCase(stokens(0))) Then
      conn.Execute sql
      ExecuteUpdateSQL = True
Else
      ExecuteUpdateSQL = False
End If
exectueUpdatesql_exit:
  Set conn = Nothing
  Exit Function
executeUpdatesql_error:
  Resume exectueUpdatesql_exit
End Function

Public Function connstring() As String
connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/database.mdb"

End Function