[طالب برمجة]

PHP كود :

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    Try
        TextBox18.Clear()
        If ComboBox1.Text = "" Then Return
        Me.Cursor = Cursors.WaitCursor

        Dim cm As New OleDbCommand("SELECT SUM(invblan) FROM Invoices WHERE EmployeeName=@EmpName", objconn)
        cm.Parameters.AddWithValue("@EmpName", ComboBox1.Text)

        If objconn.State <> ConnectionState.Open Then objconn.Open()
        TextBox18.Text = cm.ExecuteScalar

    Catch ex As Common.DbException
        MsgBox("Error: " & ex.ToString & vbCrLf)
    Finally
        objconn.Close()
        Me.Cursor = Cursors.Default
    End Try
End Sub