mymdb.asmx.vb

Visual Basic.net 实例入门

Imports System.Web.Services

<WebService(Namespace := "http://tempuri.org/")> _
Public Class Service1
    Inherits System.Web.Services.WebService

#Region " Web 服务设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Web 服务设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加您自己的初始化代码

    End Sub

    'Web 服务设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Web 服务设计器所必需的
    '可以使用 Web 服务设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Friend WithEvents OleDbCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection()
        Me.OleDbCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter()
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1

    End Sub

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        'CODEGEN: 此过程是 Web 服务设计器所必需的
        '不要使用代码编辑器修改它。
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

#End Region

    ' Web 服务示例
    ' HelloWorld() 示例服务返回字符串 Hello World。
    ' 若要生成项目，请取消注释以下行，然后保存并生成项目。
    ' 若要测试此 Web 服务，请确保 .asmx 文件为起始页
    ' 并按 F5 键。
    '
    '<WebMethod()> Public Function HelloWorld() As String
    '	HelloWorld = "Hello World"
    ' End Function
    <WebMethod()> Public Function GetDataSet(ByVal DbPath As String, ByVal TableName As String, ByVal SelectSQL As String) As DataSet
        'DbPath参数是数据库的路径，TableName参数是数据表，
        'SelectSQL是用户输入的查询参数
        Dim ds As DataSet = New DataSet()
        '建立一个新的数据集
        Dim ConnStr As String
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &Server.MapPath(DbPath)
        '数据库链接字符串
        OleDbConnection1 = New System.Data.OleDb.OleDbConnection(ConnStr)
        '建立到数据库的链接
        OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter(SelectSQL, OleDbConnection1)
        OleDbDataAdapter1.Fill(ds, TableName)
        '配置数据适配器
        GetDataSet = ds
        '返回数据集
    End Function
<WebMethod()> Public Sub ExecuteSQL(ByVal DbPath As String, ByVal ActionQuery As String)
        'DbPath参数是数据库的路径，ActionQuery参数是对数据库进行操作的SQL语句，
        Dim ConnStr As String
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &Server.MapPath(DbPath)
        '数据库链接字符串
        OleDbConnection1 = New System.Data.OleDb.OleDbConnection(ConnStr)
        '建立到数据库的链接
        OleDbConnection1.Open()
        '打开链接
        OleDbCommand1 = New System.Data.OleDb.OleDbCommand(ActionQuery, OleDbConnection1)
        OleDbCommand1.ExecuteNonQuery()
        '执行用户输入的SQL语句
        OleDbConnection1.Close()
        '关闭链接
    End Sub


End Class