Таким образом было организовано отображение информации из таблицы базы данных. Теперь неплохо бы было организовать ввод информации.
10. К навигатору нужно добавить еще две кнопки, чтобы он выглядел так, как показано на рис. 6.25.
11. Для кнопки с изображением крестика нужно использовать обработчик, функциональность которого умещается в одну строку.
Me.BindingContext(dbt). CancelCurrentEdit()
12. Код обработчика нажатия кнопки с галочкой приведен в листинге 6.31. Листинг 6.31
Dim cmd As SqlServerCe.SqlCeCommand
cmd = New SqlServerCe.SqlCeCommand_
("UPDATE Customers SET Country = " + TextBox8.Text + " WHERE _
CustomerID = " + TextBox4.Text + " ", dbc)
If dbc.State = ConnectionState.Closed Then
dbc.Open()
End If
cmd.ExecuteNonQuery()13. Эти две команды показывают, каким образом можно отменить текущие изменения и как производится обновление данных в базе данных. Проект нужно снова запустить, нажать кнопку Connect, отредактировать поле Country у любой записи и нажать кнопку V. Затем следует разорвать соединение щелчком на кнопке Disconnect и снова соединиться с базой данных. Это позволит заметить, что изменения были внесены в таблицу. Но если снова внести изменения в поле Country и нажать кнопку X, то изменения будут отменены.
Впрочем, этот пример показывает лобовой подход, когда текст берется из элементов TextBox и вставляется в строку формируемого выражения SQL. Более красиво и правильно в этом случае воспользоваться параметризированной командой.
14. Необходимо изменить процедуру обработки щелчка на кнопке V при помощи кода, приведенного в листинге 6.32.
Листинг 6.32Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button7.Click
Dim cmd As SqlServerCe.SqlCeCommand
cmd = New SqlServerCe.SqlCeCommand("UPDATE Customers SET CompanyName_
=? ContactName =? City =? Country =? Phone=? FAX =? WHERE_
CustomerID =?", dbc)
cmd.Parameters.Add(«@a», SqlDbType.NVarChar, 40)
cmd.Parameters.Add(«@b», SqlDbType.NVarChar, 30)
cmd.Parameters.Add(«@c», SqlDbType.NVarChar, 15)
cmd.Parameters.Add(«@d», SqlDbType.NVarChar, 15)
cmd.Parameters.Add(«@e», SqlDbType.NVarChar, 24)
cmd.Parameters.Add(«@f», SqlDbType.NVarChar, 25)
cmd.Parameters.Add(«@g», SqlDbType.NChar, 5)
cmd.Parameters.Item(«@a»). Value = TextBox5.Text
cmd.Parameters.Item(«@b»). Value = TextBox6.Text
cmd.Parameters.Item(«@c»). Value = TextBox7.Text
cmd.Parameters.Item(«@d»). Value = TextBox8.Text
cmd.Parameters.Item(«@e»). Value = TextBox9.Text
cmd.Parameters.Item(«@f»). Value = TextBox10.Text
cmd.Parameters.Item(«@g»). Value = TextBox4.Text
If dbc.State = ConnectionState.Closed Then
dbc.Open()
End If
cmd.ExecuteNonQuery()
End Sub