Владимир Волков - Программирование для карманных компьютеров
В упражнении было видно, что для того, чтобы приложение установило соединение с базой данных, запросило необходимые данные, получило и разместило их, необходимо использовать компоненты из пространства имен System.Data.SqlServerCe. Но когда данные отображаются, используется возможность привязывать источники данных к обычным элементам отбражения. Способность образовывать связи с данными реализуется в этих элементах на уровне методов и свойств, которые рассматриваются в табл. 6.26.
Таблица 6.26. Свойства компонентов, отвечающие за связь с даннымиСвойства BindingContext и DataBindings присущи всем видимым элементам, в то время как свойства DataSource, DisplayMember и ValueMember есть только у компонентов ListBox и ComboBox, в которые загружаются коллекции данных. Свойство DataSource также есть у компонента DataGrid.
Отдельно следует упомянуть свойства и методы объекта BindingContext, которые приведены в табл. 6.27 и 6.28.Таблица 6.27. Полезные свойства объекта BindingContext
Таблица 6.28. Полезные методы объекта BindingContext
Также следует рассмотреть объект DataBindings. Его основные свойства и методы рассматриваются в табл. 6.29 и 6.30. Таблица 6.29. Полезные методы DataBindings
Таблица 6.30. Полезные свойства DataBindingsМетоды и свойства объектов BindingContext и DataBindings были использованы в предыдущем упражнении. С одним элементом управления можно связать сколько угодно полей из базы данных. Методы и свойства DataBindings указывают на то, что компонент может иметь не одну связь, а коллекцию связей. Главное, чтобы тип поля в источнике данных был совместим с типом свойства, с которым связывается это поле.
Следует создать приложение, иллюстрирующее связывание для компонентов ListBox, ComboBox и DataGrid.
Упражнение 6.5
1. Создать новый проект VB.NET для Pocket PC с именем myDB.
2. Расположить на форме компоненты Button, DataGrid, ListBox и ComboBox так, как это показано на рис. 6.26.
Рис. 6.26. Расположение компонентов на форме.3. Объявить переменные в классе формы, как это показано в листинге 6.33. Листинг 6.33
Dim dbc As SqlServerCe.SqlCeConnection
Dim dbcmq As SqlServerCe.SqlCeCommand = New _ SqlServerCe.SqlCeCommand("SELECT * FROM
Customers")
Dim dba As SqlServerCe.SqlCeDataAdapter
Dim dbt As DataTable4. Написать обработчики для кнопок согласно коду, приведенному в листинге 6.34. Листинг 6.34
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Cursor.Current = Cursors.WaitCursor
dbc = New SqlServerCe.SqlCeConnection
dbc.ConnectionString = В«Data Source=NorthwindDemo.sdfВ»
dbt = New DataTable(В«CustomersВ»)
dbcmq.Connection = dbc
dba = New SqlServerCe.SqlCeDataAdapter(dbcmq)
dba.Fill(dbt)
DataGrid1.Visible = False
DataGrid1.DataSource = dbt
DataGrid1.Visible = True
ListBox1.Visible = False
ListBox1.DataSource = dbt
ListBox1.DisplayMember = В«ContactNameВ»
ListBox1.ValueMember = В«CustomerIDВ»
ListBox1.Visible = True
ComboBox1.Visible = False
ComboBox1.DataSource = dbt
ComboBox1.DisplayMember = В«ContactNameВ»
ComboBox1.ValueMember = В«ContactTitleВ»
ComboBox1.Visible = True
Cursor.Current = Cursors.Default
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
dbc.Close()
dbt.Clear()
Me.DataBindings.Clear()
End SubТеперь нужно запустить приложение и посмотреть как происходит заполнение компонентов данными. Обратите внимание, что все элементы привязаны к одному контексту, поэтому передвижение в любом из них автоматически меняет текущее положение курсора в другом органе управления. Также стоит обратить внимание на первую и последнюю строку первой процедуры. Когда надо сменить на время курсор, например чтобы показать, что приложение находится в процессе ожидания завершения операции, этот эффект будет очень кстати.
Обработка ошибок
На этом этапе бы было неплохо узнать, как в VB.NET обрабатываются ошибки. Для этого нужно изменить код обработчика щелчка на кнопке Connect, специально указав неверный путь к файлу базы данных, как это показано в листинге 6.35.
Листинг 6.35Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Cursor.Current = Cursors.WaitCursor
dbc = New SqlServerCe.SqlCeConnection
dbt = New DataTable(В«CustomersВ»)
dbcmq.Connection = dbc
dba = New SqlServerCe.SqlCeDataAdapter(dbcmq)
Try
dbc.ConnectionString = В«Data Source=DocumentsNorthwindDemo.sdfВ»
dba.Fill(dbt)
Catch ex As SqlServerCe.SqlCeException
MsgBox(ex.Message)
MsgBox(«файл не найден, пробуем другой путь»)
dbc.ConnectionString = В«Data Source=NorthwindDemo.sdfВ»
Finally
dba.Fill(dbt)
End Try
DataGrid1.Visible = False
…В данном фрагменте кода было использовано выражение TryCatchFinallyEnd Try. В этом выражении ключевое слово Try открывает блок обработки ошибок. После него указываются операции, в которых возможно возникновение исключительной ситуации. Блок Catch осуществляет перехват ошибки. В момент возникновения ошибки создается объект ошибки ex. У этого объекта не так уж много свойств. Свойство Message содержит текстовое сообщение об ошибке, свойство InnerException возвращает ошибку, а метод GetBaseException возвращает более общий класс, к которому принадлежит данная ошибка.
После ключевого слова Finally должны быть расположены строки кода, которые выполняются независимо от того, возникла ошибка или нет. А ключевое слово End Try закрывает блок обработки ошибок.
В общем случае, когда вы указываете наиболее общий тип исключительной ситуации Exception, возвращаются только указанные выше значения. Однако в частных объектах исключения, как в нашем случае, когда тип исключительной ситуации SqlServerCe.SqlCeException, разработчик может извлечь из объекта ошибки и другие параметры. Например, коллекцию ошибок Errors, код возврата HResult, номер ошибки NativeError и Source – имя провайдера, в котором произошла ошибка. Таким образом, каждый раз, когда вы определяете в разделе Catch тип создаваемого объекта ошибки, стоит получить в справочной системе информацию о параметрах, которые он может возвратить. Также следует обратить внимание на то, что раздел Catch может перехватывать не один тип ошибки, а несколько, как это показано в следующем фрагменте кода.