www.pudn.com > new xsc.rar > 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