Программирование для карманных компьютеров

4. Написать обработчики для кнопок согласно коду, приведенному в листинге 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.35

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

dbt = New DataTable(«Customers»)

dbcmq.Connection = dbc

dba = New SqlServerCe.SqlCeDataAdapter(dbcmq)

Try

dbc.ConnectionString = «Data Source=\Documents\NorthwindDemo.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

…