form1.vb

来自「SQL Server 业已成为最为流行的几大数据库之一」· VB 代码 · 共 41 行

Imports Microsoft.SqlServer.Server
Imports System.Data.SqlClient
Imports webservice.localhost

Public Class Form1

    Private Sub btSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSearch.Click

        Dim proxy As New webservice.localhost.Mysqlserver_endpoint
        Dim products() As Object

        proxy.Credentials = System.Net.CredentialCache.DefaultCredentials
        Dim productid As SqlTypes.SqlInt32
        productid = Val(tbInputProductID.Text)
        products = proxy.ShowProductInfo(1)


        Dim resultDs As System.Data.DataSet
        Dim gDataTable As System.Data.DataTable



        MsgBox(products(0).ToString)
        If (products(0).ToString = "System.Data.DataSet") Then
            resultDs = products(0)
            Dim a = resultDs.Tables.Count
            gDataTable = resultDs.Tables(0)
            MsgBox(gDataTable.TableName)
            dgvResult.DataSource = gDataTable
            dgvResult.Refresh()

        End If


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“NorthwindDataSet.Products”中。您可以根据需要移动或移除它。
    End Sub
End Class