Attribute VB_Name = "Module1"





Public Function ConnectString() _
   As String
'returns a DB ConnectString
   ConnectString = "FileDSN=學生公寓管理數據庫.dsn;UID=sa;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim Cnn As ADODB.Connection '定義連接
Dim Rst As ADODB.Recordset
Dim sTokens() As String '定義字符串

On Error GoTo ExecuteSQL_Error '異常處理

sTokens = Split(SQL) '用Split函數產生一個包含各個子串的數組

Set Cnn = New ADODB.Connection '創建連接
Cnn.Open ConnectString

If InStr("INSERT,DELETE,UPDATE", LCase$(sTokens(0))) Then '判斷字符串中是否含有指定內容
Cnn.Execute SQL '執行查詢語句
MsgString = sTokens(0) & "query successful" '返回查詢信息
Else
Set Rst = New ADODB.Recordset '闖將數據集對象
Rst.Open Trim$(SQL), Cnn, adOpenKeyset, adLockOptimistic '返回查詢結果
Set ExecuteSQL = Rst '返回記錄集對象
MsgString = "查詢到" & Rst.RecordCount & " 條記錄"
End If

ExecuteSQL_Exit:

Set Rst = Nothing '清空數據集對象
Set Cnn = Nothing '中斷連接
Exit Function

ExecuteSQL_Error: '判斷錯誤類型

MsgString = "查詢錯誤:" & Err.Description
MsgBox MsgString
Resume ExecuteSQL_Exit

End Function


          

     


Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub