module1.bas

请假销假的管理系统

Attribute VB_Name = "Module1"
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 cnn = New ADODB.Connection
  cnn.Open ConnectString
  If InStr("insert,delete,update", UCase$(sTokens(0))) Then
    cnn.Execute SQL
    MsgString = sTokens(0) & "query successful"
  Else
     
    Set rst = New ADODB.Recordset
    rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
   '' rst.get RecordCount
    Set ExecuteSQL = rst
    MsgString = "查询到" & rst.RecordCount & "条纪录"
  End If
ExecuteSQL_exit:
  Set rst = Nothing
  Set cnn = Nothing
  Exit Function
ExecuteSQL_error:
  MsgString = "查询错误" & Err.Description
  Resume ExecuteSQL_exit
End Function

Public Function ConnectString() As String
  ConnectString = "FileDSN=guanli.dsn;UID=sa;PWD="
End Function
Public Sub entertotab(key As Integer)
  If keyasc = 13 Then
    SendKeys "{tab}"
  End If
End Sub