Выполнение запроса для получения данных

Question

Хорошо, я сталкиваюсь с препятствием с крупным проектом, который мне нужно сделать в среду, и я просто встаю на ноги. Мне нужно, чтобы получить следующий SQL-запрос проходит через VB, чтобы получить некоторые данные, которые будут использоваться в моей программе:

SELECT Pay FROM Players 
WHERE (Name = @Name) 

Да, я пытаюсь отправить параметр в запрос, так как я не хочу, чтобы все столбец, а скорее как единственная запись внутри столбца, следовательно, предложение WHERE. Теперь, это в виду, как именно я это называю?

Вот мой текущий код, который я использую в моей программе:

Public Class frmName 
Private mNames As New Names 

Private Sub frmName_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    cboSelect.DataSource = mNames.Names 
    cboSelect.DisplayMember = "Name" 
    cboSelect.ValueMember = "Name" 

    'TODO: This line of code loads data into the 'RRBCDataSet.Players' table. You can move, or remove it, as needed. 
    'Me.PlayersTableAdapter.Fill(Me.RRBCDataSet.Players) 

End Sub 

Private Sub btnSelect_Click(sender As Object, e As EventArgs) Handles btnSelect.Click 

End Sub 

Теперь, да, это, по существу, пользователю выдается запрос на выбор игрока из бейсбольной команды из списка ComboBox, который имеет те игроков, предварительно загруженных в список выбора. Мой вопрос: как я могу вызвать запрос, когда пользователь нажимает «Выбрать»? Оттуда, вычисления, которые должны следовать, я получил в другом модуле как ряд функций и методов.

Answer 1

Private Sub btnSelect_Click(sender As Object, e As EventArgs) Handles btnSelect.Click 
    Dim SQL As String = "SELECT Pay FROM Players WHERE Name = @Name" 

    Using cn As New SqlConnection("Connection string here"), _ 
      cmd As New SqlCommand(SQL, cn) 

     'Change the "50" here to match the exact size of the database column 
     cmd.Parameters.Add("@Name", SqlDbType.NVarChar, 50).Value = cboSelect.SelectedValue 
     cn.Open() 

     'money should always use the decimal type 
     Dim pay As Decimal = Convert.ToDecimal(cmd.ExecuteScalar()) 

     'At this point, the "pay" variable declared above has your database result. 
     'You haven't indicated yet what you want to do with it 
    End Using 
End Sub