|
|
|
Вызов
хранимой процедуры
В следующем примере используется
хранимая процедура с именем getalbumname.
Процедура вызывается с одним
параметром и выбирает из базы
данных albums запись альбома с
заданным именем:
create
procedure getalbumbyname
@albumname varchar(255) As
select *from albums where albumname = @albumname
Выборка данных с использованием
хранимой процедуры организована
аналогично простому запросу к базе
данных Northwind:
Dim dbCmd
As SqlCommand = New SqlCommand(
"execute getalbumbyname 'Operation Mindcrime'")
Try
mySQLConn =New SqlConnection(
"user id=sa:password=password;" & _
"database=albums;server=i-ri3")
mySQLConn.Open()
dbCmd.Connection = mySQLConn
dbReader = dbCmd.ExecuteReader(CommandBehavior.SingleResult)
' И т.д.
End
Try
Как видите, программа почти не
изменилась, разве что команда SQL,
использовавшаяся для создания
объекта Sql Command, превратилась в
команду вызова хранимой процедуры
getalbumbyname, которой в качестве
параметра передается имя
интересующего нас альбома. Конечно,
после вызова ExecuteReader цикл перебора
записей не нужен, поскольку мы
точно знаем, что хранимая процедура
возвращает всего одну запись.
Вместо
того чтобы передавать параметр
хранимой процедуры в строке вызова,
можно воспользоваться коллекцией
Parameters объекта SQLCommand. Мы решили, что
вариант с непосредственной
передачей параметров в команде SQL
проще. Конечно, это возможно лишь в
том случае, если значение параметра
известно во время написания
программы, в противном случае
приходится использовать коллекцию
Parameters.
Нетривиальный
пример работы с базами данных в VB .NET
(часть 1)
В этом разделе представлено
графическое приложение, при помощи
которого пользователь может
подключиться к выбранной базе
данных SQL, выполнить запрос и
получить его результаты в виде
списка. Простоты ради мы отказались
от проверки пользовательского
ввода. Программа состоит из трех
файлов: двух форм (frmMain и frmResults, см.
рис. 11.2 и 11.3 соответственно) и
стандартного модуля Modulel.
Несмотря на свою длину, программа
не содержит ничего принципиально
нового. На главной форме размещены
четыре текстовых гюля для ввода
имени сервера, имени базы данных,
идентификатора пользователя и
пароля. При нажатии кнопки Connect
программа динамически выполняет
введенную команду во фрагменте,
выделенном жирным шрифтом.
Рис. 11.2. Главная
форма приложения
Рис. 11.3. Форма
результатов приложения
'frmMain.vb
Imports System.Data.SqlClient
Public Class frmMain
Inherits System.Windows.Forms.Form #Region "Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'Вызов необходим для работы дизайнера форм Windows
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
End If
MyBase.Dispose(Disposing)
End Sub
Private WithEvents Label1 As System.Windows.Forms.Label
Private WithEvents Label2 As System.Windows.Forms.Label
Private WithEvents Label3 As System.Windows.Forms.Label
Private WithEvents Label4 As System.Windows.Forms.Label
Private WithEvents btnConnect As System.Windows.Forms.Button
Private WithEvents txtUID As System.Windows.Forms.TextBox
Private WithEvents txtPassword As System.Windows.Forms.TextBox
Private WithEvents txtDatabase As System.Windows.Forms.TextBox
Private WithEvents txtServer As System.Windows.Forms.TextBox
' Необходимо для работы дизайнера форм Windows
Private components As System.ComponentModel.Container
' ВНИМАНИЕ: следующий фрагмент необходим для дизайнера форм Windows
' Для его модификации следует использовать дизайнер форм.
' Не
изменяйте его в редакторе!
<System.Diagnostics.DebuggerStepThrough()>
Private Sub _
Initial izeComponent()
Me.Label4 = New
System.Windows.Forms.Label ()
Me.txtPassword = New
System.Windows.Forms.TextBox()
Me.Label 1 = New
System.Windows.Forms.Label ()
Me.txtServer = New
System.Windows.Forms.TextBox()
Me.Label2 = New
System.Windows.Forms.Label ()
Me.Labels = New
System.Windows.Forms.Label ()
Me.txtUID - New
System.Windows.Forms.TextBox()
Me.txtDatabase = New
System.Windows.Forms.TextBox()
Me.btnConnect = New
System.Windows.forms.Button()
Me.SuspendLayout()
'Label4
Me.Label4.Location =
New System.Drawing.Point(24.176)
Me.Label 4.Name =
"Label4"
Me.Label4.Size = New
System.Drawing.Size(82.19)
Me.Label4.TabIndex =
0
Me.Label4.Text =
"Password:"
Me.Label4.TextAlign
= System.Drawi ng.ContentAlignment.MiddleRight
'txtPassword
Me.txtPassword.Location
= New System.Drawing.Point(168.168)
Me ..txtPassword.
Name = "txtPassword"
Me.txtPassword.PasswordChar
= ChrW(42)
Me.txtPassword.Size
= New System.Drawing.Size(205.22)
Me.txtPassword.Tablndex
= 3
Me.txtPassword.Text
= ""
'Label 1
Me.Label 1.Location
= New System.Drawing.Point(24. 32)
Me.Label 1.Name =
"Label1"
Me.Label 1.Size =
New System.Drawing.SizeC82. 20)
Me.Label 1.Tablndex
=0
Me.Label 1.Text =
"Server:"
Me.Label 1.TextAli
gn = System.Drawi ng.ContentAlignment.Mi ddleRight
'txtServer
Me.txtServer.Location
- New System.Drawing.Point(168, 24}
Me.txtServer.Name =
"txtServer"
Me.txtServer.Size =
New System.Drawing.Size(205. 22)
Me.txtServer.Tablndex
= 0
Me.txtServer.Text =
""
'Label 2
Me.Label2.Location =
New System.Drawing.Point(24. 80)
Me.Label 2.Name =
"Label 2"
Me.Label2.Size = New
System.Drawing.Size(82, 20)
Me.Label2.Tablndex =
0
Me.Label 2.Text =
"Database:"
Me.Label 2.TextAlign
= System.Drawi ng.ContentAlignment.Mi ddleRight
'Label3
Me. Labels.Anchor =
System.Windows.Forms.AnchorStyles.None
Me.Label3.Location =
New System.Drawing.Point(24. 128)
Me.Labels.Name =
"Label 3"
Me.Labels.Size = New
System.Drawing.Size(82. 20)
Me.Labels.Tablndex =
0
Me.Labels.Text =
"User ID:"
Me.Label 3.TextAli
gn = System.Drawi ng.ContentAlignment.Mi ddleRi ght
'txtUID
Me.txtUID.Location =
New System.Drawing.Point(168, 120)
Me.txtUID.Name =
"txtUID"
Me.txtUID.Size - New
System.Drawing.Size(205, 22)
Me.txtUID.Tablndex =
2
Me.txtUID.Text =
""
'txtDatabase
Me.txtDatabase.Location
= New System.Drawing.Point(168. 72)
Me.txtDatabase.Name
= "txtDatabase"
Me.txtDatabase.Size
= New System.Drawing.Size(205. 22)
Me.txtDatabase.Tablndex
= 1
Me.txtDatabase.Text
= ""
'btnConnect
Me.btnConnect.Location
= New System.Drawing.Point(160. 232)
Me.btnConnect.Name =
"btnConnect"
Me.btnConnect.Size =
New System.Drawing.Size(92, 30)
Me.btnConnect.Tablndex
= 4
Me. btnConnect.Text
= "SConnect"
'frmMain
Me.AutoScaleBaseSize = New System.Drawing.Size(6. 15)
Me.ClientSize - New System.Drawing.Size(408, 280)
Me.Controls.AddRange(New
_
System.Wi ndows.Forms.Control(){Me.btnConnect,_
Me.txtPassword. Me.txtUID.
Me.txtDatabase.
Me.txtServer.Me
.Label 4.
Me.Label3.Me
.Label 2.
Me.Label 1})
Me.Name - "frmMain" Me.Text = "DB Connector"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub btnConnect_C1ick(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles btnConnect.Click
Try
mySQLConn = New SqlConnectionC'user id=" & txtUID.Text &
";password="&txtPassword.Text & _ ";database="&txtDatabase.Text & _
";server="&txtServer.Text)
mySQLConn.Open() dbCmd.Connect!on = mySQLConn
Dim frmChild As New frmResults() frmChild.Show()
Catch except As
Exception MsgBox(_
"Failed to connect for the following reason:<" & _ except.Message & ">")
End Try
End Sub
End Class
Модуль
содержит следующий код:
Imports System.Data.SqlClient
Module main
'
Глобальные определения
Public mySQLConn As
SqlConnection
Public dbReader As
SqlDataReader
Public dbCmd As SqlCommand = New SqlCommand()
End Module
Модуль
Modulel содержит только глобальные
определения различных объектов SQL,
которые должны быть доступны для
обеих форм. Хотя обычно подобное
использование глобальных данных в
окончательных версиях программ не
рекомендуется, в данном случае это
позволяет сосредоточить основное
внимание на выполнении операций с
базой данных.
|
|
|
|