dbfunc.bas

音像店(CD刻录)进销存管理系统

Attribute VB_Name = "DBFunc"
Option Explicit



'执行SQL语句,得到RecordSet
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 = funConnstring
  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:
  If Err.Description <> "" Then
    MsgBox Err.Description
    Err.Clear
  End If
  Resume exectuesql_exit
End Function


Public Function funConnstring() As String
  'funConnstring = "DSN=MS Access Database;DBQ=" & App.Path & "\mydb.mdb;DefaultDir=" & App.Path & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
  funConnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyDB.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End Function