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.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=\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
…