db.bas

来自「VB类实现学生信息管理系统」· BAS 代码 · 共 38 行

Attribute VB_Name = "db"
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset 'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection  'create adodb connection when exec sql ,unefficient
   Dim rst As ADODB.Recordset
   Dim sTokens() As String ' what is meaning? define a string object as handling
   
   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, adOpenDynamic, adLockOptimistic
      'rst.MoveLast
      '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
'returns a DB ConnectString
   db_path = "F:\vb code\vb_database\student\student.mdb;"
   ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_path & "Persist Security Info=False"
End Function