mdbxscj.asmx

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

<%@WebService Language="VB" Class="Mdbxscj"%>
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Imports System.Web.Services
Public Class Mdbxscj : Inherits WebService
   <WebMethod()> Public Function GetDataSet(DbPath As String, TableName As String, SelectSQL As String) As DataSet
      Dim Conn As OleDbConnection
      Dim Cmd As OleDbDataAdapter
      Dim ds As DataSet = New DataSet()
      Dim ConnStr As String
      ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(DbPath)
      Conn= New OleDbConnection(ConnStr)
      Cmd = New OleDbDataAdapter(SelectSQL, Conn)
      Cmd.Fill(ds, TableName)
      GetDataSet = ds
   End Function
   <WebMethod()> Public Sub ExecuteSQL(DbPath As String, ActionQuery As String) 
      Dim Conn As OleDbConnection
      Dim Cmd As OleDbCommand
      Dim ConnStr As String
      ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(DbPath)
      Conn= New OleDbConnection(ConnStr)
      Cmd =New OleDbCommand(ActionQuery, Conn) 
      Cmd.ExecuteNonQuery()
   End Sub
End Class