database.vb

来自「asp入门到精通的源代码」· VB 代码 · 共 39 行

Imports System
Imports System.Data
Imports System.Data.OleDb

Namespace TYASPNET

   Public Class Database
      public ConnectionString as String
      private objConn as OleDbConnection
      private objCmd as OleDbCommand
      
      public function SelectSQL(strSelect as string) as _
         OleDbDataReader
         try
            objConn = new OleDbConnection(ConnectionString)
            objCmd = new OleDbCommand(strSelect, objConn)
            objCmd.Connection.Open
            return objCmd.ExecuteReader
            objCmd.Connection.Close()
         catch ex as OleDbException
            return nothing
         end try
      end function
      
      public function ExecuteNonQuery(strQuery as string) as _
         Boolean
         try
            objConn = new OleDbConnection(ConnectionString)
            objCmd = new OleDbCommand(strQuery, objConn)
            objCmd.Connection.Open()
            objCmd.ExecuteNonQuery
            objCmd.Connection.Close()
            return true
         catch ex as OleDbException
            return false
         end try
      end function
   End Class
End Namespace