databaseservice.vb

asp入门到精通的源代码

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.Services

Namespace TYASPNET
   Public Class DatabaseService : Inherits WebService
      private objConn as OleDbConnection
      private objCmd as OleDbCommand
      
     Public function  <WebMethod()> SelectSQL(strSelect as _
         string) as DataSet
         try
            objConn = new OleDbConnection("Provider=" & _
               "Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\ASPNET\data\banking.mdb")
            dim objDataCmd as OleDbDataAdapter = new _
               OleDbDataAdapter(strSelect, objConn)
            
            Dim objDS as new DataSet
            objDataCmd.Fill(objDS, "tblUsers")
            return objDS
         catch ex as OleDbException
            return nothing
         end try
      end function
      
      Public function  <WebMethod()> ExecuteNonQuery(strQuery _
         as string) as Boolean
         try
            objConn = new OleDbConnection("Provider=" & _
               "Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\ASPNET\data\banking.mdb")
            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