Листинг 7. Процедура Click для кнопки Update Contact Info на рис. 4

Private Sub cmdUpdateContactInfo_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles cmdUpdateContactInfo.Click
 Dim cmd1 As System.Data.SqlClient.SqlCommand = _
 cnn1.CreateCommand()
 ?Invoke the EditMyRow stored procedure with or without an
 ?@inPh parameter value.
 If txtPhone.Text <> «» Then
 cmd1.CommandText = «EXEC EditMyRow ?« & _
 txtMemberID.Text & «?, ?« & _
 txtFirstName.Text & «?, ?« & txtLastName.Text & «?, ?« & _
 txtEmailAddress.Text & «?, ?« & txtPhone.Text & «?«
 Else
 cmd1.CommandText = «EXEC EditMyRow ?« & _
 txtMemberID.Text & «?, ?« & _
 txtFirstName.Text & «?, ?« & txtLastName.Text & «?, ?« & _
 txtEmailAddress.Text & «?«
 End If
 cmd1.ExecuteNonQuery()
 End Sub