Обработка баз данных на Visual Basic®.NET, Прайс Кевин Т.

Обработка баз данных на Visual Basic®.NET

на обложку

Прайс Кевин Т.

Шрифт:

Листинг 12.7. Вспомогательный код Web-формы Form1.vb

Imports Novelty1.GetRowCount

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New MyBase.New

' Этот вызов метода организован конструктором Web-форм.

InitializeComponent

' Инициализация после вызова метода InitializeComponent.

End Sub

' Переопределение метода Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose

End If

MyBase.Dispose(disposing)

End Sub

' Код, созданный конструктором Web-форм.

Private components As System.ComponentModel.IContainer

' ЗАМЕЧАНИЕ: Код, созданный конструктором компонентов.

' Его можно изменять только с помощью конструктора

' Не изменяйте его вручную в окне редактирования кода.

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Button1 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough> _

Private Sub InitializeComponent

Me.Label1 = New System.Windows.Forms.Label

Me.Button1 = New System.Windows.Forms.Button

Me.SuspendLayout

' Label1

Me.Label1.Location = New System.Drawing.Point(8, 16)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(248, 16)

Me.Label1.Tablndex = 0

Me.Label1.Text = "Label1"

' Button1

Me.Button1.Location = New System.Drawing.Point(264, 8)

Me.Button1.Next = "Button1"

Me.Button1.Size = New System.Drawing.Size(72, 24)

Me.Button1.TabIndex = 1

Me.Button1.Text = "Test It!"

' Form1

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(344, 54)

Me.Controls.AddRange(New System.Windows.Forms.Control _

{Me.Button1, Me.Label1})

Me.Name = "Form1"

Me.Text = "Form1"

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal е As System.EventArgs) Handles Button1.Click

Dim GRC As New Novelty1.GetRowCount

Label1.Text = "There are " & GRC.GetRowCount.ToString _

& " rows in the table."

GRC.Dispose

End Sub

End Class

В код, созданный конструктором форм, добавлены только объекты Label1 и Button1. Текст надписи будет задан только во время выполнения приложения. Теперь можно приступить к созданию Web-службы.

Доступ к объектам с помощью Web-служб

Итак, мы приступаем к работе на совершенно новом уровне, т.е. с использованием Web-служб. С самого начала Web-среда рассматривалась как способ передачи данных между двумя точками. Именно эта исходная концепция способствовала развитию и популяризации Web-среды. Однако она обладала несколькими ограничениями и только недавно консорциум World Wide Web Consortium (W3C) начал реализовывать стандарты технологии обмена данными. Реализация Web-служб на платформе .NET основана именно на этих стандартах и использует язык XML для идентификации и передачи данных.

Допустим, что компания Jones Novelties, Incorporated решила предоставить другим компаниям быстрый доступ к своим данным без необходимости создания пользовательского интерфейса. Для решения этой задачи прекрасно подходят Web-службы.

Прежде чем приступить к решению этой бизнес-ситуации, следует привести основные сведения о Web-службах. Читатели с опытом создания Web-служб могут пропустить остаток этого раздела без ущерба для понимания остального материала или освежить свои знания, бегло познакомившись с ним.

По определению Web-службы – это объекты, которые обмениваются данными с помощью протоколов Internet, например HTTP. Причем для определения данных или набора выполняемых сервером инструкций используется XML. Эти инструкции также могут возвращать данные. Например, для включения нового пользователя с фамилией Doe и именем John в базу данных можно послать некому воображаемому Web-серверу www.someserver.com следующий запрос:

http://www.someserver.com/sevices/dataserver.asmx?op=AddUserToDB&FName= John&LName=Doe

1-125 126 127 128 129 130 131 132 133 134