mdb.asmx

来自「《精通ASP.NET网络编程》附带实例」· ASMX 代码 · 共 35 行

<%@ WebService Language="VB" Class="MdbWS" %>

Imports System
Imports System.Data
Imports System.Data.ADO
Imports System.Web
Imports System.Web.Services

Public Class MdbWS : Inherits WebService

   Public Function <WebMethod()> GetDataSet( DbPath As String, TableName As String, SelectSQL As String ) As DataSet
      Dim Cmd As ADODataSetCommand
      Dim ds As DataSet = New DataSet()
      Dim ConnStr As String
       
      ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & Server.MapPath(DbPath)
      Cmd = New ADODataSetCommand( SelectSQL, ConnStr )
      Cmd.FillDataSet(ds, TableName)
      GetDataSet = ds
   End Function

   Public Sub <WebMethod()> ExecuteSQL( DbPath As String, ActionQuery As String ) 
      Dim Cmd As ADOCommand
      Dim ConnStr As String
       
      ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & Server.MapPath(DbPath)
      Cmd = New ADOCommand( ActionQuery, ConnStr) 
      Cmd.ActiveConnection.Open()
      Cmd.Execute()
   End Sub

End Class